==== skyline2-io-east-japan-earthquake-3pref-merge-hyogo ========= ==== 東日本大震災の［岩手県・宮城県・福島県］広域の産業連関表集約値 ==== と兵庫県産業連関表の合成スカイライン図・合成扇形散布図 ========================================================================== $$u // ユーザデータ・セクション ---------------------　東北三県広域分 ------------------------ $c // クロスセクションデータ属性コマンド 0001.00,0031.00,aaa // ケース始点,終点番号 ,★第１系列名　域内需用合計 ,bbb // 空白で同一ケース範囲,★第２系列名　域内生産額 $d // データ入力指示コマンド ctype // 変量毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 99959 96790 664665 48191 2692600 3162939 303006 144550 639210 728365 879473 537502 780260 496803 317693 349216 924905 796181 486980 521255 728166 803977 1845055 2975755 968850 995065 134612 263182 1046264 965815 2801797 2801797 756628 2030268 469117 476620 4037274 3531957 1636754 1561945 2805305 2819342 1985879 1981713 1683395 1125693 1837768 1837768 1741567 1697836 2105932 2102974 191501 202412 2669477 2116379 2207347 2057928 63591 63591 215332 183239 ---------------------　兵庫県分 ------------------------ $c // クロスセクションデータ属性コマンド 0001.00,0031.00,ccc // ケース始点,終点番号 ,★第３系列名　県内需用合計 ,ddd // 空白で同一ケース範囲,★第４系列名　県内生産額 $d // データ入力指示コマンド ctype // 変量毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 31417 18756 407249 39366 2367895 2190568 281068 134675 567676 474482 1082947 1138561 665113 97321 283219 280602 2119369 2398394 575842 752335 1091913 1946790 1691704 2684705 946611 1147855 160322 52995 1051225 1144231 2289103 2289103 807770 752337 358827 347843 3660233 2745494 1515858 1480759 2773769 2779078 1520441 1738178 1439790 776411 1290213 1290213 1531500 1549400 1980427 1990617 233513 221793 2168357 1435098 2019216 2279889 52753 52753 160307 134562 ====================== $$v // 変量分析セクション $a // 変量記号の割り当て a,aaa // 　東北三県広域の域内需用合計 b,bbb // 　 　　　域内生産額 c,ccc // 　兵庫県の県内需用合計 d,ddd // 県内生産額 ---------------- $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換 k=(b/a*100) // 東北三県広域の自給率　％ l=(d/c*100) // 兵庫県の自給率　％ .................. P=:ci(a) // 東北三県広域の部門識別文字列P作成 Q=:ci(c) // 兵庫県の部門識別文字列Q作成 =pr*(a,b,k,P,c,d,l,Q) // 数値プリント .................... i=max(a) //　東北三県広域の産業部門別域内需用合計の最大値maxのスカラーi（区切りに利用） I=:ci(i)* //　スカラーiに文字 "*" の文字列変量I　作成（スカイライン図区切りに利用） ?Y=(a,i,c) //　域内需用合計　東北三県広域分a＋スカラーi＋兵庫分c の連結変量?Y ?K=(k,0,l) //　自給率 東北三県広域分k＋数値0＋兵庫分l の連結変量?K ?P=(P,I,Q) //　文字列変量 東北三県広域分P＋文字列I＋兵庫分Q の連結変量?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 の右辺係数の関数「.」 +=(h/100,0) // 散布図の自給率 h％の斜線 y=(h/100)*x+0 の右辺係数の関数「+」 ............ 最大ケース(最大部門数）の変量zを作成 z=csl(a,c) // 変量aと変量cの統合（aの欠測ケースにはcの数値を採用） z=(0*a) // 最大ケースの変量zの全ケースにゼロの数値（扇形散布図の原点に利用） S=:ci(z) // 最大ケースの変量zの識別文字列S作成 .................... u=(b-a) // 東北三県広域の域際収支u = 域内生産額b - 域内需要a m=(u)/a*100 // 東北三県広域の域際収支率m v=(d-c) // 兵庫県の県際収支v = 県内生産額d - 県内需要c n=(v)/c*100 // 兵庫県の県際収支率n =pr*(u,a,m,v,c,n) // 数値プリント ?M=(m,0,n) //　域際収支率 東北三県広域分m＋数値0＋兵庫分n の連結変量?M =============== $$g // グラフセクション $d // 表示範囲 all // 全範囲 $g // スケールの目盛り指示コマンド（標準10ポイント） ?K,001 // 変量?Kの目盛りを細かく1ポイントごとに b,001 // 変量b の目盛りを細かく1ポイントごとに ?M,001 // 変量?Mの目盛りを細かく1ポイントごとに u,001 // 変量u の目盛りを細かく1ポイントごとに $z // ゼロ軸表示 ?Kbd // 変量?K,b,dのゼロ軸表示 ---------------------- 自給率 ------------ $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,合成用保存* 【兵庫県】 // 合成（２次元図上の散布点と原点のリンク，３次元図圧縮を利用） ---------------------- 域際収支率 ------------ $3 // ３次元図　域際収支率スカイライン図　　　横幅：域内需用合計 ?M,q, ,?P,* // 縦軸?M,横軸q,奥行軸なし,個体識別?P,合成用保存* ?M,r, ,?P,* // 縦軸?M,横軸r,奥行軸なし,個体識別?P,合成用保存* // 合成 域際収支率スカイライン図（リンク面描画，３次元図圧縮） ........ $3 // ３次元図　扇形散布図 縦軸：域際収支 横軸：域内需用合計 u,a, ,P=b,* // 縦軸u,横軸a,奥行軸なし,個体識別P=バブルb,合成用保存* 【東北三県広域】 z,z, ,S,* // 縦軸z,横軸z,奥行軸なし,個体識別S,合成用保存* 　　　【原点】 v,c, ,Q=d,* // 縦軸v,横軸c,奥行軸なし,個体識別Q=バブルd,合成用保存* 【兵庫県】 // 合成（２次元図上の散布点と原点のリンク，３次元図圧縮を利用） ======================= $$ // 終了セクション