//xbrl-skyline2-ros-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" // 期間１ period[2] = "201104-201203" // 期間２ 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,h,i,j,k,l,m,n) // 数値プリント v=(a) //　売上高−期間１ V=(h) //　売上高−期間２ w=(c) //　経常利益−期間１ W=(j) //　経常利益−期間２ h=(w/v)*100 //　経常利益率−期間１ H=(W/V)*100 //　経常利益率−期間２ p=:ci(a) // 個体識別文字列p作成−期間１ P=:ci(h) // 個体識別文字列P作成−期間２ =pr*(v,w,h,p) // 数値プリント−期間１ =pr*(V,W,H,P) // 数値プリント−期間２ ---------------- i=max(v) //　期間１売上高vの最大値のスカラーi（区切りに利用） I=:ci(i)* //　スカラーiに文字 "*" の文字列変量I　作成（スカイライン区切りに利用） d=(v,i,V) //　売上高　 期間１v＋スカラーi＋期間２V の連結変量d x=(w,0,W) //　経常利益　期間１w＋数値0＋期間２W の連結変量x s=(h,0,H) //　経常利益率 期間１h＋数値0＋期間２H の連結変量s Q=(p,I,P) //　文字列変量 期間１p＋スカラー文字列I＋期間２P の連結変量Q q=cum(d) // 分母変量の累和 q<i>=d<1>+d<2>+...+d<i-1>+d<i> r=(q-d) // 直前までの累和 r<i>=d<1>+d<2>+...+d<i-1> =q<i>-d<i> .................... .=(0,5) // 比率5％の線 y=5=0*x+5 の右辺係数 [0,5] の関数「.」 +=(0.05,0) // 散布図上の比率5％の斜線 y=0.05x+0 の右辺係数 [0.05,0] の関数「+」 ................　散布図の原点 z=(0*v) // すべてゼロの数値の変量z−期間１を作成 Z=(0*V) // すべてゼロの数値の変量Z−期間２を作成 z=csl(z,Z) // データ統合により，すべてゼロの数値の最大範囲の変量z R=:ci(z) // すべてゼロの数値の最大範囲の変量の個体識別文字列R =============== $$g // グラフセクション $d // 表示範囲 all // 全範囲 $g // スケールの目盛り指示コマンド（標準10ポイント） s,002 // 変量sの目盛りを細かく2ポイントごとに w,002 W,002 $z // ゼロ軸表示 swW // 変量s,w,Wのゼロ軸表示 ------------------------------------------------- $3 // ３次元図　スカイライン図 s,q, ,Q,.,* // 縦軸s,横軸q,奥行軸なし,個体識別Q,関数.,合成用保存* s,r, ,Q,* // 縦軸s,横軸r,奥行軸なし,個体識別Q,合成用保存* // 合成スカイライン図（リンク縦面描画，３次元図圧縮） $3 // ３次元図　横向きスカイライン図 q,s, ,Q,* // 縦軸q,横軸s,奥行軸なし,個体識別Q,関数.,合成用保存* r,s, ,Q,* // 縦軸r,横軸s,奥行軸なし,個体識別Q,合成用保存* // 合成スカイライン図（リンク横面描画，３次元図圧縮） $3 // ３次元図　扇形散布図 z,z, ,R,* // 縦軸z,横軸z,奥行軸なし,個体識別R,合成用保存【原点】 w,v, ,p,+,* // 縦軸w,横軸v,奥行軸なし,個体識別p,関数+,合成用保存* W,V, ,P,+,* // 縦軸W,横軸V,奥行軸なし,個体識別P,関数+,合成用保存* z,z, ,R,* // 縦軸z,横軸z,奥行軸なし,個体識別R,合成用保存【原点】 // 合成扇形散布図（２次元図上の散布点と原点のリンク，３次元図圧縮を利用） ======================= $$ // 終了セクション