=============================================================================== ==== skyline2-ascending-pionet-telemarketing-2period-elderly =========== ==== 電話勧誘販売の商品・サービス別の消費相談高齢者比率の ==== ２時点の合成昇順スカイライン図・合成昇順相対スカイライン図 ==== ・合成累積散布図・合成累積相対散布図【ローレンツ曲線】 ========================================================================== $$u // ユーザデータ・セクション　【第１データ群】 ---------------------------　2009年度分 -------------------- $c // クロスセクションデータ属性コマンド 0001.00,0025.00,ddd // ケース始点,終点番号 ,★第１系列名　分母 相談件数合計 ,xxx // 空白で同一ケース範囲,★第２系列名　分子 高齢者相談件数 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 2135 713 5368 3958 1078 574 252 96 369 90 1122 560 6725 2356 44 8 4910 558 21 10 57 29 271 51 320 151 86 54 54 34 320 42 10278 5719 6933 2261 245 1 3488 645 313 147 3206 1585 1670 75 29 20 287 109 $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 // ユーザデータ・セクション　【第２データ群】 ---------------------------　2010年度分 -------------------- $$u // ユーザデータ・セクション $c // クロスセクションデータ属性コマンド 0001.00,0025.00,ddd // ケース始点,終点番号 ,★第１系列名　分母 相談件数合計 ,xxx // 空白で同一ケース範囲,★第２系列名　分子 高齢者相談件数 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 2662 1149 8303 6230 1183 662 331 162 457 198 1216 632 5395 2278 59 11 5210 803 83 51 48 34 225 44 412 234 106 63 39 16 282 52 19339 13579 10083 3496 249 13 3005 832 333 209 3830 1978 879 51 28 10 303 131 $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) // 数値プリント .................. $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,関数:,合成用保存* // 合成 昇順累積相対散布図【ローレンツ曲線】（３次元図圧縮を利用） ======================= $$ // 終了セクション