=============== ternary-pref-trans-fatty-acids-foodgroup ============ ==== 全国2009年家計世帯一人当たり主要食品トランス脂肪酸摂取量に関する ====【牛由来食品】【液体食品】【固体食品】構成の三色三角バブルグラフ ========================================================================== ================== $$u // ユーザデータ・セクション $c // クロスセクションデータ属性コマンド 0001.00,0051.00,aa // ケース始点,終点番号 ,第１系列変量名;単位　【牛由来食品】 ,bb // 空白で同一ケース範囲,第２系列変量名;単位　【液体食品】 ,cc // 空白で同一ケース範囲,第３系列変量名;単位　【固体食品】 ----------------- データ入力指示コマンド $d ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストされたい． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 45.98 61.82 54.98 38.25 67.77 58.15 47.10 50.34 46.28 44.81 54.86 49.45 35.93 64.07 52.52 50.25 63.59 54.77 37.27 68.41 42.10 43.14 67.71 49.00 43.04 66.16 47.74 40.22 57.90 58.80 51.27 61.51 55.77 57.34 54.00 62.13 52.44 49.23 58.38 55.26 58.36 62.92 44.88 48.34 61.87 45.28 43.52 52.40 45.25 52.75 54.20 44.62 49.12 47.74 44.56 68.19 59.84 46.16 83.25 57.57 44.70 53.50 61.98 44.94 56.48 52.83 47.27 49.77 60.94 51.44 56.02 49.75 53.25 55.48 65.85 58.19 59.21 70.29 53.94 48.44 68.62 58.37 52.34 80.22 60.67 61.38 69.35 50.28 50.15 66.00 50.20 61.60 60.25 42.63 68.34 62.35 51.71 51.07 59.71 56.89 59.28 63.55 47.34 60.57 61.21 52.63 60.34 60.38 53.84 47.73 60.49 51.13 64.37 60.55 37.65 58.38 52.62 48.99 50.18 53.22 46.80 57.28 47.65 44.78 63.26 61.18 47.52 60.50 49.06 49.92 60.65 56.16 37.61 63.49 43.34 42.25 80.22 52.53 39.63 60.80 46.97 49.14 56.50 60.48 42.91 48.08 51.50 49.65 57.03 69.94 52.61 63.10 64.66 ================== 変量分析セクション $$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 ....... L=(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,75) // ★小三角形の場合は a=(0,0,50) b=(0,75,0) // ★ b=(0,50,0) c=(100,25,25) // ★ c=(100,50,50) .... // @は @=(0*x) として定義済みで，原点の変量（ケースの数はデータ分） a=(@,a) // 原点の変量と中三角形の頂点を連結した変量 b=(@,b) c=(@,c) --------------------- B=(b) // 中三角形の頂点の三角グラフ平面への縦軸変換 A=(2*a+b)/1.7320508 // 中三角形の頂点の三角グラフ平面への横軸変換 v=(-1.732,150) // 中三角形の右辺関数v Y=-1.732X+ (75*2) ★小三角形の場合 v=(-1.732,100) ========================= グラフセクション $$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=L,f,* // 縦軸y，横軸x，奥行軸z，印字p=バブル変量L，関数f，合成用保存* // 合成 $3 // 　三角グラフ平面 J,I, ,Q,* // 縦軸J，横軸I，奥行軸なし，印字Q，合成用保存* Y,X, ,p=L,U,V,* // 縦軸Y,横軸X,奥行軸なし,印字p=バブル変量L,関数U,V,合成用保存* // 合成 $3 // 　中三角グラフ平面 B,A, ,Q,* // 縦軸B，横軸A，奥行軸なし，印字Q，合成用保存* Y,X, ,p=L,U,v,* // 縦軸Y，横軸X，奥行軸なし,印字p=バブル変量L,関数U,v,合成用保存* // 合成 ========================= 終了セクション $$