盘中抓涨停

看了一发千钧老师的1分钟盘中抓涨停
研究了下他的代码，用大智慧仔细的写了下，做了一个选股，和一个指标
做了参数，方便优化，限制每日的入场次数

input:lenRTO(0.08,0.05,0.2,0.01),{单笔换手系数}
		 lenmaxRange(1.04,1.0,2.0,0.01),{最大涨幅}
		 lenminRange(1.01,1.0,2.0,0.01);{最小涨幅}
	if day<>day[1] then
	begin
		preCloseD:=close[1];{昨日日线收盘价}
		myAmount:=close*max(vol,1);{成交金額}
		myVol:=max(vol,1);{成交量}
		VERTLINE(1,1);
		times:=0;
	end else 
	begin
		myAmount:=myAmount+close*max(vol,1);{累计成交金額}
		myVol:=myVol+max(vol,1);{累计成交量}
	end
	Amountline:myAmount/myVol;{近似均价线}
	priceRange:=close/preCloseD;{今日即时涨幅}
	turnoverratio:=vol/capital*100;{单笔换手率}
	{最终输出------------------------------------------------}
	if turnoverratio>lenRTO then
	begin
			line:=llvall(low)*0.999;
	end else
	begin
			line:=llvall(low)*0.995;
	end
	单笔换手信号:line;
	Entercond:=CLOSE>Amountline and priceRange<lenmaxRange and priceRange>lenminRange and turnoverratio>lenRTO;
	if Entercond then times:=times+1;
	DRAWTEXT(Entercond and times<2,llvall(low)*0.9999,'←进场');
	STICKLINE(Entercond,CLOSE,OPEN,8,0),colorgreen;