compass OptLineshape_1D2D3D{
	モード プログラム
	表示位置 右下
	サイズ設定 650, 450
}
 
変数 $x = 0
変数 $y = 0
変数 $state = ""
変数 $wait = 100
変数 $repeat = 1000

sub 初期設定{
	Excel起動 "panel.xls"
}

exe マウス座標を温度・濃度として描画{
	panel.セル内容の書込み 0, "Sheet6", "M3"
	■繰り返し 取得, $wait, $repeat
}

sub 取得{
	マウス座標取得 ($x), ($y)
	panel.セル内容の書込み $x, "Sheet6", "B4"
	panel.セル内容の書込み $y, "Sheet6", "B5"
}

exe

exe １次元系を選択{
	panel.セル内容の書込み 1, "Sheet6", "J3"
}

exe ２次元系を選択{
	panel.セル内容の書込み 2, "Sheet6", "J3"
}

exe ３次元系を選択{
	panel.セル内容の書込み 3, "Sheet6", "J3"
}

exe

exe 電子ドープ系を選択{
	panel.セル内容の書込み 1, "Sheet6", "B3"
}

exe 電子正孔系を選択{
	panel.セル内容の書込み 2, "Sheet6", "B3"
}

exe

exe 正孔の有効質量0.105m0を選択{
	panel.セル内容の書込み "0.105", "Sheet6", "C16"
}

exe 正孔の有効質量100m0を選択{
	panel.セル内容の書込み "100", "Sheet6", "C16"
}