//xbrl-skyline-ros-more7-foods-con-IFsumUSsum-cross // コメント行 <edinet> // edinet用プログラムの始点 vc[1] = "NetSales" // ●売上高 vc[2] = "OperatingIncome" // 営業利益 vc[3] = "OrdinaryIncome" // ◎経常利益 vc[4] = "NetIncome" // 当期純利益 vc[5] = "PropertyPlantAndEquipment" // 有形固定資産 vc[6] = "CurrentAssets" // 流動資産 vc[7] = "Assets" // 資産 vc[8] = "NumberOfEmployees" // 従業員数 vc[9] = "RevenueIFRSSummaryOfBusinessResults" // ●1 収益（IFRS） vc[10] = "ProfitLossBeforeTaxIFRSSummaryOfBusinessResults" // ◎1 税引前利益（IFRS） vc[11] = "RevenuesUSGAAPSummaryOfBusinessResults" // ●2 売上高（US GAAP） vc[12] = "ProfitLossBeforeTaxUSGAAPSummaryOfBusinessResults" // ◎2 税引前利益（US GAAP） report[1] = "listed+" // 上場と非上場，つまり全社 report[2] = "jp++" // 日本基準にIFRS詳細,IFRS要約,米国基準要約,つまり全社 period[1] = "201304-201403" // ★期間 industry[1] = "3050" // ★業種コード 3050 食料品 company[1] = "E00406" // ★ヤクルト本社 company[2] = "E00492" // ★日本たばこ産業 company[3] = "E26549" // ★北の達人コーポレーション 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,j,k,l) // 数値プリント x=csl(a,i) // ● 売上高 と ●1 収益（IFRS）を統合 x=csl(x,k) // 売上高統合 と ●2 売上高（US GAAP）を統合 y=csl(c,j) // ◎経常利益 と ◎1 税引前利益（IFRS） を統合 y=csl(y,l) // 経常利益統合 と ◎2 税引前利益（US GAAP）を統合 v=(y/x)*100 // 経常利益率 ..................... U=f>=(v)7 // ★経常利益率 7%以上の企業にフラグ１，他は空白（欠測値）の変量U ............. 前行の「f<.」は定数未満の場合のフラグ変量作成のオペランド ............. 「f<=」にすると定数以下の場合のフラグ変量作成 ............. 「f>=」にすると定数以上の場合のフラグ変量作成 ............. 「f>.」にすると定数超の場合のフラグ変量作成 ............. 「f<<」にすると２つの定数の開区間のフラグ変量作成 ............. 「f.r」にすると２つの定数の閉区間のフラグ変量作成 ---------- // フラグ変量Uを用いて経常利益率 7%以上の企業のみにデータを整理する $s // セット（整理）コマンド trans,N,A,M,E,F,G,x,y,v,U // transで右記の全変量について共通ケースのみ一括抽出 ---------- $d // 表示範囲コマンド all // 全範囲 $t // 変数変換マンド ...................................... ................. 次行の７カラム目のvをxやyへの変更で別変量での並び替え可 T=r.g(v)blank // vの大きい順(定数項blankで欠測値にも末尾の順位)の順位変量T ....T=r.l(v)blank // 小さい順の場合は先頭の....を取る =pr*(N,A,M,E,F,G,x,y,v,T) // 経常利益率 【並び替え前】数値プリント ................... N=pmt(N,T) // 並び替え（順序数変量Tによる） A=pmt(A,T) M=pmt(M,T) E=pmt(E,T) F=pmt(F,T) G=pmt(G,T) .......... x=pmt(x,T) y=pmt(y,T) v=pmt(v,T) ..................　tm"は部分変量作成「始点.,終点.」始点終点直後の「.」必須 .................. 会社数 > 1948の場合は次行でケース数を1948社以内に収めて描画 ....x=tm"(x)1.,50. // x変量の最初の50ケースを切り出す場合は先頭の....を取る ....x=tm"(x)51.,100. // x変量の51〜100番ケースの切り出しは....を取る x,nam,売上高 // 変量xに変量名を付与 y,nam,経常利益 // 変量yに変量名を付与 v,nam,経常利益率 // 変量vに変量名を付与 .............................. P=:ci(x) // 個体識別文字列P作成 =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) // すべてゼロの数値の変量@を作成（図の原点に利用） B=(7) 　　 // ★定数B（経常利益率の閾値） 7% +=(0,B) // 関数+ v= 0*q + B （つまり v = 7 % の水平線） _=(B/100,0) // 関数_ y= B/100*x + 0 （つまり y = 0.07*x + 0 の斜線） L=(1,-1,log100) // 関数L logv= logy -logx +log100 （つまり v=y/x*100 の曲面） ^=(0,0,B) // 関数^ v= 0*y + 0*x + B （つまり v = 7 % の水平面） =============== $$g // グラフセクション $g // スケールの目盛り指示コマンド（標準10ポイント） y,002 // y変量の目盛りを細かく2ポイントごとに x,002 // x変量の目盛り 2ポイント v,002 // v変量の目盛り 2ポイント $z // ゼロ軸の表示 v 　　// v変量のゼロ軸表示 ........合成図は（散布点の累計ケースが 3999−51×合成枚数 まで表示可） $3 // ３次元図　スカイライン図 v,q, ,P,+,* // 縦軸v,横軸q,奥行軸なし,個体識別P,関数+,合成用保存* v,r, ,P,* // 縦軸v,横軸r,奥行軸なし,個体識別P,合成用保存* // 合成 ■図3 【スカイライン図】（リンク縦面描画，３次元図圧縮） ........ $3 // ３次元図　扇形散布図 y,x, ,P,_,* // 縦軸y,横軸x,奥行軸なし,個体識別P,関数_,合成用保存* @,@, ,P,* // 縦軸@,横軸@,奥行軸なし,個体識別P,合成用保存【原点】 // 合成 ■図6 【扇形バブル散布図】（リンク直線描画，３次元図圧縮） ........ $3 // ３次元図　３次元曲面図 次の各変量直後の*で関数表示に対数 v*y*x*P,L,* // 縦軸v，横軸y，奥行軸x,散布点印字P,関数L,合成用保存* v,y,x,P,^,* // 縦軸v，横軸y，奥行軸x,散布点印字P,関数^,合成用保存* // 合成 ■図9 【時系列バブル散布図】（ランキング順に時系列同様の軌跡を描画） ........ $d // 表示範囲 　 プロットコマンド$pの直前に用いる all // 全範囲　（デフォルトのままでは最初の100ケース） $p // プロット y,x,v // ■図10 【折線2棒グラフ2プロット】（変量y，x，vを別スケール） ======================= $$ // 終了セクション