//xbrl-ternary-asset-securities-con-cross // コメント行 <edinet> // edinet用プログラムの始点 vc[1] = "OperatingRevenueSEC" // ●SEC 営業収益、第一種金融商品取引業 vc[2] = "OperatingIncome" // 営業利益 vc[3] = "OrdinaryIncome" // 経常利益 vc[4] = "NetIncome" // 当期純利益 vc[5] = "PropertyPlantAndEquipment" // 有形固定資産 vc[6] = "CurrentAssets" // 流動資産 vc[7] = "Assets" // 資産 vc[8] = "OperatingRevenue1" // ●1 営業収益 vc[9] = "OperatingRevenueCMD" // ●CMD 営業収益、商品先物取引業 vc[10] = "OperatingRevenueIVT" // ●IVT 営業収益、投資運用業 vc[11] = "NetSales" // ●Sales 売上高 period[1] = "201204-201303" // 期間 industry[1] = "7100" // 業種コード 7100 証券、商品先物取引業 report[1] = "listed+" // 上場企業　と　非上場企業　つまり全社 //rmcompany[1]= "3801" // 特定の企業をEDINETコードで指示して 除外　の例示 company[1] = "3753" // EDINET 会社コード 大和証券グループ本社 company[2] = "3807" // EDINET 会社コード 松井証券 printdata[1] = "raw" // 決算書原データcsv出力 </edinet> // edinet用プログラムの終点 =============================== =pr*(C,N,A,M,E,F,G,I,H,I,J,K,a,b,c,d,e,f,g,h,i,j,k) // 数値プリント 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，合成用保存* // 合成 ========================= $$ // 終了セクション $p // プロット y,x,v // 変量y，x，vを別スケールでプロット ======================= $$ // 終了セクション