=============== ternary-telemarketing-finance-transport-by-age =========== ==== 電話勧誘販売の金融保険運輸通信サービス（小分類）別の ==== 年齢３区分相談構成比の三色三角バブルグラフ ========================================================================== $$u // ユーザデータ・セクション $c // クロスセクションデータ属性コマンド 0001.00,0056.00,aa // ケース始点,終点番号 ,第１系列変量名;単位　40歳未満 ,bb // 空白で同一ケース範囲,第２系列変量名;単位　40・50歳代 ,cc // 空白で同一ケース範囲,第３系列変量名;単位　60歳以上 ----------------- データ入力指示コマンド $d ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストされたい． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 40 92 205 58 232 557 13 52 74 17 76 236 139 1147 6525 217 1507 10296 36 153 471 0 4 12 10 19 58 31 182 682 248 630 1245 20 73 158 45 156 665 199 1215 5313 5 9 3 1 4 4 1866 2400 818 73 105 64 0 6 6 13 24 70 3 1 1 81 247 1510 1 1 2 0 0 0 0 0 0 0 0 2 0 0 0 2 2 0 0 0 0 0 0 1 1 2 10 2 5 7 27 7 4 0 0 0 0 1 1 0 0 0 0 0 0 0 0 1 11 18 17 0 0 1 52 149 308 43 131 271 202 539 585 2 2 8 4 3 6 101 374 1233 44 175 353 162 158 123 916 846 584 143 66 25 85 50 3 313 226 89 43 31 14 12 12 4 2254 4211 3402 135 211 161 ================== 変量分析セクション $$v ----------------- 変量記号割当 $a a,aa //　40歳未満 b,bb // 40・50歳代 c,cc // 60歳以上 ----------------- $d // 数値出力範囲 all // 全範囲 ------------------ $t // 変数変換コマンド ------------------- ★ X,Y,Zの各変量と上記のa,b,cの入力変量とを対応させる Y=(c) //　60歳以上 X=(a) // 40歳未満 Z=(b) // 40・50歳代 ....... S=(X+Y+Z) // 合計 S　外側バブル変量 ....... L=(Y) // ★内側バブル変量として選択 60歳以上 ....... x=(X/S)*100 // 40歳未満構成比 x y=(Y/S)*100 // 60歳以上構成比％ y z=(Z/S)*100 // 40・50歳代構成比％ 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，合成用保存* // 合成 ========================= 終了セクション $$