[PEL] 复制代码 ss:=100;//手数
IF exist(WINNER(C)*100>=94 ,30) and exist(l<ref(llv(l,13),1),2) and c>ma(c,5) and holding=0 then
begin
buy(1,ss,market);
end
d1:=callstock('',vtclose,6,-1);//昨日收盘价
ztv:=0.1;//涨停幅度,默认是10%
//这里的处理是为了处理数学上计算的偏差
ztp:=round((ztv+1)*round(d1/0.01))/100;//涨停价
H1:=HHV(H,TODAYBAR);//开盘以来最高价
zt:=ztp=ROUNDS(H1,2);//当日最高价是否涨停
老仓:=HOLDING-DAYHOLDING;
pd1:C<MA(C,5) ;
pd2:zt and HHVBARS(h,TODAYBAR)>=5 and c<ztp;
//最高价位置达到了15%盈利,当前收盘价从最高价回撤5%
pd3:hhv(h,ENTERBARS)>1.15*AVGENTERPRICE and c<hhv(h,ENTERBARS)*0.95;
IF (pd1 or pd2 or pd3) and 老仓>0 then
begin
sell(1,holding,market);
end |