//xbrl-ternary-asset-paper-con-cross // コメント行 <edinet> // edinet用プログラムの始点 vc[1] = "NetSales" // 売上高 vc[2] = "OperatingIncome" // 営業利益 vc[3] = "OrdinaryIncome" // 経常利益 vc[4] = "NetIncome" // 当期純利益 vc[5] = "PropertyPlantAndEquipment" // 有形固定資産 vc[6] = "CurrentAssets" // 流動資産 vc[7] = "Assets" // 資産 period[1] = "201204-201303" // 期間 industry[1] = "3150" // 業種コード 3150 パルプ・紙 </edinet> // edinet用プログラムの終点 =============================== =pr*(C,N,A,M,E,F,G,H,I,J,K,a,b,c,d,e,f,g) // 数値プリント S=(g) // 資産合計 Y=(e) // 有形固定資産 Z=(f) // 流動資産 X=(g-e-f) // その他資産 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 // 　RGB表色３次元図 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，合成用保存* // 合成 ========================= $$ // 終了セクション