====== skyline3-ascending-age-65over-population-prefecture-2000-2005-2010 ===== ==== 都道府県別2000・2005・2010年老年人口比率の ==== ３時点の合成昇順スカイライン図・合成昇順相対スカイライン図 ==== ・合成累積散布図・合成累積相対散布図【ローレンツ曲線】 ================================================================================= $$u // ユーザデータ・セクション　【第１データ群】 -----------------　2000年分 ---------- $c // クロスセクションデータ属性コマンド 0001.00,0047.00,xxx // ケース始点,終点番号 ,★第１系列名　分子 老年人口（65歳以上人口） ,ddd // 空白で同一ケース範囲,★第２系列名　分母 人口総数（年齢不詳除く） $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 1031552 5656806 287099 1474901 303988 1415635 409156 2364498 279764 1189111 285590 1243872 431797 2126335 495693 2984554 344506 2003722 367117 2020453 889243 6925232 837017 5915476 1910456 12017253 1169528 8475229 526112 2472965 232733 1120453 219666 1176372 169489 828649 173580 887941 475127 2214008 383168 2107001 665574 3766816 1019999 7016136 350959 1856634 215552 1342253 459273 2630037 1315213 8789354 939950 5546545 239432 1440689 226323 1069624 134984 612489 189031 761116 393658 1950126 531537 2876368 339836 1527545 180637 823578 214242 1022338 320078 1492607 191729 812519 870290 5006110 179132 876511 315871 1515609 396020 1858464 265901 1219743 241754 1169586 403239 1785357 182557 1308662 $l // 入力変量のリスト出力コマンド ((B(( // 繰り返しルーティンBの始点 ================================================= $$v // 変量分析セクション $a // 変量記号の割り当て d,ddd // d 分母 x,xxx // x 分子 ---------------- $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換 U=(100) // ★比率の表示単位 百分率100 10万人当たり　100000 q=(x/d)*U // 比率q t=t..(x) // 順序数（第1ケース1，第2ケース2，第3ケース3，…） j=r.l(q)blank // ★選択変量（ここではq）での順位（昇順）j blankで 欠落値も最後の順位をつける m=:ci(d) // 個体識別文字列m作成 =pr*(d,x,q,j,m) // 数値プリント ............................... e=pmt(d,j) // 順位jで並び替え後の 分母e y=pmt(x,j) // 順位jで並び替え後の 分子y r=pmt(q,j) // 順位jで並び替え後の 比率r n=pmt(m,j) // 順位jで並び替え後の 個体識別文字n n,nam,:ci,n=pmt(m,j) // 並び替え後の個体識別変量nを文字列を示す変量名（先頭「:ci,」）に変更 =pr*(e,y,r,n) // 数値プリント ................................ f=cum(e) // 累積分母f f<i>=e<1>+e<2>+...+e<i-1>+e<i> g=(f-e) // １つ前までの累積分母 g<i>=e<1>+e<2>+...+e<i-1> =f<i>-e<i> z=cum(y) // 累積分子z z<i>=y<1>+y<2>+...+y<i-1>+y<i> v=(z-y) // １つ前までの累積分子 v<i>=y<1>+y<2>+...+y<i-1> =z<i>-y<i> a=@.s(d) // 分母合計a（スカラー） u=@.s(x) // 分子合計u（スカラー） s=(u/a) // 全体比率s（スカラー） .......................... h=(f/a) // 累積相対分母h w=(z/u) // 累積相対分子w =pr*(f,z,h,w,n) // 数値プリント .......................... ジニ係数の計測 k=(h-h1)*(w+w1)*0.5 // 第2〜終点ケースのローレンツ曲線と水平軸の間の各台形面積 i=@."(h)1. // 累積相対分母hの第１ケースの値（スカラー） l=@."(w)1. // 累積相対分子wの第１ケースの値（スカラー） k=@.s(k) // 第2〜終点ケースのローレンツ曲線と水平軸の間の各台形面積の合計（スカラー） k=(0.5-k-i*l*0.5)*2 // 45度線下の三角形面積0.5とローレンツ曲線と水平軸の間の面積の差を２倍 【ジニ係数】 k,nam,ジニ係数 // 変量kに変量名を付与 =pr*(a,u,s,k) // 数値プリント .................... >=(0,s*U) // 全体比率s（スカラー）（表示単位U）の横線 y=0*x+s*U の右辺係数 [0,s*U] の関数「>」 ^=(s,0) // 累積散布図の比率の斜線 y=s*x+0 の右辺係数 [s,0] の関数「^」 :=(1,0) // 累積相対散布図【ローレンツ曲線】の45度の斜線 y=1*x+0 の右辺係数 [1,0] の関数「:」 =============== ))B)) // 繰り返しルーティンBの終点 ====================================== $$v // 変量分析セクション $t // 変数変換 A=(a) // 合成グラフ作成用に，第１群の変量 の記号を変更 R=(r) F=(f) N=(n) G=(g) V=(v) Z=(z) W=(w) H=(h) Y=(y) <=(>) ~=(^) ============================================================================ =================== $$u // ユーザデータ・セクション　【第２データ群】 -----------------　2005年分 ---------- $c // クロスセクションデータ属性コマンド 0001.00,0047.00,xxx // ケース始点,終点番号 ,★第１系列名　分子 老年人口（65歳以上人口） ,ddd // 空白で同一ケース範囲,★第２系列名　分母 人口総数（年齢不詳除く） $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 1205692 5620813 326562 1436377 339957 1380788 470512 2354428 308193 1144988 309913 1215596 474860 2089888 576272 2973344 390896 2012654 416909 2023163 1157006 7035620 1060343 6034291 2295527 12415786 1480262 8753034 580739 2425910 258317 1110786 245739 1173171 185501 820104 193580 883702 521984 2194669 442124 2105552 779193 3787327 1248562 7219132 400647 1864643 249418 1379137 530350 2630868 1634218 8759033 1108564 5569924 283528 1419366 249473 1034571 146113 606475 201103 741116 438054 1950115 600545 2862665 373346 1490606 197313 809769 235508 1010759 351990 1467007 206375 796163 997798 5025603 196108 865941 348820 1478031 437244 1840382 292805 1206218 270586 1152188 434559 1752804 218897 1361146 $l // 入力変量のリスト出力コマンド ================================= ((B)) // 繰り返しルーティンBの実行 ================================================================== =========　　　　　　　【第１データ群】と【第２データ群】の合成 $$v // 変量分析セクション ---------------- $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換 ?F=(F/A) // 第１群 累積分母F を 分母合計A　で割って 第１群相対累積分母?F ?G=(G/A) // 第１群 １つ前までの累積分母G を 分母合計A　で割って 第１群1つ前相対累積分母?G ?f=(f/a) // 第２群 累積分母f を 分母合計a　で割って 第２群相対累積分母?f ?g=(g/a) // 第２群 １つ前までの累積分母g を 分母合計a　で割って 第２群1つ前相対累積分母?g ...................... @=ers(a)1.0 // 連結の中間に挿入する区切り欠落値のスカラー変量@ |=:ci(@)* // 区切り欠落値スカラー変量@に対応する文字（*）の入った変量|作成 ....................... 連結の中間に区切り欠落値@を挿入 R=(R,@,r) // 第１群比率R　と 第２群比率r の　連結 F=(F,@,A+f) // 第１群累積分母F　と 第２群累積分母f に 第1群分母合計Aを加算して　連結 G=(G,@,A+g) // 第１群１つ前累積分母G　と 第２群１つ前累積分母g に 第1群分母合計Aを加算して　連結 Z=(Z,@,z) // 第１群累積分子Z　と 第２群累積分子z の 連結 V=(V,@,v) // 第１群1つ前累積分子V　と 第２群１つ前累積分子v の 連結 ...................... 連結の中間に区切り欠落値@を挿入 ?F=(?F,@,1+?f) // 第１群相対累積分母?F　と 第２群相対累積分母?f に １を加算して　連結 ?G=(?G,@,1+?g) // 第１群１つ前相対累積分母?G　と 第２群１つ前相対累積分母?g に １を加算して　連結 ....................... N=(N,|,n) // 第１群文字列N　と 第２群文字列n の　連結　中間に区切り文字（*）変量|挿入 N,nam,:ci,N=(N,|,n) // 連結文字列変量Nを文字列を示す変量名（先頭「:ci,」）に変更 ^=(s,-s*A) // 合成累積散布図の第２群の比率の斜線 y=s*x-s*A の右辺係数 [s,-s*A] の関数「^」 =pr*(R,F,Z,?F,N) // 数値プリント .................. A=(A+a) // 第１群分母合計A と 第２群分母合計a を加算した　第１・２群の分母合計A（スカラー） .................. ?N=(n) // 合成グラフ作成用に，第２群の変量 の記号を変更 ?W=(w) ?H=(h) ?Y=(y) [=(>) `=(^) $l // 変量記号リスト ============================================================================ =================== $$u // ユーザデータ・セクション　【第３データ群】 -----------------　2010年分 ---------- $c // クロスセクションデータ属性コマンド 0001.00,0047.00,xxx // ケース始点,終点番号 ,★第１系列名　分子 老年人口（65歳以上人口） ,ddd // 空白で同一ケース範囲,★第２系列名　分母 人口総数（年齢不詳除く） $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 1358068 5497549 352768 1368197 360498 1325082 520794 2330633 320450 1084144 321722 1165591 504451 2016978 665065 2956404 438196 1989293 470520 1997353 1464860 7167636 1320120 6128826 2642231 12969827 1819503 8996103 621187 2364157 285102 1089110 275337 1160571 200942 798543 211581 858373 569301 2146726 499399 2071947 891807 3743297 1492085 7348784 447103 1842552 288788 1397124 605709 2593965 1962748 8776018 1281486 5556205 333746 1392819 270846 993424 153614 583663 207398 713769 484718 1928064 676660 2828506 404694 1446699 209926 778310 253245 980366 378591 1422761 218148 758486 1123376 5035432 208096 846749 369290 1420134 463266 1806312 316750 1189703 291301 1130743 449692 1699221 240507 1384780 $l // 入力変量のリスト出力コマンド ================================= ((B)) // 繰り返しルーティンBの実行 ================================================================== =========　　　　　　　【第１データ群】【第２データ群】【第３データ群】の合成 $$v // 変量分析セクション ---------------- $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換 ?f=(f/a) // 第３群 累積分母f を 分母合計a　で割って 第３群相対累積分母?f ?g=(g/a) // 第３群 １つ前までの累積分母g を 分母合計a　で割って 第３群1つ前相対累積分母?g ....................... 連結の中間に区切り欠落値@を挿入 R=(R,@,r) // 第１・２群比率R　と 第３群比率r の　連結 F=(F,@,A+f) // 第１・２群累積分母F　と 第３群累積分母f に 第１・２群分母合計Aを加算して　連結 G=(G,@,A+g) // 第１・２群１つ前累積分母G　と 第３群１つ前累積分母g に 第１・２群分母合計Aを加算して　連結 Z=(Z,@,z) // 第１・２群累積分子Z　と 第３群累積分子z の 連結 V=(V,@,v) // 第１・２群1つ前累積分子V　と 第３群１つ前累積分子v の 連結 ...................... 連結の中間に区切り欠落値@を挿入 ?F=(?F,@,2+?f) // 第１・２群相対累積分母?F　と 第３群相対累積分母?f に 2を加算して　連結 ?G=(?G,@,2+?g) // 第１・２群１つ前相対累積分母?G　と 第３群１つ前相対累積分母?g に 2を加算して　連結 ....................... N=(N,|,n) // 第１・２群文字列N　と 第３群文字列n の　連結 中間に区切り文字（*）変量|挿入 N,nam,:ci,N=(N,|,n) // 連結文字列変量Nを文字列を示す変量名（先頭「:ci,」）に変更 ^=(s,-s*A) // 合成累積散布図の第３群の比率の斜線 y=s*x-s*A の右辺係数 [s,-s*A] の関数「^」 =pr*(R,F,Z,?F,N) // 数値プリント .................. $l // 変量記号リスト ========================== $$g // グラフセクション $z // ゼロ軸表示 　なおゼロ軸表示を抑止するには，この行および次行の先頭に「//」を挿入 RZWH // 変量R Z W Hのゼロ軸表示 $g // スケールの目盛り指示コマンド（標準10ポイント） R,001 // 変量Rの目盛りを細かく1ポイントごとに Z,001 W,001 -------------------------- $3 // ３次元図　合成昇順スカイライン図 R,F, ,N,<,[,>,* // 縦軸R,横軸F,奥行軸なし,個体識別N,関数<[>,合成用保存* R,G, ,N,* // 縦軸R,横軸G,奥行軸なし,個体識別N,合成用保存* // 合成 昇順スカイライン図（リンク縦面描画，３次元図圧縮） ........ $3 // ３次元図　合成昇順相対スカイライン図 R,?F, ,N,<,[,>,* // 縦軸R,横軸?F,奥行軸なし,個体識別N,関数<[>,合成用保存* R,?G, ,N,* // 縦軸R,横軸?G,奥行軸なし,個体識別N,合成用保存* // 合成 昇順相対スカイライン図（リンク縦面描画，３次元図圧縮） ........ $3 // ３次元図　合成昇順累積散布図 V,G, ,N,~,`,^,* // 縦軸V,横軸G,奥行軸なし,個体識別N,関数~`^,合成用保存* Z,F, ,N,* // 縦軸Z,横軸F,奥行軸なし,個体識別N,合成用保存* // 合成 昇順累積散布図（リンク縦面描画，３次元図圧縮） ........ $3 // ３次元図　合成昇順累積相対散布図【ローレンツ曲線】（バブルサイズは分子に比例） W,H, ,N=Y,:,* // 縦軸W,横軸H,奥行軸なし,個体識別N=バブルY,関数:,合成用保存* ?W,?H, ,?N=?Y,:,* // 縦軸?W,横軸?H,奥行軸なし,個体識別?N=バブル?Y,関数:,合成用保存* w,h, ,n=y,:,* // 縦軸w,横軸h,奥行軸なし,個体識別n=バブルy,関数:,合成用保存* // 合成 昇順累積相対散布図【ローレンツ曲線】（３次元図圧縮を利用） ======================= $$ // 終了セクション