begin screening 0
baseDate 2006 8 4
nLowHigh 200 200
begin condition 0
and 1
	begin customExpSrc 1 0 1
//
//	包み陽線＋下ひげ
//
// shitahige_tsutsumi.efuncを利用
$FUNC	shitahige_tsutsumi.efunc

//　底値判定パラメータ
//　　5日移動平均乖離率が-2以下を底値とする。
int	ma_days = 5;	// 移動平均線の日数
double	maRate = -2;	// 移動平均乖離率がこれ以下じゃないとだめ

//  包み陽線判定パラメータ
// 昨日と今日の終値と始値の差が今日の終値にたいして、この%以上ないと駄目。
// すなわちどれぐらい昨日を包んでいるかを決める。 
// 1%というと、ちょっとだけ包んでいればOK。
double	tsutsumiRate = 1; 

// 下ヒゲ判定パラメータ
//　下ひげの長さが全体の長さの、この％以上を下ヒゲとみなす。
double	shitahigeRate = 10;

return Shitahige_Tsutsumi(ma_days,maRate,
			tsutsumiRate,shitahigeRate);


	<end>
end condition
end screening