====================== ternary-hiroshima-io-demand ========== ===== ternary diagram ===== Hiroshima input-output demand item =============================================== $$u ----------------- クロスセクションデータ属性コマンド $c ---------- クロスセクションでは県名や企業名等の文字データを扱うことも多い． ---------- 各文字変量には漢字２文字（英字４文字）のみ入力される． ---------- それを超える文字は無視される． 0001.00,0041.00,:n1,産業 // ケース始点,終点番号 ,産業2文字系列名 ,x-variable // 空白で同一ケース範囲,数値系列変量名;単位 ,y-variable // 空白で同一ケース範囲,数値系列変量名;単位 ,z-variable // 空白で同一ケース範囲,数値系列変量名;単位 ----------------- データ入力指示コマンド $d ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストされたい． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 農林水産業 251715 184402 54083 鉱業 175756 2280 3534 食料品 261255 613111 474671 繊維製品 83347 6207 44959 衣服･その他の繊維製品 35315 146795 129446 製材･木製品 118132 5262 112601 家具･装備品 30378 17233 74892 パルプ・紙・板紙・加工紙 141266 9267 91210 出版･印刷 188675 56857 29129 化学製品 467108 66426 265585 石油･石炭製品 263452 61092 60755 プラスチック製品 189697 10944 148112 ゴム製品 74804 13795 87690 なめし革･毛皮･同製品 2684 20035 278 窯業･土石製品 173937 5288 54713 鉄鋼 1040073 16017 853578 非鉄金属 158028 14251 106609 金属製品 261989 5846 266423 一般機械 232812 330629 812755 電気機械 343545 304208 560039 自動車 683886 286155 1212280 船舶･同修理 61874 58719 248144 その他の輸送機械･同修理 42562 34976 93462 精密機械 26018 41708 30548 その他の製造工業製品 52814 108696 75899 建設 165495 1511964 0 電力･ガス･熱供給 333880 177523 79398 水道･廃棄物処理 84383 98351 60 商業 826282 1444298 847667 金融･保険 662075 187102 20038 不動産 162745 1265629 0 運輸 757628 285003 544829 通信･放送 284866 148145 14927 公務 8423 702665 0 教育･研究 267804 576575 5657 医療･保健･社会保障・介護 21698 1076049 4076 その他の公共サービス 23550 69214 2429 対事業所サービス 1226170 252297 77754 対個人サービス 55541 1058603 82061 事務用品 39990 0 0 分類不明 108715 11201 12523 ================== 変量分析セクション $$v ----------------- 変量記号割当 $a N,:n1,産業 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*(N,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 ------------------------　三角グラフ平面用に変換 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 // 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,合成用保存* // 合成 ========================= 終了セクション $$