=========== skyline-telemarketing-finance-transport-elderly-ratio =========== ==== 電話勧誘販売の金融保険運輸通信サービス（小分類）別の消費相談の高齢者比率の ==== スカイライン図・バブル扇形散布図 =============================================================================== $$u // ユーザデータ・セクション $c // クロスセクションデータ属性コマンド 0001.00,0056.00,ddd // ケース始点,終点番号 ,★第１系列名　相談件数合計 ,xxx // 空白で同一ケース範囲,★第２系列名　高齢者相談件数 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 381 205 923 557 154 74 347 236 8212 6525 12757 10296 710 471 16 12 91 58 990 682 2260 1245 272 158 929 665 7120 5313 26 3 10 4 5462 818 283 64 12 6 115 70 5 1 1959 1510 5 2 0 0 1 0 2 2 0 0 4 0 0 0 1 1 14 10 15 7 39 4 0 0 2 1 0 0 0 0 1 1 59 17 2 1 642 308 587 271 1516 585 13 8 15 6 1995 1233 762 353 515 123 2533 584 243 25 142 3 676 89 97 14 31 4 10885 3402 615 161 ====================== $$v // 変量分析セクション $a // 変量記号の割り当て d,ddd // d 相談件数合計 x,xxx // x 高齢者相談件数 ---------------- $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換 s=(x)/d*100 // 比率 P=:ci(x) // 個体識別文字列P作成 =pr*(d,x,s,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,50) // ★比率50の線 y=50=0*x+50 の右辺係数 [0,50] の関数「.」 +=(0.5,0) // ★散布図の斜線 y=0.5x+0 の右辺係数 [0.5,0] の関数「+」 z=(0*x) // すべてゼロの数値の変量zを作成（図の原点に利用） =============== $$g // グラフセクション $d // 表示範囲 all // 全範囲 $g // スケールの目盛り指示コマンド（標準10ポイント） s,001 // 変量sの目盛りを細かく1ポイントごとに x,001 $z // ゼロ軸表示 sd // 変量s,dのゼロ軸表示 $p // プロット xd,s // 変量x,dを同一スケールで，変量sを別スケール ------------ 消費生活相談高齢者比率　------------------------------------- $3 // ３次元図　スカイライン図 s,q, ,P,.,* // 縦軸s,横軸q,奥行軸なし,個体識別P,関数.,合成用保存* s,r, ,P,* // 縦軸s,横軸r,奥行軸なし,個体識別P,合成用保存* // 合成 高齢者比率スカイライン図（リンク縦面描画，３次元図圧縮） ........ $3 // ３次元図　扇形散布図 x,d, ,P=x,+,* // 縦軸x,横軸d,奥行軸なし,個体識別P=バブル変量x,関数+,合成用保存* z,z, ,P,* // 縦軸z,横軸z,奥行軸なし,個体識別P,合成用保存*【原点】 // 合成（散布点と原点のリンク直線描画，３次元図圧縮を利用） ======================= $$ // 終了セクション