=================== skyline2000jpn ============================== ========= 産業スカイライン図　2000年　日本 ========================================================================== ================== $$u // ユーザデータ・セクション $c // クロスセクションデータ属性コマンド 0001.00,0032.00,国内需要 // ケース始点,終点番号 ,★第１系列名 ,国内生産額 // 空白で同一ケース範囲,★第２系列名 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 16416278 14369689 10036786 1378652 43683199 38924619 9623018 7093605 16428799 14861895 25276711 26102452 14548519 12983407 8181289 8369081 16119215 17159538 7082273 6137764 13297084 13452388 23024198 28586673 46203585 53402802 32770379 42667472 3780059 3938934 33990205 32638428 77310529 77310529 19263334 19288195 7712076 7716175 93133315 96947625 38124485 38149484 65850396 65852662 46530746 47906891 22213647 22139486 36225894 36225894 36311712 36293942 44006830 44005973 4258899 4232304 77144117 76245955 60730334 58449447 1842168 1842168 4440841 4212331 ====================== $$v // 変量分析セクション $a // 変量記号の割り当て d,国内需要 x,国内生産額 ---------------- $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換 s=(x)/d*100 // 自給率 =pr*(d,x,s) // 数値プリント .................... P=:ci(x) // 個体識別文字列P作成 q=cum(d) // 国内需要の累和 q<i>=d<1>+d<2>+...+d<i-1>+d<i> r=(q-d) // 直前までの累和 r<i>=d<1>+d<2>+...+d<i-1> =q<i>-d<i> .................... .=(0,100) // 自給率100の線 y=100=0*x+100 の右辺係数 [0,100] の関数「.」 +=(1,0) // 散布図の45度線 y=x+0 の右辺係数 [1,0] の関数「+」 z=(0*x) // すべてゼロの数値の変量zを作成（図の原点に利用） .................... u=(x-d) // 国際収支u = 国内生産額x - 国内需要d h=(u)/d*100 // 国際収支率 =pr*(u,d,h) // 数値プリント =============== $$g // グラフセクション $d // 表示範囲 all // 全範囲 $g // スケールの目盛り指示コマンド（標準10ポイント） s,002 // 変量sの目盛りを細かく2ポイントごとに x,002 h,002 u,002 $z // ゼロ軸表示 sdx // 変量s,d,xのゼロ軸表示 $p // プロット xd,s // 変量x,dを同一スケールで，変量sを別スケール xdu,h // 変量x,d,uを同一スケールで，変量hを別スケール ------------ 自給率　------------------------------------- $3 // ３次元図　スカイライン図 s,q, ,P,.,* // 縦軸s,横軸q,奥行軸なし,個体識別P,関数.,合成用保存* s,r, ,P,* // 縦軸s,横軸r,奥行軸なし,個体識別P,合成用保存* // 合成 自給率スカイライン図（リンク面描画，３次元図圧縮） ........ $3 // ３次元図　扇形散布図 x,d, ,P,+,* // 縦軸x,横軸d,奥行軸なし,個体識別P,関数+,合成用保存* z,z, ,P,* // 縦軸z,横軸z,奥行軸なし,個体識別P,合成用保存【原点】 // 合成（２次元図上の散布点と原点のリンク，３次元図圧縮を利用） ------------ 国際収支率　---------------------------------- $3 // ３次元図　スカイライン図 h,q, ,P,* // 縦軸h,横軸q,奥行軸なし,個体識別P,合成用保存* h,r, ,P,* // 縦軸h,横軸r,奥行軸なし,個体識別P,合成用保存* // 合成 国際収支率スカイライン図（リンク面描画，３次元図圧縮） ........ $3 // ３次元図　扇形散布図 u,d, ,P,* // 縦軸u,横軸d,奥行軸なし,個体識別P,合成用保存* z,z, ,P,* // 縦軸z,横軸z,奥行軸なし,個体識別P,合成用保存【原点】 // 合成（２次元図上の散布点と原点のリンク，３次元図圧縮を利用） ======================= $$ // 終了セクション