=============== ternary-incorp-current-profit-Small-Medium-Large-ut　======= ================== ユーザデータセクション $$u ----------------- 四半期データ属性コマンド $q 1959.03,2008.03,aa // ★始点年.期,終点年.期 ,数値系列変量名;単位 中小企業経常利益　 ,bb // 空白で同一ケース範囲,数値系列変量名;単位 中堅企業経常利益 ,cc // 空白で同一ケース範囲,数値系列変量名;単位 大企業経常利益 ----------------- データ入力指示コマンド ----------------- データ入力指示コマンド $d ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストされたい． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 32290 34697 92424 40399 46727 126357 41020 40023 131925 53736 48678 145005 45942 40481 139301 50929 59601 159432 39101 48219 167345 72881 61749 172336 59729 55415 172194 46261 59330 195110 45236 55257 183862 60020 60662 184520 46590 48090 174242 42907 48262 177711 50587 60807 201850 73133 67966 223357 52181 62628 236393 51818 65910 268653 42277 64406 261211 97460 75100 253181 70032 65490 250356 57023 53542 274944 78165 63062 258289 82821 55261 254808 63527 52410 214838 74396 56391 240962 106654 63080 269630 152651 89388 318018 133683 75360 292786 141890 104627 378026 163518 93940 367381 220347 125188 448793 219890 119655 400932 173893 151256 479431 201034 112004 446283 275403 167500 510863 240670 150382 476389 226982 181336 553062 249219 161654 537743 391920 216989 630934 342109 224730 590277 310291 228722 728458 356889 219672 695948 460309 253322 746851 374512 229157 700286 303539 185572 719257 271359 163138 626375 426518 179637 626263 275264 153585 554121 279595 167554 609487 328532 204638 611919 542836 220272 645245 422772 225712 726662 518144 311428 886302 796685 372042 1006679 1042258 431178 1176731 937634 423830 1121539 984879 518319 1285903 1150476 505534 999969 972673 352613 831017 468465 150772 916524 311824 72303 605353 353520 74896 527546 802483 143227 457023 616330 117768 496590 576922 167213 611570 764484 298850 870575 1150958 318741 885460 699603 271121 1194302 596588 212920 1287548 839562 284380 1097816 1216387 270352 1092916 680999 280031 1142060 869447 301999 1157175 1248080 396274 1224069 1363626 492678 1417469 1044237 498806 1319956 1209155 509939 1672420 1556933 575707 1429047 2012734 727380 1941754 1504181 649866 1744182 1492636 616752 2103600 1852957 712958 1991673 2054348 736758 2643844 1126562 534591 2172604 1201082 540201 2418148 1629835 622515 1953383 1834557 625290 1894090 1276666 550118 1603211 1521878 621136 2372609 1665654 700476 2089173 1803068 541511 1956698 1050152 481515 1634856 1176545 504020 2176161 1633421 641817 2061078 2012333 558575 1872682 1387792 558789 1970052 1648174 672646 2710215 2001907 752086 2685694 2007476 705609 2754387 1333007 643957 2528023 1522536 802871 3170360 1968342 791341 2774752 2213646 764795 3132330 1292963 513026 2845671 1914568 639681 2879769 2013025 697504 2379563 2520854 760254 2583874 1684409 660499 2426999 2093088 812602 2747918 2122085 807166 2665845 3454816 954080 3090899 2370716 902050 3111195 3093333 1085909 3631084 3417032 1066168 3274403 3858592 1243901 4272648 2753886 1041741 4041148 3482620 1325536 4505617 5104991 1496930 4017318 3398586 1168037 4511882 3393625 1226155 4735062 4040291 1259037 4967643 3733736 1290781 4297024 3717559 1195475 4892239 2755400 1144426 4731687 2932195 1217868 4701269 3497268 1381500 4291152 3589539 1061121 4183612 2116709 831963 4584349 2920435 922950 4001886 3494523 1247933 3079097 2744119 656148 2933573 1481271 621752 3615588 1433193 603092 2716256 2986930 935644 2802088 2981392 552856 2445113 1210985 449461 2820922 1405061 546833 2506359 2999751 920227 2414020 3068790 387237 2513468 1762446 765091 3247776 2229662 780935 3130672 3317954 952701 2741649 2949790 461302 2958661 1834770 795363 3644014 2400909 879340 3917361 4111693 1212182 3467351 4167725 751836 3643998 2123102 882802 4064790 2878417 1049687 4378942 5027025 1248400 4118243 4457820 627770 3908284 2307698 833577 4210448 3058696 863229 3635862 3569087 974007 3210842 2824750 372279 2729259 1747961 594118 3466163 2766602 660121 2317314 3230712 1044984 3641439 2975576 576680 2942491 2033386 896559 4200762 2948343 1073079 4124026 4995169 1528557 4457517 3536939 1030421 4535580 2539763 1179854 5152692 4316423 1267826 5155827 4958605 1360835 4667275 4146778 888360 4156189 1655760 851815 3479087 3009348 819611 3539470 4284954 1368093 3735102 2839908 816972 3992567 1704662 1012250 4499890 2545763 1139842 5358462 4211936 1542088 4573693 3044207 996254 4645555 1724328 1124563 5047128 3500101 1498388 5574073 5295890 1867953 5705781 4025087 1326374 6313896 2730169 1414420 6732715 4125781 1624326 6686075 6151911 2319808 6436611 4424289 1385739 7354978 3212789 1464706 6913352 4073521 1864528 7879965 5687573 2163267 7661537 4138082 1689606 8665983 3251911 1974605 8164668 4072828 2310344 8584630 5987170 2478992 8201009 4696126 1668423 9875010 3378973 1641652 8273008 3840426 2006077 8442932 4867487 2105719 6781591 4416285 1453928 9523671 2569760 1483532 6262191 ================== 変量分析セクション $$v ----------------- 変量記号割当 $a a,aa // 中小企業経常利益 b,bb // 中堅企業経常利益 c,cc // 大企業経常利益 ----------------- 数値出力範囲 $d all // 全範囲 ------------------ 変数変換 $t ..... 月次を年度に編集するには，定数部分を「1,4」で4月始点 ..... 四半期を年度に編集するには，定数部分を「1,2」で第２四半期始点 ..... 月次・四半期を暦年に編集するには，定数部分を「1,1」で1月・第1四半期始点 ..... 「&.s」は期間数値合計， 「&.a」は期間数値平均，「&.p」は期数値選択 //a=&.s(a)1,1 // ●「1,1」の1は年次に,1は第1四半期始点の暦年合計&.sには先頭//を取る //b=&.s(b)1,1 // ●「1,1」 //c=&.s(c)1,1 // ●「1,1」 a=<.a(a) // 移動平均　●●年次の系列では先頭に//を挿入してコメントアウトする b=<.a(b) // 移動平均　●●年次の系列では先頭に//を挿入してコメントアウトする c=<.a(c) // 移動平均　●●年次の系列では先頭に//を挿入してコメントアウトする ------------------- X,Y,Zの各変量と上記のa,b,cの入力変量とを対応させる X=(b) // 中堅企業経常利益 Y=(a) // 中小企業経常利益 Z=(c) // 大企業経常利益 ....... S=(X+Y+Z) // 経常利益合計 S 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) // データの三角グラフ平面への縦軸変換 X=(2*x+y)/1.7320508 // データの三角グラフ平面への横軸変換 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) // 小さい三角形の頂点の座標 b=(0,50,0) c=(100,50,50) .......... // @=(0*x)は上記の原点の変量（ケースの数はデータ分） a=(@,a) // 原点の変量と小さい三角形の頂点を連結した変量 b=(@,b) c=(@,c) .... =pr*(a,b,c,Q) // 数値プリントしてチェックするには先頭....を取る --------------------- B=(b) // 小さい三角形の頂点の三角グラフ平面への縦軸変換 A=(2*a+b)/1.7320508 // 小さい三角形の頂点の三角グラフ平面への横軸変換 v=(-1.732,100) // 関数v Y=-1.732X+100 小さい三角形の右辺 ========================= グラフセクション $$g ----------------- ゼロ軸表示 $z xyzXY // 変量xyzXY についてゼロ軸表示 ----------------- 目盛 $g X,001 // X変量の目盛 1間隔（標準は10間隔） Y,001 // X変量の目盛 1間隔（標準は10間隔） ----------------- ３次元図 $3 // 　三角グラフ立体 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,合成用保存* // 合成 ========================= 終了セクション $$