//xbrl-ternary-costsales-foods-small-con-cross <edinet> // edinet用プログラムの始点 vc[1] = "NetSales" // 売上高 vc[2] = "OperatingIncome" // 営業利益 vc[3] = "OrdinaryIncome" // 経常利益 vc[4] = "NetIncome" // 当期純利益 vc[5] = "CostOfSales" // ● 売上原価 vc[6] = "CostOfFinishedGoodsSold" // ●1 製品売上原価 vc[7] = "CostOfMerchandiseAndFinishedGoodsSoldCOS" // ●2 商品及び製品売上原価、売上原価 vc[8] = "SellingGeneralAndAdministrativeExpenses" // 販売費及び一般管理費 vc[9] = "NumberOfEmployees" // 従業員数 industry[1] = "3050" // ★業種コード 3050 食料品 report[1] = "listed+" // 上場企業　と　非上場企業　つまり全社 company[1] = "E01064" // ★ＡＦＣ−ＨＤアムスライフサイエンス company[2] = "E02484" // ★ファーマフーズ company[3] = "E26549" // ★北の達人コーポレーション company[4] = "E27054" // ★ユーグレナ 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) S=(a) // 売上高 Y=(h) // 販売費及び一般管理費 X=(b) // 営業利益 Z=csl(e,f) // ● 売上原価 と ●1 製品売上原価 を統合 Z=csl(Z,g) // さらに ●2 商品及び製品売上原価 を統合 ................. L=f<.(S)15000 // ★売上高150億円未満の企業にフラグ１，他は空白（欠測値）の変量L ............. 前行の「f<.」は定数未満の場合のフラグ変量作成のオペランド ............. 「f<=」にすると定数以下の場合のフラグ変量作成 ............. 「f>=」にすると定数以上の場合のフラグ変量作成 ............. 「f>.」にすると定数超の場合のフラグ変量作成 ............. 「f<<」にすると２つの定数の開区間のフラグ変量作成 ............. 「f.r」にすると２つの定数の閉区間のフラグ変量作成 ---------- // フラグ変量Lを用いて売上高150億円未満の企業のみにデータを整理する $s // セット（整理）コマンド trans,N,A,M,E,F,G,X,Y,Z,S,L // transで右記の全変量について共通ケースのみ一括抽出 ---------- $d // 表示範囲コマンド all // 全範囲 $t // 変数変換マンド ................. x=(X/S)*100 // 営業利益構成比％ x y=(Y/S)*100 // 販売費及び一般管理費構成比％ y z=(Z/S)*100 // 売上原価構成比％ z p=:ci(x) // データの散布点印字用の文字系列p ............. X,nam,営業利益 // 変量Xに変量名を付与 Y,nam,販管費 // 変量Yに変量名を付与 Z,nam,売上原価 // 変量Zに変量名を付与 S,nam,売上高 // 変量Sに変量名を付与 x,nam,営業利益構成比 // 変量xに変量名を付与 y,nam,販管費構成比 // 変量yに変量名を付与 z,nam,売上原価構成比 // 変量zに変量名を付与 =pr*(N,A,M,E,F,G,X,Y,Z,S,x,y,z,p) // 数値プリント ................. f=(-1,-1,+100) // 関数f y= -x -z +100 （つまり x+y+z = 100） i=(100,0,0,50,50,0) // 三角形の頂点と中点の座標 j=(0,100,0,0,50,50) k=(0,0,100,50,0,50) Q=:ci(i)****** // 三角形の頂点と中点の３次元図印字用の文字系列Q Y=(y) // データのy変量の三角グラフ平面への縦軸変換 X=(2*x+y)/1.7320508 // データのx変量の三角グラフ平面への横軸変換 U=(1.732,0) // 関数U Y=1.732X+0 三角形の左辺 V=(-1.732,200) // 関数V Y=-1.732X+200 三角形の右辺 ............. 三角形の頂点と中点の座標 J=(j) // 三角形の頂点と中点の三角グラフ平面への縦軸変換 I=(2*i+j)/1.7320508 // 三角形の頂点と中点の三角グラフ平面への横軸変換 ========================= グラフセクション $$g // グラフセクション $z 　// ゼロ軸表示コマンド xyzXY // 変量xyzXY についてゼロ軸表示 $g 　// 目盛設定コマンド X,001 // X変量の目盛 1間隔（標準は10間隔） Y,001 // Y変量の目盛 1間隔（標準は10間隔） y,001 // y変量の目盛 1間隔（標準は10間隔） ----------------- ３次元図 $3 // 　RGB表色３次元図 y,x,z,p=S,f,* // 縦軸y,横軸x,奥行軸z,印字p=バブル変量S,関数f,合成用保存* j,i,k,Q,* // 縦軸j，横軸i，奥行軸k，散布点印字Q，合成用保存* // 合成 ■図3 【三色バブル（○□◇順）三次元図】 ------------------ $3 // 　三角グラフ平面 Y,X, ,p=S,U,V,* // 縦軸Y,横軸X,奥行軸なし,印字p=バブル変量S,関数U,V,合成用保存* J,I, ,Q,* // 縦軸J，横軸I，奥行軸なし，印字Q，合成用保存* // 合成 ■図6 【三色三角バブル（○□◇順）グラフ】 ========================= $$ // 終了セクション