====================== ternary-aichi-io-demand ========== ===== ternary diagram ===== Aichi input-output demand item =============================================== $$u ----------------- クロスセクションデータ属性コマンド $c ---------- クロスセクションでは県名や企業名等の文字データを扱うことも多い． ---------- 各文字変量には漢字２文字（英字４文字）のみ入力される． ---------- それを超える文字は無視される． 0001.00,0038.00,:n1,産業 // ケース始点,終点番号 ,産業2文字系列名 ,x-variable // 空白で同一ケース範囲,数値系列変量名;単位 ,y-variable // 空白で同一ケース範囲,数値系列変量名;単位 ,z-variable // 空白で同一ケース範囲,数値系列変量名;単位 ----------------- データ入力指示コマンド $d ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストされたい． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 農業 404349 250112 126449 林業 33743 18081 2109 漁業 72991 28545 7415 鉱業 537758 -955 6891 食料品 814798 1853274 1198062 繊維製品 465206 438476 433266 パルプ・紙・木製品 1024536 94920 578487 化学製品 1497567 158433 703611 石油・石炭製品 649707 233026 259138 プラスチック製品 1055676 37634 711825 陶磁器 102938 6461 237342 その他の窯業・土石製品 532627 11661 361569 鉄鋼 2002459 -17346 610418 非鉄金属 755776 1187 282829 金属製品 873978 42446 701341 一般機械 1176055 1306474 2289553 電気機械 1951149 1259858 2620555 自動車 6957917 742739 9073854 航空機 276330 74348 197434 その他の輸送機械 97318 69742 244404 精密機械 86732 151960 182403 その他の製造工業製品 1411379 364086 825373 建設 416505 3865338 0 電力・ガス・熱供給 996761 442806 51365 水道・廃棄物処理 156447 329973 0 商業 2717221 3584443 2279656 金融・保険 1975867 923552 9749 不動産 434591 3211424 36 運輸 2366616 853324 553694 通信・放送 707041 566058 866 公務 0 1766542 0 教育・研究 1128574 1248781 17408 医療・保健・社会保障・介護 41303 2040795 0 その他の公共サービス 73186 159640 0 対事業所サービス 4321869 897370 191288 対個人サービス 218975 2948143 379885 事務用品 112958 0 0 分類不明 339739 1380 1 ================== 変量分析セクション $$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,合成用保存* // 合成 ========================= 終了セクション $$