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

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

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

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

return Uwahige_Tsutsumi(ma_days,maRate,tsutsumiRate,higeRate);


	<end>
end condition
end screening