=============== ternary-welfare-service-aged-sub-items-content ================== ==== 老人福祉・サービスの商品サービス（小分類）別の相談内容３区分 ==== 「販売方法」「契約解約」「他の相談内容」構成比の三色三角バブルグラフ ========================================================================== $$u // ユーザデータ・セクション $c // クロスセクションデータ属性コマンド 0001.00,0009.00,aa // ケース始点,★終点番号,第１系列変量名;単位　販売方法相談内容数 ,bb // 空白で同一ケース範囲,第２系列変量名;単位　契約解約相談内容数 ,cc // 空白で同一ケース範囲,第３系列変量名;単位　他の相談内容数 ----------------- データ入力指示コマンド $d ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストされたい． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 43 341 631 743 2237 2612 278 538 685 148 817 1227 1 13 28 41 166 216 70 480 1098 51 329 424 360 889 1277 ================== 変量分析セクション $$v ----------------- 変量記号割当 $a a,aa //　販売方法相談内容数 b,bb // 契約解約相談内容数 c,cc // 他の相談内容数 ----------------- $d // 数値出力範囲 all // 全範囲 ------------------ $t // 変数変換コマンド ------------------- ★ X,Y,Zの各変量と上記のa,b,cの入力変量とを対応させる Y=(c) //　他の相談内容数 X=(a) // 販売方法相談内容数 Z=(b) // 契約解約相談内容数 ....... S=(X+Y+Z) // 合計 S　外側バブル変量 ....... L=(X+Z) // ★内側バブル変量として選択 「販売方法」と「契約解約」の相談内容回答数計 ....... 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，合成用保存* //■８番 合成 【三色三角二重バブル（○○□□順）グラフ】 ========================= 終了セクション $$