盘中抓涨停
 
看了一发千钧老师的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;