
// ====================  變數宣告  ====================
settotalBar(240);						

vars: v_1ymax(0);						// 近N日 最大日成交量(今日不計)
vars: p_1ymax(0);						// 近N日 最高收盤價(今日不計)
vars: _v(0);							// 今日 估計量
vars: space("");

value1 = 200;							// 200=創200日新高	

var: TargetFileName(""), _time(0);				//警示記錄寫入程式用	
var: _alerted(0);				



// ====================  獲取資料 & 判斷式  ====================
v_1ymax = highest(volume[1], 240);		//不含今日收盤的近 value1 日最高量 
p_1ymax = highest(close[1], value1);		//不含今日量的近 value1 日最大量

_v = GetField("估計量");			//今日估計量



// ====================   判斷式  ====================
// judge: 今(現)價 > p_1ymax						<condition2> 
if c>p_1ymax then condition2=true else condition2=false;

// judge: 估計量 或 成交量 >= v_1ymax*0.6				<condition3>
if (_v >= v_1ymax*0.6) or (volume >= v_1ymax*0.6) then condition3=true else condition3=false;

// judge: 漲停?								<condition4>
if c=GetField("漲停價") then condition4=true else condition4=false;



// ====================  alarm  &  資訊寫入檔案====================
// 前三日都未超過 p_1ymax "且" 今(現)漲過 p_1ymax "且" (估計量>=v_1ymax的80% "或" 漲停  )
if condition2 and (condition3 or condition4)  
	and getinfo("IsRealTime")=1 and _alerted=0 and time>=091500 then begin
	ret = 1;
	retMsg = text("股價創N日高+大量 ! (估計量: ", numToStr(_v, 0), ")");
	TargetFileName = Text("C:\XQ_AlertRecord\",
			FormatDate("yyyyMMdd", GetField("日期")), "-",
			FormatTime("HHmmss", GetField("Time")), "-",
			"創200日高", "-",
			symbol, "-", SymbolName, "-",
			"價格 ", NumtoStr(close,2),
			".txt");
	Print(file(TargetFileName), close);
	_alerted=1;
end;
 




