#
# 1gauss_wiz Version. 1.032 (Sep. 23, 1998)
# Written by Hisao Kawaura
#
### description: Data|Fit|Nonlin fitの初期設定を単一のGaussian用にセット
#   初期パラメータは、wizard形式でインタラクティブに設定できる。関数形
#   及び偏微分式は自動的に設定される。
#
# Usage: このスクリプトを${TOPAZMACRODIR}にコピーし、Macro | File から実行して
#        ください。
#
# Caution: このマクロの実行により受けるいかなる損害も保証しませんので注
#          意してください。マクロを実行する前に、記述された内容を良く確
#          認の上利用してください。
#          作者は、このマクロの著作権を放棄しています。マクロ内容の修正
#          は自由です。


message("ベースラインをカーソルキーで指定します。\n\nHit any key!\n");
if (!watch())
{
  message("Wizardを中止します。\n\nHit any key!\n");
}

$base = $_RET[1];

message("ピーク位置をカーソルキーで指定します。\n\nHit any key!\n");
if (!watch())
{
  message("Wizardを中止します。\n\nHit any key!\n");
}

@peak = @_RET;

message("半値幅位置をカーソルキーで指定します。\n\nHit any key!\n");
if (!watch())
{
  message("Wizardを中止します。\n\nHit any key!\n");
}

@hpos = @_RET;

$h = $peak[1] - $base;
$w = ln(2)/($hpos[0]-$peak[0])**2;

$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', $h);
$graph->init->set('n_ini_b', $w);
$graph->init->set('n_ini_c', $peak[0]);
$graph->init->set('n_ini_d', $base);
$graph->init->set('n_ini_e', "");
$graph->init->set('n_ini_f', "");
$graph->init->set('n_ini_g', "");
$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', "1");
$graph->init->set('n_fun_e', "");
$graph->init->set('n_fun_f', "");
$graph->init->set('n_fun_g', "");
$graph->init->set('n_fun_h', "");
$graph->init->set('n_fun_i', "");

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