begin screening 0
baseDate 2007 1 17
nLowHigh 0 200
begin condition 0
and 1
	begin customExpSrc 1 0 1
//
// 本日ストップ安した銘柄を抽出
//
double	c1 = Close(-1);	// 昨日の終値
double	l0 = Low(0);	// 今日の安値
if( Double.IsNaN(l0) )
	return	false;	// 今日取引がないならやめ
if( Double.IsNaN(c1) )
	return	false;	// 昨日取引がないならやめ

//　ストップ安を求める。
//	LimitRange(price)関数は株価priceでの値幅制限を求めることができる基本関数。
double	stopL = c1-LimitRange(c1);

// 今日の安値がストップ安に達していない場合はやめ
if( l0 > stopL )
	return	false;

// ついでに上昇率も求めておくことにする。
double	c0 = Close(0);	// 今日の終値
double	up = (c0-c1)/c1*100.0;	// 上昇率(マイナスの）

//　ランキング変数を宣言。スクリーニング結果にこれらの値を表示するため。
$RANKING	rUp	Dbl	"上昇率"
$RANKING	rC0	Dbl	"終値"

// ランキング変数に値を設定。これをしないと結果に表示されない。
rUp = up;
rC0 = c0;

return	true;	// 条件にマッチしているのでtrueを返す。


	<end>
end condition
end screening