盘中抓涨停
看了一发千钧老师的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] thenbeginpreCloseD:=close[1];{昨日日线收盘价}myAmount:=close*max(vol,1);{成交金额}myVol:=max(vol,1);{成交量}VERTLINE(1,1);times:=0;end else beginmyAmount:=myAmount+close*max(vol,1);{累计成交金额}myVol:=myVol+max(vol,1);{累计成交量}endAmountline:myAmount/myVol;{近似均价线}priceRange:=close/preCloseD;{今日即时涨幅}turnoverratio:=vol/capital*100;{单笔换手率}{最终输出------------------------------------------------}if turnoverratio>lenRTO thenbeginline:=llvall(low)*0.999;end elsebeginline:=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; |
