====================== ternary-corporate-gross-value-added ====== ===== ternary diagram ===== Corporate Gross-Value-Added 法人企業統計 粗付加価値 ================================================================= $$u // ユーザデータ・セクション $q // 四半期データ 1975.02,2010.01,a-variable // ★始点年.期,終点年.期,数値系列変量名;単位 ,b-variable // 空白で同一ケース範囲,数値系列変量名;単位 ,c-variable // 空白で同一ケース範囲,数値系列変量名;単位 ----------------- データ入力指示コマンド $d ctype // ケース毎に読むタイプ ------- テキストファイルまたはExcelシートからコピー＆ペーストされたい． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 17105 68661 138904 30683 75759 177991 -4276 64942 191504 28563 90357 157575 29285 63464 123479 23145 69815 163713 54249 61384 166136 37355 113154 134570 68427 80323 155333 21153 97127 203302 44948 79262 210844 45081 90745 170187 40928 55193 139284 25089 64893 170990 33180 57762 175819 36864 61859 140551 81947 76803 152691 58192 98901 185634 100751 79794 190707 87440 96862 166393 117428 69318 146515 77620 74337 190913 69546 79260 192754 36005 89480 162138 121301 76262 159124 82524 88244 200686 82956 88175 199745 42066 96294 172355 76066 78324 174810 9969 92339 222232 23092 83408 219994 322 92268 186963 71130 76531 174442 32826 90085 211597 55882 116012 208085 10556 110648 173715 57683 68455 182829 31879 78899 201957 54612 68562 209758 1837 87318 179652 61480 77607 157717 37213 81744 177754 46902 81086 186091 11712 95451 152017 50138 71572 157492 24114 82669 197084 40157 75294 195560 -8330 105324 173343 43974 72942 175113 12849 97578 185596 44866 79601 192319 17961 91325 177053 69509 56958 148226 42972 73734 169148 71934 66256 179342 43965 89377 159261 87320 76806 149729 87987 88422 185947 95899 71291 176277 38768 93338 155021 73688 63656 141618 99147 81041 174985 82905 80087 171297 21316 102204 159320 89211 76669 164454 70254 98455 200960 58660 76706 210692 55579 95857 187166 74278 61693 156474 63176 114092 187367 47575 71759 193130 19218 102792 159424 11112 121298 168546 48262 97788 198987 24405 66800 200591 8128 121933 168504 29647 77662 175416 54644 90547 199084 44983 76225 198146 23591 114006 182128 36204 68719 185108 30027 74076 211108 49809 60883 204536 54466 100602 180579 38924 62126 167560 62279 88620 192089 58944 60796 199038 24300 87444 172850 42642 76265 194132 50498 90656 223000 72343 85091 224964 41148 119779 195928 58925 66463 173913 92764 85483 173223 79785 68461 166984 24439 90149 143818 52200 61316 185155 43132 73675 194800 41096 58415 196351 39127 100873 181857 90898 68946 150595 74471 73519 169159 87994 45965 171670 73628 77857 160941 76561 39059 174238 64214 66671 184458 39573 69026 186901 26309 74364 169621 32984 40102 134454 47052 59163 145693 41491 64465 150783 34921 62066 139312 77781 44769 123125 87769 53286 134389 100769 44687 138896 100655 59793 124733 109958 48241 123541 130874 56699 133802 135072 47352 126437 134645 50155 119331 125990 37477 138312 106325 50650 152402 102047 46851 162033 70955 69254 150102 105852 73816 105846 95330 90075 118389 129471 80388 116196 116854 62583 109384 170365 40667 130131 182776 59480 147321 208016 46185 151165 165610 68267 130643 192788 47458 126842 243855 57152 148315 68661 64487 140574 -73175 78527 129098 -62349 168646 135063 -15602 50045 141627 18440 83883 143626 37324 66745 136327 ================== 変量分析セクション $$v ----------------- 変量記号割当 $a X,a-variable //　営業利益 Y,b-variable // 減価償却費 Z,c-variable // 人件費 ----------------- 数値出力範囲 $d all // 全範囲 ------------------ 変数変換 $t ..... 「&.s」は期間数値合計， 「&.a」は期間数値平均，「&.p」は期数値選択 X=&.s(X)1,1 // ●「1,1」の1は年次に,1は第1四半期始点の暦年合計&.s Y=&.s(Y)1,1 Z=&.s(Z)1,1 S=(X+Y+Z) // 粗付加価値 x=(X/S)*100 // 営業利益構成比％ x y=(Y/S)*100 // 減価償却費構成比％ y z=(Z/S)*100 // 人件費構成比％ z p=:ci(x) // データの散布点印字用の文字系列p ............. =pr*(X,Y,Z,S,x,y,z,p) // 数値プリント f=(-1,-1,+100) // 関数f y= -x -z +100 （つまり x+y+z = 100） ............. i=(100,50,0,0,0,50) // 三角形の頂点と中点の座標 j=(0,50,100,50,0,0) k=(0,0,0,50,100,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) // 数値プリントしてチェックするには先頭....を取る ------------------------　三角グラフ平面用に変換 ?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 // 三角形の頂点と中点の三角グラフ平面への横軸変換 ------------- 小さい三角形の頂点の座標 a=(0,0,50) // ★中三角形の場合は a=(0,0,70) b=(0,50,0) // ★ b=(0,70,0) c=(100,50,50) // ★ c=(100,30,30) .... // @は @=(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) ★中三角形の場合 v=(-1.732,140) ========================= グラフセクション $$g ----------------- ゼロ軸表示 $z xyz?X?Y // 変量xyz ?X ?Y についてゼロ軸表示 ----------------- 目盛 $g ?X,001 // ?X変量の目盛 1間隔（標準は10間隔） ?Y,001 // ?Y変量の目盛 1間隔（標準は10間隔） ------------------ プロット $p XYZ // 変量XYZについて同一スケールでプロット xyz // 変量xyzについて同一スケールでプロット ----------------- ３次元図 $3 // 　RGB表色３次元バブルプロット j,i,k,Q,* // 縦軸j，横軸i，奥行軸k，散布点印字Q，合成用保存* 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,* // 縦軸?Y,横軸?X,奥行軸なし,印字p=バブル変量S,関数U,V,合成用保存* // 合成 $3 // 　小さい三角グラフ平面 B,A, ,Q,* // 縦軸B，横軸A，奥行軸なし，印字Q，合成用保存* ?Y,?X, ,p=S,U,v,* // 縦軸?Y,横軸?X,奥行軸なし,印字p=バブル変量S,関数U,v,合成用保存* // 合成 ========================= 終了セクション $$