//xbrl-ternary2-asset-paper-con-cross <edinet> // edinet用プログラムの始点 xbrl-ternary2-asset-paper-con-cross 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" // 期間１ period[2] = "201104-201203" // 期間２ industry[1] = "3150" // 業種コード 3150 パルプ・紙 company[1] = "642" // EDINET 会社コード 王子製紙 company[2] = "659" // 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,i,j,k,l,m,n) S=(g) // 資産合計−期間１ Y=(e) // 有形固定資産−期間１ Z=(f) // 流動資産−期間１ X=(g-e-f) // その他資産−期間１ ((B(( // 繰り返しルーティン B の始点 ---------------- $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換コマンド S=(X+Y+Z) // 人口総数 x=(X/S)*100 // その他資産構成比％ x y=(Y/S)*100 // 有形固定資産構成比％ y z=(Z/S)*100 // 流動資産構成比％ z p=:ci(x) // ケース識別文字系列作成 =pr*(N,A,M,E,F,G,X,Y,Z,S,x,y,z,p) // 数値プリント -------------------- $r // 回帰コマンド ,run,y=(x,z) // 被説明変数y，説明変数x,zによる重回帰の計測 ,run,Y=(X,Z) // 被説明変数Y，説明変数X,Zによる重回帰の計測 $t // 変数変換コマンド Y=(y) // データのy変量の三角グラフ平面への縦軸変換 X=(2*x+y)/1.7320508 // データのx変量の三角グラフ平面への横軸変換 ............. ))B)) // 繰り返しルーティン B の終点 $t // 変数変換コマンド ?x=(x) // 異時点グラフ作成用に期間１変量の記号を変更 ?y=(y) ?z=(z) ?Y=(Y) ?X=(X) ?S=(S) ====================== S=(n) // 資産合計−期間２ Y=(l) // 有形固定資産−期間２ Z=(m) // 流動資産−期間２ X=(n-l-m) // その他資産−期間２ ((B)) // 繰り返しルーティン B の実行 ================================================ $t // 変数変換コマンド 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 ............. @=(0*x) // 原点の変量（ケースの数はデータ分） i=(@,i) // 原点の変量と三角形の頂点と中点を連結した変量 j=(@,j) k=(@,k) Q=(p,Q) // データの散布点印字変量pと頂点と中点の印字変量Qの連結 Q,nam,:ci,Q=(p,Q) // 印字変量Qが文字系列であることを示す変量名に変更 .... =pr*(i,j,k,Q) // 数値プリントしてチェックするには先頭....を取る U=(1.732,0) // 関数U Y=1.732X+0 三角形の左辺 V=(-1.732,200) // 関数V Y=-1.732X+200 三角形の右辺 W=(-1.732,0) // 関数W W=-1.732X+0 原点を通り三角形右辺に平行(負値の拡張三角グラフ用) ............. 三角形の頂点と中点の座標 J=(j) // 三角形の頂点と中点の三角グラフ平面への縦軸変換 I=(2*i+j)/1.7320508 // 三角形の頂点と中点の三角グラフ平面への横軸変換 --------------------- a=(0,0,0,25,50) // 小さい三角形の頂点と中点のの座標 b=(0,50,25,0,0) c=(100,50,75,75,50) .... // @は @=(0*x) として定義済みで，原点の変量（ケースの数はデータ分） a=(@,a) // 原点の変量と小さい三角形の頂点と中点を連結した変量 b=(@,b) c=(@,c) ............. B=(b) // 小さい三角形の頂点と中点の三角グラフ平面への縦軸変換 A=(2*a+b)/1.7320508 // 小さい三角形の頂点と中点の三角グラフ平面への横軸変換 v=(-1.732,100) // 関数v Y=-1.732X+ (50*2) 小さい三角形の右辺 ========================= グラフセクション $$g $g X,001 // X変量の目盛 1間隔（標準は10間隔） Y,001 // Y変量の目盛 1間隔（標準は10間隔） y,001 // y変量の目盛 1間隔（標準は10間隔） ----------------- ３次元図 $3 // 三角グラフ立体 j,i,k,Q,* // 縦軸j，横軸i，奥行軸k，散布点印字Q，合成用保存* ?y,?x,?z,p=?S,f,* // 縦軸?y横軸?x奥行軸?z,印字p=バブル?S,関数f合成用保存*−期間１ y,x,z,p=S,f,* // 縦軸y，横軸x，奥行軸z，印字p=バブル変量S，関数f,合成用保存*−期間２ // 合成 $3 // 　三角グラフ平面 J,I, ,Q,* // 縦軸J，横軸I，奥行軸なし，印字Q，合成用保存* ?Y,?X, ,p=?S,U,V,W,* // 縦軸?Y横軸?X奥行軸なし印字p=バブルS,関数U,V,W合成保存*−期間１ Y,X, ,p=S,U,V,W,* // 縦軸Y横軸X奥行軸なし印字p=バブル変量S,関数U,V,W合成保存*−期間２ // 合成 $3 // 　小さい三角グラフ立体 b,a,c,Q,* // 縦軸b，横軸a，奥行軸c，散布点印字Q，合成用保存* ?y,?x,?z,p=?S,f,* // 縦軸?y横軸?x奥行軸?z,印字p=バブル?S,関数f,合成用保存*−期間１ y,x,z,p=S,f,* // 縦軸y，横軸x，奥行軸z，印字p=バブル変量S，関数f,合成用保存*−期間２ // 合成 $3 // 　小さい三角グラフ平面 B,A, ,Q,* // 縦軸B，横軸A，奥行軸なし，印字Q，合成用保存* ?Y,?X, ,p=?S,U,v,W,* // 縦軸?Y横軸?X奥行軸なし印字p=バブルS,関数U,v,W合成保存*−期間１ Y,X, ,p=S,U,v,W,* // 縦軸Y横軸X奥行軸なし印字p=バブル変量S,関数U,v,W合成保存*−期間２ // 合成 ========================= 終了セクション $$