==== skyline-io-east-japan-earthquake-3pref-merge ========= ==== 東日本大震災の主要被災県［岩手県・宮城県・福島県］広域の ==== 2005年産業連関表集約値のスカイライン図・扇形散布図 ========================================================================== ================== $$u // ユーザデータ・セクション $c // クロスセクションデータ属性コマンド 0001.00,0031.00,域内需要 // ケース始点,終点番号 ,★第１系列名 ,域内生産額 // 空白で同一ケース範囲,★第２系列名 $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 ====================== $$v // 変量分析セクション $a // 変量記号の割り当て d,域内需要 x,域内生産額 ---------------- $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換 s=(x)/d*100 // 自給率 =pr*(d,x,s) // 数値プリント .................... P=:ci(x) // 個体識別文字列P作成 q=cum(d) // 域内需要の累和 q<i>=d<1>+d<2>+...+d<i-1>+d<i> r=(q-d) // 直前までの累和 r<i>=d<1>+d<2>+...+d<i-1> =q<i>-d<i> .................... .=(0,100) // 自給率100の線 y=100=0*x+100 の右辺係数 [0,100] の関数「.」 +=(1,0) // 散布図の45度線 y=x+0 の右辺係数 [1,0] の関数「+」 z=(0*x) // すべてゼロの数値の変量zを作成（図の原点に利用） .................... u=(x-d) // 域際収支u = 域内生産額x - 域内需要d h=(u)/d*100 // 域際収支率 =pr*(u,d,h) // 数値プリント =============== $$g // グラフセクション $d // 表示範囲 all // 全範囲 $g // スケールの目盛り指示コマンド（標準10ポイント） s,002 // 変量sの目盛りを細かく2ポイントごとに x,002 h,002 u,002 $z // ゼロ軸表示 sdx // 変量s,d,xのゼロ軸表示 $p // プロット xd,s // 変量x,dを同一スケールで，変量sを別スケール xdu,h // 変量x,d,uを同一スケールで，変量hを別スケール ------------ 自給率　------------------------------------- $3 // ３次元図　スカイライン図 s,q, ,P,.,* // 縦軸s,横軸q,奥行軸なし,個体識別P,関数.,合成用保存* s,r, ,P,* // 縦軸s,横軸r,奥行軸なし,個体識別P,合成用保存* // 合成 自給率スカイライン図（リンク面描画，３次元図圧縮） ........ $3 // ３次元図　扇形散布図 x,d, ,P,+,* // 縦軸x,横軸d,奥行軸なし,個体識別P,関数+,合成用保存* z,z, ,P,* // 縦軸z,横軸z,奥行軸なし,個体識別P,合成用保存【原点】 // 合成（２次元図上の散布点と原点のリンク，３次元図圧縮を利用） ------------ 域際収支率　---------------------------------- $3 // ３次元図　スカイライン図 h,q, ,P,* // 縦軸h,横軸q,奥行軸なし,個体識別P,合成用保存* h,r, ,P,* // 縦軸h,横軸r,奥行軸なし,個体識別P,合成用保存* // 合成 域際収支率スカイライン図（リンク面描画，３次元図圧縮） ........ $3 // ３次元図　扇形散布図 u,d, ,P=x,* // 縦軸u,横軸d,奥行軸なし,個体識別P=バブル変量x,合成用保存* z,z, ,P,* // 縦軸z,横軸z,奥行軸なし,個体識別P,合成用保存*【原点】 // 合成（２次元図上の散布点と原点のリンク，３次元図圧縮を利用） ======================= $$ // 終了セクション