プログラムコード表示のテスト


プログラムコードを表示するためのテスト。

preタグ内なのに勝手にキーワードにリンクが張られてしまうので困る。色をinheritにするとFirefox、Google Chromeでは見た目ではわからなくなるが、IEではinheritの指定も効かないのでまともに見えない。ある特定の範囲内だけキーワードの機能をオフにする方法はないのだろか?

$ontext

このプログラムは以下の論文のシミュレーションを実行するためのものです.

武田史郎,川崎泰史,落合勝昭,伴金美 (2009),
日本経済研究センターCGE モデルによるCO2 削減策の分析
-「中期目標検討委員会」で用いたモデルと試算の解説-
JCER DISCUSSION PAPER, No.121

ただし,プログラムには論文のシミュレーションでは利用していない変数,パラメータも
含まれています.例えば,CCS に関するコードが含まれていますが,シミュレーションで
は利用していません.


* Unit (単位):

+ 金額データは「10億円」
+ CO2排出量は「MtCO2 (二酸化炭素百万トン)」
+ 排出権価格 (炭素税) は「1000円/CO2トン」


* エネルギー財

Coal (石炭)
Crude oil (原油)
Natural gas (天然ガス)
Petroleum products (石油製品)
Coal products (石炭製品)
Electricity (電力)
Gas and heat supply (ガス・熱供給)

* 電力

火力発電
原子力発電
地熱・水力発電

$offtext

$eolcom //

$ontext
まず,コントロール変数を定義.この値によってモデル,データ,パラメータ等が変わっ
てくる.

$offtext
* Experiment name

$if not setglobal exp_name $setglobal exp_name default
* $setglobal exp_name bau

* Setting of the last period (up to 2030):
$if not setglobal t_run $setglobal t_run 2020

* Setting of the first period for CO2 cap:
$if not setglobal tlim $setglobal tlim 2008

* Nuclear electricity operating rate scenarios (e_n, e_n_low, e_n_high):
$if not setglobal cap_e_n $setglobal cap_e_n e_n

* World energy price scenarios (PM0, P20, P10, M10, M20):
$if not setglobal p_oil $setglobal p_oil PM0

*
$if not setglobal s_elas_ele $setglobal s_elas_ele 1.0

* Scale parameter for EOS (utility func.)
$if not setglobal s_elas_c $setglobal s_elas_c 1.0

* Share of special resouce in non-fuel electricity
$if not setglobal sh_eres $setglobal sh_eres 0.300

* Scale parameter for updating fixed coefficients.
$if not setglobal s_udl $setglobal s_udl 1.0

* Zero -> all industries are imposed carbon regulations:
$if not setglobal no_reg $setglobal no_reg 1

* Share of permit revenue used for new consumption:
$if not setglobal sh_pr_cnew $setglobal sh_pr_cnew 0

* Share of permit revenue used for investment:
$if not setglobal sh_pr_inv $setglobal sh_pr_inv 0

* Share of permit revenue used for subsidy to ELEN (%):
$if not setglobal sh_pr_esub $setglobal sh_pr_esub 0

* CCS (carbon capture and storage)
$if not setglobal fl_ccs $setglobal fl_ccs 0
* $setglobal fl_ccs 1

* CCS
$if not setglobal fl_ccs_lbd $setglobal fl_ccs_lbd 0
* $setglobal fl_ccs_lbd 1

* CCS subsidy
$if not setglobal fl_ccs_sbs $setglobal fl_ccs_sbs 0
* $setglobal fl_ccs_sbs 1

* Parameter file name for CCS
$if not setglobal ccs_par $setglobal ccs_par .\par_ccs_default.par

* Non-zero value enables new energy (new energy technology):
$if not setglobal fl_elen $setglobal fl_elen 1
* $setglobal fl_elen 1

*
$if not setglobal fl_elen_lbd $setglobal fl_elen_lbd 1

$ontext
新エネ発電導入後10年で何%効率性が上昇するかを表す。20 なら 導入後10年で20%の向上
するように毎年の生産性向上が生じる。
$if %exp_name%=="bau" $setglobal exp_bau 1

display "exp_name = %exp_name%";
display "fl_ccs = %fl_ccs%";
display "fl_ccs_lbd = %fl_ccs_lbd%";
display "fl_ccs_sbs = %fl_ccs_sbs%";
display "ccs_par = %ccs_par%";
display "fl_elen = %fl_elen%";
display "fl_elen_lbd = %fl_elen_lbd%";
display "fl_elen_sbs = %fl_elen_sbs%";
display "elen_par = %elen_par%";
display "fl_br = %fl_br%";
display "fl_cc = %fl_cc%";
display "scale_shock = %scale_shock%";
display "permit_trade = %permit_trade%";
display "rd_scn = %rd_scn%";

parameter
fl_ccs / %fl_ccs% /
fl_elen / %fl_elen% /
fl_elen_fit / %fl_elen_fit% /
permit_trade / %permit_trade% /
;

* File name for displaying title in DOS window.
file titlemaker /'titlemaker_%exp_name%.cmd'/;

putclose titlemaker '@title Solving scenario = %exp_name%' /;
execute 'titlemaker_%exp_name%.cmd';

* ----------------------------------------------------------------------



Similar Posts:

Leave a Reply

スパム防止用認証(空欄に適切な数値を記入してください)。 * Time limit is exhausted. Please reload the CAPTCHA.

日本語が含まれない投稿は無視されますのでご注意ください。(スパム対策)