=============== ternary-meat-cities-uc ============ ============ ユーザデータセクション $$u ----------------- クロスセクションデータ属性コマンド $c ---------- クロスセクションでは県名や企業名等の文字データを扱うことも多い． ---------- 各文字変量には漢字２文字（英字４文字）のみ入力される． ---------- それを超える文字は無視される． ---------文字系列変量名の先頭は「:n1,」「:n2,」…「:n6,」のいずれかを用いる 0001.00,0047.00,aa // ケース始点,終点番号 ,数値系列変量名;単位　牛肉 ,bb // 空白で同一ケース範囲,数値系列変量名;単位　豚肉 ,cc // 空白で同一ケース範囲,数値系列変量名;単位　鶏肉 ----------------- データ入力指示コマンド $d ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストされたい． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 3915 19777 13061 5205 21028 11448 4670 18809 11425 4085 19571 9991 3955 21150 13247 7636 18366 10710 3736 18921 9150 3776 16877 9819 4927 15599 8872 3410 15085 8091 7074 18921 12693 6305 18772 11664 6416 18048 10935 6873 19168 11746 4647 20219 9855 7157 18363 9076 7846 16597 9228 8090 13651 10118 4213 18988 9088 3275 17029 8574 7012 15574 11083 5013 19374 11293 6512 16055 11566 10561 14532 11565 10371 15413 13821 10310 13890 12273 9980 14933 12273 9417 13230 11380 10057 14236 12373 10516 15637 13446 8235 15232 11968 7817 15190 13020 7737 13774 11592 10364 16844 13810 9712 13911 14722 10367 13840 12600 8640 13596 12141 9615 13781 12196 7733 13667 11881 9246 16956 16027 9724 15475 15103 7121 14643 13004 9333 14894 16332 9693 16024 17530 7133 15837 14746 5588 17140 15332 7136 18226 9758 ================== 変量分析セクション $$v ----------------- 変量記号割当 $a a,aa //　牛肉 b,bb // 豚肉 c,cc // 鶏肉 ----------------- 数値出力範囲 $d all // 全範囲 ------------------ $t // 変数変換コマンド ------------------- X,Y,Zの各変量と上記のa,b,cの入力変量とを対応させる X=(a) //　牛肉 Y=(b) // 豚肉 Z=(c) // 鶏肉 ....... S=(X+Y+Z) // 肉類購入量 S 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 // 三角形の頂点と中点の三角グラフ平面への横軸変換 ------------------------ a=(0,0,70) // 小さい三角形の頂点と中点の座標 b=(0,70,0) c=(100,30,30) ....@=(0*x) // 原点の変量（ケースの数はデータ分） a=(@,a) // 原点の変量と三角形の頂点と中点を連結した変量 b=(@,b) c=(@,c) ....Q=(p,Q) // 原点の印字変量pと頂点と中点の印字変量Qの連結 ....Q,nam,:ci,Q=(p,Q) // 印字変量Qが文字系列であることを示す変量名に変更 .... =pr*(a,b,c,Q) // 数値プリントしてチェックするには先頭....を取る --------------------- B=(b) // 小さい三角形の頂点の三角グラフ平面への縦軸変換 A=(2*a+b)/1.7320508 // 小さい三角形の頂点の三角グラフ平面への横軸変換 v=(-1.732,140) // 関数v Y=-1.732X+ (70*2) 小さい三角形の右辺 ========================= グラフセクション $$g ----------------- ゼロ軸表示 $z xyzXY // 変量xyzXY についてゼロ軸表示 ----------------- 目盛 $g X,001 // X変量の目盛 1間隔（標準は10間隔） Y,001 // X変量の目盛 1間隔（標準は10間隔） ----------------- ３次元図 $3 // 　三角グラフ立体 j,i,k,Q,* // 縦軸j，横軸i，奥行軸k，散布点印字Q，合成用保存* y,x,z,p=S,f,* // 縦軸y，横軸x，奥行軸z，印字p=バブル変量S，関数f，合成用保存* // 合成 $3 // 　三角グラフ平面 J,I, ,Q,* // 縦軸J，横軸I，奥行軸なし，印字Q，合成用保存* Y,X, ,p=S,U,V,* // 縦軸Y,横軸X,奥行軸なし,印字p=バブル変量S,関数U,V,合成用保存* // 合成 $3 // 　小さい三角グラフ平面 B,A, ,Q,* // 縦軸B，横軸A，奥行軸なし，印字Q，合成用保存* Y,X, ,p=S,U,v,* // 縦軸Y，横軸X，奥行軸なし，印字p，関数U，関数v，合成用保存* // 合成 ========================= 終了セクション $$