# 2gauss Version. 1.02 (Sep. 23, 1999)
# Written by Hisao Kawaura
#
### description: Data|Fit|Nonlin fitの初期設定を2つのGaussian用にセット
#
# Usage: このスクリプトを${TOPAZMACRODIR}にコピーし、Macro | File から実行して
#        ください。
#
# Caution: このマクロの実行により受けるいかなる損害も保証しませんので注
#          意してください。マクロを実行する前に、記述された内容を良く確
#          認の上利用してください。
#          作者は、このマクロの著作権を放棄しています。マクロ内容の修正
#          は自由です。


$graph->init->set('n_function', 'A*exp(-B*(x-C)^2)+D*exp(-E*(x-F)^2)+G');
$graph->init->set('n_from', 1);
$graph->init->set('n_to', -1);
$graph->init->set('n_allowance', 1);
$graph->init->set('n_ini_a', "1");
$graph->init->set('n_ini_b', "1");
$graph->init->set('n_ini_c', "0");
$graph->init->set('n_ini_d', "1");
$graph->init->set('n_ini_e', "1");
$graph->init->set('n_ini_f', "0");
$graph->init->set('n_ini_g', "0");
$graph->init->set('n_ini_h', "");
$graph->init->set('n_ini_i', "");
$graph->init->set('n_fun_a', "exp(-B*(x-C)^2)");
$graph->init->set('n_fun_b', "-A*exp(-B*(x-C)^2)*(x-C)^2");
$graph->init->set('n_fun_c', "2*A*B*exp(-B*(x-C)^2)*(x-C)");
$graph->init->set('n_fun_d', "exp(-E*(x-F)^2)");
$graph->init->set('n_fun_e', "-D*exp(-E*(x-F)^2)*(x-F)^2");
$graph->init->set('n_fun_f', "2*D*E*exp(-E*(x-F)^2)*(x-F)");
$graph->init->set('n_fun_g', "1");
$graph->init->set('n_fun_h', "");
$graph->init->set('n_fun_i', "");

print("Data|Fit|Non-lin fitのパラメータが設定されました。\n");