//xbrl-skyline-impairment-nonferrous-con-cross // コメント行 <edinet> // edinet用プログラムの始点 vc[1] = "NetSales" // 売上高 vc[2] = "OperatingIncome" // 営業利益 vc[3] = "OrdinaryIncome" // 経常利益 vc[4] = "NetIncome" // 当期純利益 vc[5] = "PropertyPlantAndEquipment" // 有形固定資産 vc[6] = "IntangibleAssets" // 無形固定資産 vc[7] = "NoncurrentAssets" // 固定資産 vc[8] = "ImpairmentLossEL" // 減損損失、特別損失 vc[9] = "ImpairmentLossOpeCF" // 減損損失、営業活動によるキャッシュ・フロー period[1] = "201204-201303" // 期間 industry[1] = "3500" // 業種コード 3500 非鉄金属 </edinet> // edinet用プログラムの終点 =============================== =pr*(C,N,A,M,E,F,G,H,I,J,K,a,b,c,d,e,f,g,h,i) // 数値プリント x=(e+f) // 有形・無形固定資産 y=0.b(h) // 0.b で欠落値ゼロ置換 減損損失 v=(y/x)*100 // 減損損失／［有形・無形固定資産］比率 P=:ci(x) // 個体識別文字列P作成 f=(1,-1,log100) // v=(y/x*100)の対数 logv=logy -logx +log100 の右辺係数 =pr*(N,A,M,E,F,G,x,y,v,P) // 数値プリント .................... q=cum(x) // 分母の累和 q<i>=x<1>+x<2>+...+x<i-1>+x<i> r=(q-x) // 直前までの分母の累和 r<i>=x<1>+x<2>+...+x<i-1> =q<i>-x<i> @=(0*x) // すべてゼロの数値の変量@を作成（図の原点に利用） =============== $$g // グラフセクション $g // スケールの目盛り指示コマンド（標準10ポイント） y,002 // y変量の目盛りを細かく2ポイントごとに x,002 // x変量の目盛り 2ポイント v,002 // v変量の目盛り 2ポイント $z // ゼロ軸の表示 v 　　// v変量のゼロ軸表示 ........ $3 // ３次元図　スカイライン図 v,q, ,P,* // 縦軸v,横軸q,奥行軸なし,個体識別P,合成用保存* v,r, ,P,* // 縦軸v,横軸r,奥行軸なし,個体識別P,合成用保存* // 合成 スカイライン図（リンク縦面描画，３次元図圧縮） ........ $3 // ３次元図　扇形散布図 y,x, ,P,* // 縦軸y,横軸x,奥行軸なし,個体識別P,合成用保存* @,@, ,P,* // 縦軸@,横軸@,奥行軸なし,個体識別P,合成用保存【原点】 // 合成（散布点と原点のリンク直線描画，３次元図圧縮を利用） ........ $3 // ３次元図　３次元曲面図 次の各変量直後の*で関数表示に対数 v*y*x*P,f,* // 縦軸v，横軸y，奥行軸x,散布点印字P,関数f,合成用保存* v,y,x,P,* // 縦軸v，横軸y，奥行軸x,散布点印字P,合成用保存* // 合成（散布点の累計ケースが 3999−51×合成枚数 まで表示可） ........ $d // 表示範囲 　 プロットコマンド$pの直前に用いる all // 全範囲　（デフォルトのままでは最初の100ケース） $p // プロット y,x,v // 変量y，x，vを別スケールでプロット ======================= $$ // 終了セクション