=============== ternary-expenditure-cereals-fish-meat-ut ============ ============ ユーザデータセクション $$u ----------------- $y // 年次データ属性コマンド ---------- 識別文字系列変量名の先頭は「:ci,」を用いる 1963.00,2009.00,aa // 始点年次,終点年次 ,数値系列変量名;単位　穀類 ,bb // 空白で同一ケース範囲,数値系列変量名;単位　魚介類 ,cc // 空白で同一ケース範囲,数値系列変量名;単位　肉類 ----------------- データ入力指示コマンド $d ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストされたい． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 3834 1834 1249 3894 2044 1446 4259 2252 1603 4267 2412 1800 4275 2623 1984 4472 2875 2188 4487 3092 2460 4526 3577 2729 4550 4023 3032 4606 4349 3436 4965 4831 4167 6031 6225 5005 7038 7186 5882 7815 8029 6591 8406 8657 6807 8595 9024 7077 8618 9275 7204 9196 9682 7533 9526 9897 7724 9737 10369 8007 9823 10268 7859 9956 10153 7911 9990 10325 7891 9991 10326 7849 9563 10290 7695 9108 10193 7540 9185 10270 7608 9121 10551 7785 9276 10996 7949 9397 11211 7881 9699 10758 7516 9550 10023 7173 8548 9880 7108 8271 9598 6878 8108 9633 7142 7921 9435 6951 7715 8987 6772 7319 8594 6496 7002 8246 6046 6928 8077 6021 7029 7654 5992 7024 7363 6011 6515 7198 6070 6326 7129 6041 6378 7095 6157 6628 6861 6507 6695 6642 6343 ================== 変量分析セクション $$v ----------------- 変量記号割当 $a a,aa //　穀類 b,bb // 魚介類 c,cc // 肉類 ----------------- $d // 数値出力範囲 all // 全範囲 ------------------ $t // 変数変換コマンド ------------------- ★ X,Y,Zの各変量と上記のa,b,cの入力変量とを対応させる X=(a) //　穀類 Z=(b) // 魚介類 Y=(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) --------------------- B=(b) // 小さい三角形の頂点の三角グラフ平面への縦軸変換 A=(2*a+b)/1.7320508 // 小さい三角形の頂点の三角グラフ平面への横軸変換 v=(-1.732,140) // 関数v Y=-1.732X+ (70*2) 小さい三角形の右辺 ========================= グラフセクション $$g ----------------- 目盛 $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=バブル変量S,関数U,v,合成用保存* // 合成 ========================= 終了セクション $$