============= ternary-prefectural-gdp2005-1990-uc ================ ======= 【県民経済計算 第1次産業 第２次産業 第３次産業】 ==================　三角三色バブルグラフの異時点比較 ================================================ ==================　1990年度 =================== $$u // ユーザデータ・セクション $c // クロスセクションデータ属性コマンド ---------- クロスセクションでは県名や企業名等の文字データを扱うことも多い． ---------- 各文字変量には漢字２文字（英字４文字）のみ入力される． ---------- それを超える文字は無視される． ---------文字系列変量名の先頭は「:n1,」「:n2,」…「:n6,」のいずれかを用いる 0001.00,0047.00,:n1,県名 // ケース始点,終点番号 ,漢字県名系列名 ,xxx // 空白で同一ケース範囲,★第１系列名 ,yyy // 空白で同一ケース範囲,★第２系列名 ,zzz // 空白で同一ケース範囲,★第３系列名 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 北海道 1045083 4161889 12604317 青森県 295599 848006 2752435 岩手県 311264 1189459 2468167 宮城県 308516 2197082 4984597 秋田県 255386 1013661 2126737 山形県 206921 1344574 2167868 福島県 264646 2500907 3965077 茨城県 359417 4796464 5186596 栃木県 203881 3652351 3731370 群馬県 182038 3327786 3700565 埼玉県 177874 7772360 10601251 千葉県 338503 5918126 10613222 東京都 74925 18353357 63526647 神奈川県 92404 13011901 17241218 新潟県 287309 2865007 5019475 富山県 95696 1908115 2403950 石川県 82897 1507654 2615601 福井県 65934 1004223 1922550 山梨県 86379 1311593 1588940 長野県 315332 3078274 4080987 岐阜県 129216 2824982 3879924 静岡県 260887 6964867 7412894 愛知県 262726 14292538 16054654 三重県 199572 2745470 3267900 滋賀県 68922 2916383 2111753 京都府 66940 3123099 6074041 大阪府 47338 11765912 28158138 兵庫県 187317 7541434 11218091 奈良県 65969 1348109 2022542 和歌山県 146693 1127826 1806969 鳥取県 90151 608343 1234971 島根県 100168 649965 1426110 岡山県 131286 2747254 3780845 広島県 143088 3832473 7001500 山口県 123922 2106561 3035321 徳島県 111402 801907 1422368 香川県 95183 1097491 2205198 愛媛県 211154 1583857 2602572 高知県 164594 491970 1540255 福岡県 229264 4377770 10990887 佐賀県 140570 783210 1506913 長崎県 219766 922454 2769826 熊本県 355093 1375533 3519361 大分県 178466 1428869 2219025 宮崎県 258949 810948 1998359 鹿児島県 340451 1108657 3132184 沖縄県 85160 561483 2299275 ====================== $$v // 変量分析セクション ((B(( // 繰り返しルーティン B の始点 $a // 変量記号の割り当てコマンド N,:n1,県名 X,xxx Y,yyy Z,zzz ---------------- $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換コマンド S=(X+Y+Z) // 県内総生産 x=(X/S*100) // 第１次産業構成比％ y=(Y/S*100) // 第２次産業構成比％ z=(Z/S*100) // 第３次産業構成比％ p=:ci(x) // ケース識別文字系列作成 =pr*(N,x,y,z,p) // 数値プリント Y=(y) // データのy変量の三角グラフ平面への縦軸変換 X=(2*x+y)/1.7320508 // データのx変量の三角グラフ平面への横軸変換 ............. ))B)) // 繰り返しルーティン B の終点 $t // 変数変換コマンド ?x=(x) // 異時点グラフ作成用に古い時点の変量の記号を変更 ?y=(y) ?z=(z) ?Y=(Y) ?X=(X) ?S=(S) ================================================ ====================== 2005年度 ================ $$u // ユーザデータ・セクション $c // クロスセクションデータ属性コマンド 0001.00,0047.00,:n1,県名 // ケース始点,終点番号 ,漢字県名2文字系列名 ,xxx // 空白で同一ケース範囲 ,★第１系列名 ,yyy // 空白で同一ケース範囲,★第２系列名 ,zzz // 空白で同一ケース範囲,★第３系列名 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 北海道 704071 3445555 16313143 青森県 205871 766220 3492734 岩手県 168025 1095544 3467387 宮城県 162206 1856147 6770671 秋田県 122504 824696 2862829 山形県 128935 1156009 2961396 福島県 141370 2562055 5313870 茨城県 255304 3969768 6992068 栃木県 159147 3476975 4824890 群馬県 127092 2882112 4830841 埼玉県 117105 5864378 15492213 千葉県 277264 4831073 15398551 東京都 47177 13324590 84428097 神奈川県 56922 8116873 24023711 新潟県 220724 2743518 6654270 富山県 53212 1733935 3042727 石川県 50831 1278975 3442918 福井県 35902 982191 2463082 山梨県 58265 1068547 2209855 長野県 146153 2798830 5604445 岐阜県 77728 2490547 5008871 静岡県 192667 7068315 9910591 愛知県 208639 13907916 22814718 三重県 116776 3206302 4688957 滋賀県 43489 2792225 3236572 京都府 50595 2752340 7608932 大阪府 30232 8431234 31546718 兵庫県 102649 5748531 13799911 奈良県 35903 1004277 2938418 和歌山県 76324 1280694 2343926 鳥取県 46217 524826 1507088 島根県 52981 555955 1971572 岡山県 87390 2539316 4895766 広島県 85719 3921602 8710617 山口県 55916 2225390 3820229 徳島県 66943 878925 1969590 香川県 58461 870908 2918645 愛媛県 121986 1319537 3610023 高知県 96795 357019 1983417 福岡県 154113 3739474 14789546 佐賀県 96318 786228 2129210 長崎県 123085 768038 3671766 熊本県 195858 1310461 4367830 大分県 105056 1373852 3094723 宮崎県 191671 779572 2684401 鹿児島県 250966 1044284 4260552 沖縄県 66712 437146 3253535 ====================== $$v // 変量分析セクション ((B)) // 繰り返しルーティン B の実行 ================================================ $t // 変数変換コマンド 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 ------------------------　三角グラフ平面用に変換 U=(1.732,0) // 関数U Y=1.732X+0 三角形の左辺 V=(-1.732,200) // 関数V Y=-1.732X+200 三角形の右辺 W=(-1.732,0) // 関数W W=-1.732X+0 原点を通り三角形の右辺に平行 ............. 三角形の頂点と中点の座標 J=(j) // 三角形の頂点と中点の三角グラフ平面への縦軸変換 I=(2*i+j)/1.7320508 // 三角形の頂点と中点の三角グラフ平面への横軸変換 --------------------- a=(0,0,0,25,50) // 小さい三角形の頂点と中点のの座標 b=(0,50,25,0,0) c=(100,50,75,75,50) B=(b) // 小さい三角形の頂点と中点の三角グラフ平面への縦軸変換 A=(2*a+b)/1.7320508 // 小さい三角形の頂点と中点の三角グラフ平面への横軸変換 v=(-1.732,100) // 関数v Y=-1.732X+ (50*2) 小さい三角形の右辺 ========================= グラフセクション $$g ----------------- ゼロ軸表示 $z xyzXY // 変量xyzXY についてゼロ軸表示 ----------------- 目盛 $g X,001 // X変量の目盛 1間隔（標準は10間隔） Y,001 // Y変量の目盛 1間隔（標準は10間隔） y,001 // y変量の目盛 1間隔（標準は10間隔） ----------------- ３次元図 $3 // 三角グラフ立体 ●フリーCF=0 の平面の表示には次行を y,x,z,p=S,f,G,* y,x,z,p=S,f,* // ●縦軸y，横軸x，奥行軸z，印字p=バブル変量S，関数f,合成用保存* j,i,k,Q,* // 縦軸j，横軸i，奥行軸k，散布点印字Q，合成用保存* ?y,?x,?z,p=?S,f,* // 縦軸?y横軸?x奥行軸?z,印字p=バブル?S,関数f合成用保存* // 合成 $3 // 　三角グラフ平面 Y,X, ,p=S,U,V,W,* // 縦軸Y横軸X奥行軸なし印字p=バブル変量S,関数U,V,W合成保存* J,I, ,Q,* // 縦軸J，横軸I，奥行軸なし，印字Q，合成用保存* ?Y,?X, ,p=?S,U,V,W,* // 縦軸?Y横軸?X奥行軸なし印字p=バブルS,関数U,V,W合成保存* // 合成 ----------------- ゼロ軸表示 $z // ゼロ軸表示をリセット xyXY // 変量xyzXY についてゼロ軸表示（変量zのゼロ軸表示を止める） $3 // 　小さい三角グラフ立体 y,x,z,p=S,f,* // 縦軸y，横軸x，奥行軸z，印字p=バブル変量S，関数f,合成用保存* b,a,c,Q,* // 縦軸b，横軸a，奥行軸c，散布点印字Q，合成用保存* ?y,?x,?z,p=?S,f,* // 縦軸?y横軸?x奥行軸?z,印字p=バブル?S,関数f,合成用保存* // 合成 $3 // 　小さい三角グラフ平面 Y,X, ,p=S,U,v,W,* // 縦軸Y横軸X奥行軸なし印字p=バブル変量S,関数U,v,W合成保存* B,A, ,Q,* // 縦軸B，横軸A，奥行軸なし，印字Q，合成用保存* ?Y,?X, ,p=?S,U,v,W,* // 縦軸?Y横軸?X奥行軸なし印字p=バブルS,関数U,v,W合成保存* // 合成 ========================= 終了セクション $$