=========== skyline-age-70over-rank50-items-region ============== ==== 70歳以上の件数上位50の商品サービス（小分類）別の ==== 近畿の相談件数の全国比のスカイライン図・バブル扇形散布図 =============================================================================== $$u // ユーザデータ・セクション $c // クロスセクションデータ属性コマンド 0001.00,0050.00,ddd // ケース始点,終点番号 ,★第１系列名　全国相談件数 ,xxx // 空白で同一ケース範囲,★第２系列名　近畿相談件数 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 18377 2382 16905 1857 12686 1715 11723 1881 9835 2134 8699 717 7865 1118 7327 1326 6928 1163 6887 929 6738 996 6633 897 6306 1598 4803 683 4742 761 4543 881 4495 668 4417 445 3575 536 3534 516 3445 472 3435 639 3213 528 3084 650 3031 628 2617 455 2536 521 2531 437 2514 393 2487 694 2379 486 2349 273 2341 359 2337 322 2309 441 2289 358 2202 375 2175 457 2068 357 2049 346 1987 504 1983 244 1840 315 1834 278 1801 282 1707 170 1624 253 1585 214 1557 115 1548 148 ====================== $$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> .................... D=@.s(d) // 50項目全体の全国相談件数合計 X=@.s(x) // 50項目全体の近畿相談件数合計 h=(X/D) // 50項目全体の相談件数合計の近畿全国比【合算近畿全国比】 H=(h*100) // hの百分率％ =pr*(X,D,H) // 数値プリント .=(0,H) // 【合算近畿全国比％】横線 y=0*x+Hの右辺係数 [0,H] の関数「.」 +=(0.05,0) // ★散布図の上斜線 y=0.05x+0 の右辺係数 [0.05,0] の関数「+」 -=(-0.05,0) // ★散布図の下斜線 y=-0.05x+0 の右辺係数 [-0.05,0] の関数「-」 z=(0*x) 　 // すべてゼロの数値の変量zを作成（図の原点に利用） v=(x-h*d) 　 // 【合算近畿全国比】からの乖離の相談件数 =============== $$g // グラフセクション $d // 表示範囲 all // 全範囲 $g // スケールの目盛り指示コマンド（標準10ポイント） s,001 // 変量sの目盛りを細かく1ポイントごとに v,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 // ３次元図　扇形散布図 【合算近畿全国比】からの乖離度 v,d, ,P=x,+,-,* // 縦軸v,横軸d,奥行軸なし,個体識別P=バブルx,関数+,-,合成用保存* z,z, ,P,* // 縦軸z,横軸z,奥行軸なし,個体識別P,合成用保存*【原点】 // 合成（散布点と原点のリンク直線描画，３次元図圧縮を利用） ======================= $$ // 終了セクション