====================== ternary2005kobe-io34-demand ========== ===== ternary diagram ===== Kobe 2005 input-output 34-industry demand =============================================== $$u ----------------- クロスセクションデータ属性コマンド $c ---------- クロスセクションでは県名や企業名等の文字データを扱うことも多い． ---------- 各文字変量には漢字２文字（英字４文字）のみ入力される． ---------- それを超える文字は無視される． 0001.00,0034.00,x-variable // ケース始点,終点番号 ,数値系列変量名;単位 ,y-variable // 空白で同一ケース範囲,数値系列変量名;単位 ,z-variable // 空白で同一ケース範囲,数値系列変量名;単位 ----------------- データ入力指示コマンド $d ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データ(桁区切りの「,」は使用しない）を ------- テキストファイルまたはExcelシートからコピー＆ペーストされたい． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 138832 38439 1050 20262 30347 137260 190148 243795 438085 29146 48088 11319 55144 6697 7195 25586 2595 42491 230189 39446 149221 221338 7043 188452 135181 7999 61780 112382 139769 303390 51814 66636 156810 22591 125868 264791 148673 3371 26564 27127 9533 132734 75127 119760 201911 12456 32922 8839 442264 107177 190007 69632 562020 0 212979 103660 4834 422741 681802 783233 371034 166586 75704 127505 701441 25250 68818 3856 214034 315349 234195 236268 285400 225391 190988 12276 645470 121518 162380 443978 121793 654549 57305 122910 0 347345 284259 25228 381612 123714 15892 425389 0 19801 0 0 119357 4748 90 57035 183 16254 ================== 変量分析セクション $$v ----------------- 変量記号割当 $a X,x-variable //　中間需要 Y,y-variable // 市内最終需要 Z,z-variable // 移輸出 ----------------- 数値出力範囲 $d all // 全範囲 ------------------ 変数変換 $t 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) // 数値プリント f=(-1,-1,+100) // 関数f y= -x -z +100 （つまり x+y+z = 100） ............. i=(100,0,0,50,50,0) // 三角形の頂点と中点の座標 j=(0,100,0,0,50,50) k=(0,0,100,50,0,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) // データのy変量の三角グラフ平面への縦軸変換 X=(2*x+y)/1.7320508 // データのx変量の三角グラフ平面への横軸変換 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 // Y変量の目盛 1間隔（標準は10間隔） ----------------- ３次元図 $3 // 　RGB表色３次元図バブルプロット 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,合成用保存* // 合成 ========================= 終了セクション $$