//xbrl-ternary-costsales-textiles-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" // 販売費及び一般管理費 industry[1] = "3100" // 業種コード 3100 繊維製品 report[1] = "listed+" // 上場企業　と　非上場企業　つまり全社 //rmcompany[1] = "597" // ▼E00597 プリンシバル・コーポレーションを繊維製品業種から除外の例示 company[1] = "873" // EDINET 会社コード 東レ company[2] = "2315" // EDINET 会社コード ホギメディカル 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) S=(a) // 売上高 Y=(h) // 販売費及び一般管理費 X=(b) // 営業利益 Z=csl(e,f) // ● 売上原価 と ●1 製品売上原価 を統合 Z=csl(Z,g) // さらに ●2 商品及び製品売上原価 を統合 x=(X/S)*100 // 営業利益構成比％ x y=(Y/S)*100 // 販売費及び一般管理費構成比％ y z=(Z/S)*100 // 売上原価構成比％ z p=:ci(x) // データの散布点印字用の文字系列p =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 // 　三色バブル三次元図 y,x,z,p=S,f,* // 縦軸y,横軸x,奥行軸z,印字p=バブル変量S,関数f,合成用保存* j,i,k,Q,* // 縦軸j，横軸i，奥行軸k，散布点印字Q，合成用保存* // ■３番 合成 【三色バブル（○□◇順）三次元図】 ------------------ $3 // 　三色三角バブルグラフ Y,X, ,p=S,U,V,* // 縦軸Y,横軸X,奥行軸なし,印字p=バブル変量S,関数U,V,合成用保存* J,I, ,Q,* // 縦軸J，横軸I，奥行軸なし，印字Q，合成用保存* // ■６番 合成 【三色三角バブル（○□◇順）グラフ】 ========================= $$ // 終了セクション