==== skyline3-io-east-japan-earthquake-iwate-miyagi-fukushima ========= ==== 東日本大震災の主要被災県［岩手県・宮城県・福島県］の ==== 2005年産業連関表の合成スカイライン図・合成扇形散布図 ========================================================================== $$u // ユーザデータ・セクション ---------------------　岩手県分 ------------------------ $c // クロスセクションデータ属性コマンド 0001.00,0035.00,aaa // ケース始点,終点番号 ,★第１系列名　県内需用合計 ,bbb // 空白で同一ケース範囲,★第２系列名　県内生産額 $d // データ入力指示コマンド ctype // 変量毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 133297 161790 84424 124538 52969 53234 29950 40955 22075 14545 437686 530688 71560 34470 116995 122293 157987 48894 147333 6734 72023 67489 104713 75172 54257 22488 104924 118529 205702 264320 365060 550539 377159 427767 36222 48576 192411 120678 683477 683477 144909 103921 132045 132045 789428 687216 357607 347892 645693 643630 349894 381388 331524 225746 400925 400925 381324 376794 533187 533187 46534 46534 507520 447405 474697 459375 11755 11755 39101 34415 ---------------------　宮城県分 ------------------------ $c // クロスセクションデータ属性コマンド 0001.00,0037.00,ccc // ケース始点,終点番号 ,★第３系列名　県内需用合計 ,ddd // 空白で同一ケース範囲,★第４系列名　県内生産額 $d // データ入力指示コマンド ctype // 変量毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 158571 138402 72811 78387 25227 25227 16978 18448 118399 82970 343722 12937 807891 868304 117376 20740 280851 328479 98078 99939 289966 85858 303266 482875 115303 92972 362413 346395 191154 172302 170717 237451 531569 707842 201123 161606 37859 30266 306041 209583 672692 672692 522618 522618 257125 257480 153728 153944 1730634 1825717 735454 711595 1291903 1308528 892237 875055 715353 606484 823958 823958 674533 668546 780694 779326 75934 83837 1067222 1109100 987957 847896 24729 24729 77097 63458 ---------------------　福島県分 ------------------------ $c // クロスセクションデータ属性コマンド 0001.00,0036.00,eee // ケース始点,終点番号 ,★第５系列名　県内需用合計 ,fff // 空白で同一ケース範囲,★第６系列名　県内生産額 $d // データ入力指示コマンド ctype // 変量毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 227620 276874 30012 25108 20207 20338 298868 20709 576517 814465 114070 89340 241364 277593 431520 402750 329661 7194 130367 188755 171947 89648 231575 262479 190902 230424 351747 302206 249159 367965 166694 836589 532573 512820 390568 405692 60531 184340 449734 535615 923010 923010 354594 1668867 183344 190631 1517212 1019024 543693 502458 867709 867184 743748 725270 636518 293463 612885 612885 685710 652496 792051 790461 69033 72041 1094735 559874 744693 750657 27107 27107 99134 85366 ====================== $$v // 変量分析セクション $a // 変量記号の割り当て a,aaa // 　岩手県の県内需用合計 b,bbb // 　 県内生産額 c,ccc // 　宮城県の県内需用合計 d,ddd // 県内生産額 e,eee // 　福島県の県内需用合計 f,fff // 　 県内生産額 ---------------- $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換 k=(b/a*100) // 岩手県の自給率　％ l=(d/c*100) // 宮城県の自給率　％ m=(f/e*100) // 宮城県の自給率　％ .................. P=:ci(a) // 岩手県の部門識別文字列P作成 Q=:ci(c) // 宮城県の部門識別文字列Q作成 R=:ci(e) // 宮城県の部門識別文字列R作成 =pr*(a,b,c,d,e,f,k,l,m,P,Q,R) // 数値プリント .................... i=max(a) //　岩手県の産業部門別県内需用合計の最大値maxのスカラーi（区切りに利用） I=:ci(i)* //　スカラーiに文字 "*" の文字列変量I　作成（スカイライン図区切りに利用） ?Y=(a,i,c,i,e) //　県内需用合計　岩手分a＋スカラーi＋宮城分c＋スカラーi＋福島分e の連結変量?Y ?K=(k,0,l,0,m) //　自給率 岩手分k＋数値0＋宮城分l＋数値0＋福島分m の連結変量?K ?P=(P,I,Q,I,R) //　文字列変量 岩手分P＋文字列I＋宮城分Q＋文字列I＋福島分R の連結変量?P q=cum(?Y) // 分母変量?Yの累和 q<i>=?Y<1>+?Y<2>+...+?Y<i-1>+?Y<i> r=(q-?Y) // 直前までの累和 r<i>=?Y<1>+?Y<2>+...+?Y<i-1> =q<i>-?Y<i> .................... h=(100) // ★ h 自給率 100％　　 .=(0,h) // スカイライン図上の自給率 100％の横線 y=0*x+h の右辺係数の関数「.」 +=(1,0) // 散布図の自給率 100％の斜線 y=1*x+0 の右辺係数 [1,0] の関数「+」 ............ 最大ケース(最大部門数）の変量zを作成 z=csl(a,c) // 変量aと変量cの統合（aの欠測ケースにはcの数値を採用） z=csl(z,e) // 変量zと変量eの統合（zの欠測ケースにはeの数値を採用） z=(0*z) // 最大ケースの変量zの全ケースにゼロの数値（扇形散布図の原点に利用） S=:ci(z) // 最大ケースの変量zの識別文字列S作成 =============== $$g // グラフセクション $d // 表示範囲 all // 全範囲 $g // スケールの目盛り指示コマンド（標準10ポイント） ?K,001 // 変量?Kの目盛りを細かく1ポイントごとに b,001 // 変量b の目盛りを細かく1ポイントごとに $z // ゼロ軸表示 ?Kbdz // 変量?K,b,d,zのゼロ軸表示 ---------------------------------- $3 // ３次元図　自給率スカイライン図　　　横幅：県内需用合計 ?K,q, ,?P,.,* // 縦軸?K,横軸q,奥行軸なし,個体識別?P,関数.,合成用保存* ?K,r, ,?P,* // 縦軸?K,横軸r,奥行軸なし,個体識別?P,合成用保存* // 合成 自給率スカイライン図（リンク面描画，３次元図圧縮） ........ $3 // ３次元図　扇形散布図 縦軸：県内生産額 横軸：県内需用合計 b,a, ,P,+,* // 縦軸b,横軸a,奥行軸なし,個体識別P,関数+,合成用保存* 【岩手県】 z,z, ,S,* // 縦軸z,横軸z,奥行軸なし,個体識別S,合成用保存* 【原点】 d,c, ,Q,* // 縦軸d,横軸c,奥行軸なし,個体識別Q,合成用保存* 【宮城県】 z,z, ,S,* // 縦軸z,横軸z,奥行軸なし,個体識別S,合成用保存* 【原点】 f,e, ,R,* // 縦軸f,横軸e,奥行軸なし,個体識別R,合成用保存* 【福島県】 // 合成（２次元図上の散布点と原点のリンク，３次元図圧縮を利用） ======================= $$ // 終了セクション