==== skyline4-ascending-per-capita-age-70over-rank50-sub-items-region ======= ==== 70歳以上の商品サービス(小分類)の人口調整相談件数のうち ==== ４項目の合成昇順スカイライン図・合成昇順相対スカイライン図 ==== ・合成累積散布図・合成累積相対散布図【ローレンツ曲線】 =============================================================================== $$u // ユーザデータ・セクション　【第１データ群】 -----------------　健康食品分 ---------- $c // クロスセクションデータ属性コマンド 0001.00,0013.00,ddd // ケース始点,終点番号 ,★第１系列名　分母 70歳以上人口 ,xxx // 空白で同一ケース範囲,★第２系列名　分子 健康食品相談件数 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 1783746 1038 1022796 481 1128051 613 4979575 2207 1057339 530 560788 459 2355270 1266 3315674 1715 279684 245 1144222 972 799783 591 1853606 1624 754978 770 $l // 入力変量のリスト出力コマンド ((B(( // 繰り返しルーティンBの始点 ================================================= $$v // 変量分析セクション $a // 変量記号の割り当て d,ddd // d 分母 x,xxx // x 分子 ---------------- $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換 U=(100000) // ★比率の表示単位 百分率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 // ユーザデータ・セクション　【第２データ群】 -----------------　株分 ---------- $c // クロスセクションデータ属性コマンド 0001.00,0013.00,ddd // ケース始点,終点番号 ,★第１系列名　分母 70歳以上人口 ,xxx // 空白で同一ケース範囲,★第２系列名　分子 株相談件数 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 1783746 447 1022796 269 1128051 459 4979575 4268 1057339 451 560788 295 2355270 1530 3315674 1881 279684 92 1144222 682 799783 292 1853606 798 754978 172 $l // 入力変量のリスト出力コマンド ================================= ((B)) // 繰り返しルーティンBの実行 ================================================================== =========　　　　　　　【第１データ群】と【第２データ群】の合成 $$v // 変量分析セクション ---------------- $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換 ?F=(F/A) // 第１群 累積分母F を 分母合計A　で割って 第１群相対累積分母?F ?G=(G/A) // 第１群 １つ前までの累積分母G を 分母合計A　で割って 第１群1つ前相対累積分母?F ?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 // ユーザデータ・セクション　【第３データ群】 -----------------　公社債分 ---------- $c // クロスセクションデータ属性コマンド 0001.00,0013.00,ddd // ケース始点,終点番号 ,★第１系列名　分母 70歳以上人口 ,xxx // 空白で同一ケース範囲,★第２系列名　分子 公社債相談件数 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 1783746 284 1022796 143 1128051 303 4979575 2728 1057339 302 560788 155 2355270 835 3315674 1326 279684 52 1144222 485 799783 168 1853606 408 754978 95 $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) // 数値プリント .................. A=(A+a) // 第１・２群分母合計A と 第３群分母合計a を加算した　第１・２・３群の分母合計A（スカラー） .................. ?n=(n) // 合成グラフ作成用に，第３群の変量 の記号を変更 ?w=(w) ?h=(h) ?y=(y) ]=(>) '=(^) $l // 変量記号リスト ============================================================================ =================== $$u // ユーザデータ・セクション　【第４データ群】 -----------------　放送サービス分 ---------- $c // クロスセクションデータ属性コマンド 0001.00,0013.00,ddd // ケース始点,終点番号 ,★第１系列名　分母 70歳以上人口 ,xxx // 空白で同一ケース範囲,★第２系列名　分子 放送サービス相談件数 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 1783746 254 1022796 114 1128051 195 4979575 2556 1057339 138 560788 92 2355270 306 3315674 1598 279684 30 1144222 191 799783 116 1853606 478 754978 167 $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,@,3+?f) // 第１〜３群相対累積分母?F　と 第４群相対累積分母?f に 3を加算して　連結 ?G=(?G,@,3+?g) // 第１〜３群１つ前相対累積分母?G　と 第４群１つ前相対累積分母?g に 3を加算して　連結 ....................... 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,関数:,合成用保存* w,h, ,n=y,:,* // 縦軸w,横軸h,奥行軸なし,個体識別n=バブルy,関数:,合成用保存* // 合成 昇順累積相対散布図【ローレンツ曲線】（３次元図圧縮を利用） ======================= $$ // 終了セクション