//xbrl-skyline-ros-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コードで指示して 除外　の例示 </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) // 数値プリント x=csl(a,h) // ●SEC 営業収益 、第一種金融商品取引業と　●1 営業収益 を統合 x=csl(x,i) // ●CMD 営業収益、商品先物取引業を統合 x=csl(x,j) // ●IVT 営業収益、投資運用業 を統合 x=csl(x,k) // ●Sales 売上高 を統合 y=(c) // 経常利益 V=(y/x)*100 // 経常利益率　原データ W=f>=(V)-100 // フラグ 経常利益率 >= -100％ v=(V*W) // 経常利益率 -100％を超える経常損失率の企業は欠測値に ---- 扇形散布図の原点付近の拡大図を作成するには，次の２行の先頭....を削除 ....U=f<=(x)100000 // フラグ 営業収益 <= 100000 ....x=(x*U) // 営業収益 1000億円以下の企業の数値のみ有効　超1000億円企業は欠測値に ---- P=:ci(x) // 個体識別文字列P作成 f=(1,-1,log100) // v=(y/x*100)の対数 logv=logy -logx +log100 の右辺係数 =pr*(N,A,M,E,F,G,x,y,V,v,P) // 数値プリント .................... q=cum(x) // 分母の累和 q<i>=x<1>+x<2>+...+x<i-1>+x<i> r=(q-x) // 直前までの分母の累和 r<i>=x<1>+x<2>+...+x<i-1> =q<i>-x<i> @=(0*x) // すべてゼロの数値の変量@を作成（図の原点に利用） =============== $$g // グラフセクション $g // スケールの目盛り指示コマンド（標準10ポイント） y,002 // y変量の目盛りを細かく2ポイントごとに x,002 // x変量の目盛り 2ポイント v,002 // v変量の目盛り 2ポイント $z // ゼロ軸の表示 v 　　// v変量のゼロ軸表示 ........ $3 // ３次元図　スカイライン図 v,q, ,P,* // 縦軸v,横軸q,奥行軸なし,個体識別P,合成用保存* v,r, ,P,* // 縦軸v,横軸r,奥行軸なし,個体識別P,合成用保存* // 合成 スカイライン図（リンク縦面描画，３次元図圧縮） ........ $3 // ３次元図　扇形散布図 y,x, ,P,* // 縦軸y,横軸x,奥行軸なし,個体識別P,合成用保存* @,@, ,P,* // 縦軸@,横軸@,奥行軸なし,個体識別P,合成用保存【原点】 // 合成（散布点と原点のリンク直線描画，３次元図圧縮を利用） ........ $3 // ３次元図　３次元曲面図 次の各変量直後の*で関数表示に対数 v*y*x*P,f,* // 縦軸v，横軸y，奥行軸x,散布点印字P,関数f,合成用保存* v,y,x,P,* // 縦軸v，横軸y，奥行軸x,散布点印字P,合成用保存* // 合成（散布点の累計ケースが 3999−51×合成枚数 まで表示可） ........ $d // 表示範囲 　 プロットコマンド$pの直前に用いる all // 全範囲　（デフォルトのままでは最初の100ケース） $p // プロット y,x,v // 変量y，x，vを別スケールでプロット ======================= $$ // 終了セクション