=========== map2-per-capita-age-70over-rank50-2item-region ======================= ==== 70歳以上の２商品サービスの ==== 地域別人口調整（10万人当たり）相談件数の地図状グラフ ============================================================================== $$u // ユーザデータ・セクション $c // クロスセクションデータ属性コマンド 0001.00,0013.00,xxx // ケース始点,終点番号 ,★第１系列名　家庭用電気治療器具人口調整相談件数 ,yyy // 空白で同一ケース範囲,★第２系列名　アクセサリー人口調整相談件数 ,bbb // 空白で同一ケース範囲,★第３系列名　経度 ,aaa // 空白で同一ケース範囲,★第４系列名　緯度 $d // データ入力指示コマンド vtype // 変量毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 12.1 16.1 16.7 17.3 20.9 27.1 17.7 13.4 26.8 32.3 17.9 40.3 47.3 4.7 8.4 12.8 28.6 10.4 2.3 17.7 19.3 6.8 9.0 5.1 16.2 3.7 141.347 140.872 139.883 139.692 138.181 136.626 136.907 135.520 133.050 132.460 133.531 130.418 130.558 43.064 38.269 36.565 35.689 36.651 36.595 35.180 34.686 35.472 34.397 33.560 33.607 31.560 ====================== $$v // 変量分析セクション $a // 変量記号の割り当て x,xxx // 家庭用電気治療器具人口調整相談件数 y,yyy // アクセサリー人口調整相談件数 b,bbb // 経度 a,aaa // 緯度 ---------------- $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換 P=:ci(a) // 個体識別文字列P作成 =pr*(x,y,b,a,P) // 数値プリント .................... A=(29,44,44) // 日本の南西部隅，北西部隅，北東部隅の緯度 B=(127,127,144) // 日本の南西部隅，北西部隅，北東部隅の経度 .......... // 日本の南西部隅，北西部隅，北東部隅の値として　２変量の最小値の8割の数値設定 w=(x,y) // ２変量の連結 L=min(w) // 連結変量の最小値 M=(L,0) // 　　　 最小値とゼロ　のベクトル N=max(M) // 最小値が負の場合は　ゼロを選択 N=(N*0.8) // ★正の最小値の8割 0.8 は　1.0 〜　0.の任意の値に設定可能（垂線の足の下限に影響） C=(N,N,N) // 日本の南西部隅，北西部隅，北東部隅の値として 最小値の8割（負の場合はゼロ）を設定 Q=:ci(A)*** // 日本の南西部隅，北西部隅，北東部隅の識別文字として *設定 =pr*(C,A,B,Q) // 確認の数値プリント =============== $$g // グラフセクション $g // スケールの目盛り指示コマンド（標準10ポイント） x,002 // 変量xの目盛りを細かく2ポイントごとに ------------ 地図状グラフ　----------------------------------- $3 x,b,a,P=x,* // 縦軸x,横軸b,奥行軸a,個体識別P=バブル変量x,合成用保存* y,b,a,P=y,* // 縦軸y,横軸b,奥行軸a,個体識別P=バブル変量y,合成用保存* C,B,A,Q,* // 縦軸C,横軸B,奥行軸A,個体識別Q,合成用保存* // 合成 ２項目の人口調整相談件数の地図状グラフ ------------ 相関グラフ　------------------------------------- $c y,x,*,P // 縦軸y,横軸x,回帰線*,個体識別P ======================= $$ // 終了セクション