//xbrl-skyline-depreciation-textiles-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] = "DepreciationAndAmortizationOpeCF" // ●減価償却費(営業CF) vc[9] = "DepreciationAndOtherAmortizationOpeCF" // ●1 減価償却費及びその他の償却費(営業CF) period[1] = "201204-201303" // 期間 industry[1] = "3100" // 業種コード 3100 繊維製品 report[1] = "listed+" // 上場企業　と　非上場企業　つまり全社 //rmcompany[1] = "597" // ▼E00597 プリンシバル・コーポレーションを繊維製品業種から除外の例示 company[1] = "872" // EDINET 会社コード 帝人 company[2] = "590" // EDINET 会社コード ワコールHD printdata[1] = "raw" // 決算書原データcsv出力 </edinet> // edinet用プログラムの終点 =============================== =pr*(C,N,A,M,E,F,G,H,I,J,K,a,b,c,d,e,f,g,h,i) // 数値プリント x=(a) // 売上高 y=csl(h,i) // ●減価償却費 と ●1 減価償却費及びその他の償却費 を統合 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を別スケールでプロット ======================= $$ // 終了セクション