=============== ternary-per-capita-age-70over-rank50-items-3region ================= ==== 70歳以上の件数上位50の商品サービス（小分類）別の ==== 北陸，近畿， 四国の人口調整（10万人当たり）相談件数の三色三角バブルグラフ ==================================================================================== $$u // ユーザデータ・セクション $c // クロスセクションデータ属性コマンド 0001.00,0050.00,aa // ケース始点,終点番号 ,第１系列変量名;単位　北陸人口調整相談件数 ,bb // 空白で同一ケース範囲,第２系列変量名;単位　近畿人口調整相談件数 ,cc // 空白で同一ケース範囲,第３系列変量名;単位　四国人口調整相談件数 ----------------- データ入力指示コマンド $d ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストされたい． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 120.4 71.8 84.6 101.5 56.0 90.4 81.8 51.7 73.9 52.6 56.7 36.5 39.4 64.4 15.4 52.1 21.6 26.8 32.3 33.7 31.6 27.6 40.0 21.0 37.8 35.1 23.0 34.8 28.0 23.3 50.3 30.0 30.8 34.8 27.1 28.5 16.4 48.2 14.5 19.6 20.6 20.8 23.7 23.0 22.8 21.4 26.6 9.8 11.2 20.1 9.4 27.1 13.4 17.9 8.6 16.2 13.4 21.8 15.6 13.9 24.6 14.2 11.1 2.3 19.3 5.1 10.7 15.9 6.6 16.4 19.6 15.1 6.4 18.9 6.4 12.8 13.7 11.6 9.1 15.7 6.3 9.3 13.2 8.6 10.5 11.9 9.3 6.6 20.9 3.6 7.5 14.7 5.5 5.3 8.2 11.4 11.8 10.8 15.8 14.1 9.7 13.5 8.0 13.3 6.8 9.1 10.8 8.4 7.0 11.3 7.6 11.4 13.8 5.1 13.4 10.8 6.3 7.3 10.4 5.0 4.8 15.2 5.0 15.0 7.4 16.5 20.0 9.5 7.0 6.8 8.4 7.5 8.2 8.5 7.4 7.8 5.1 6.0 6.1 7.6 5.4 4.5 6.5 5.1 3.6 3.5 21.6 2.7 4.5 10.0 ================== 変量分析セクション $$v $a // 変量記号割当 a,aa //　北陸人口調整相談件数 b,bb // 近畿人口調整相談件数 c,cc // 四国人口調整相談件数 ----------------- $d // 数値出力範囲 all // 全範囲 ------------------ $t // 変数変換コマンド ------------------- ★ X,Y,Zの各変量と上記のa,b,cの入力変量とを対応させる Y=(b) //　近畿人口調整相談件数 X=(a) // 北陸人口調整相談件数 Z=(c) // 四国人口調整相談件数 ....... S=(X+Y+Z) // 合計 S　外側バブル変量 ....... L=(Y) // ★内側バブル変量として選択 近畿相談件数 ....... x=(X/S)*100 // 北陸人口調整相談件数構成比 x y=(Y/S)*100 // 近畿人口調整相談件数構成比％ y z=(Z/S)*100 // 四国人口調整相談件数構成比％ z p=:ci(x) // データの散布点印字用の文字系列p ............. =pr*(X,Y,Z,S,x,y,z,p) // 数値プリント -------------------- $r // 回帰コマンド ,run,y=(x,z) // 被説明変数y，説明変数x,zによる重回帰の計測 ,run,Y=(X,Z) // 被説明変数Y，説明変数X,Zによる重回帰の計測 -------------------- $t // 変数変換コマンド f=(-1,-1,+100) // 関数f y= -x -z +100 （つまり x+y+z = 100） ............. i=(100,50,0,0,0,50) // 三角形の頂点と中点の座標 j=(0,50,100,50,0,0) k=(0,0,0,50,100,50) Q=:ci(i)****** // 三角形の頂点と中点の３次元図印字用の文字系列Q ............. @=(0*x) // 原点の変量（ケースの数はデータ分） i=(@,i) // 原点の変量と三角形の頂点と中点を連結した変量 j=(@,j) k=(@,k) Q=(p,Q) // データの散布点印字変量pと頂点と中点の印字変量Qの連結 Q,nam,:ci,Q=(p,Q) // 変量Qが印字文字系列であることを示す変量名に再設定 .... =pr*(i,j,k,Q) // 数値プリントしてチェックするには先頭....を取る ------------------------　三角グラフ平面用に変換 Y=(y) // データの三角グラフ平面への縦軸変換 X=(2*x+y)/1.7320508 // データの三角グラフ平面への横軸変換 U=(1.732,0) // 関数U Y=1.732X+0 V=(-1.732,200) // 関数V Y=-1.732X+200 ............. 三角形の頂点と中点の座標 J=(j) // 三角形の頂点と中点の三角グラフ平面への縦軸変換 I=(2*i+j)/1.7320508 // 三角形の頂点と中点の三角グラフ平面への横軸変換 ========================= グラフセクション $$g ----------------- ゼロ軸表示 $z xyzXY // 変量xyzXY についてゼロ軸表示 ----------------- 目盛 $g X,001 // X変量の目盛 1間隔（標準は10間隔） Y,001 // X変量の目盛 1間隔（標準は10間隔） ----------------- ３次元図 $3 // 　三角グラフ立体 y,x,z,p=S,f,* // 縦軸y，横軸x，奥行軸z，印字p=バブル変量S，関数f，合成用保存* y,x,z,p=L,f,* // 縦軸y，横軸x，奥行軸z，印字p=バブル変量L，関数f，合成用保存* j,i,k,Q,* // 縦軸j，横軸i，奥行軸k，散布点印字Q，合成用保存* // 合成 $3 // 　三角グラフ平面 Y,X, ,p=S,U,V,* // 縦軸Y,横軸X,奥行軸なし,印字p=バブル変量S,関数U,V,合成用保存* Y,X, ,p=L,U,V,* // 縦軸Y,横軸X,奥行軸なし,印字p=バブル変量L,関数U,V,合成用保存* J,I, ,Q,* // 縦軸J，横軸I，奥行軸なし，印字Q，合成用保存* // 合成 ========================= 終了セクション $$