[PEL] 复制代码 ma1:=ma(close,5);
ma2:=ma(close,30);
variable:maxprofit:=0;//有仓位时最大获利幅度
//开多仓
if cross(ma1,ma2) then
begin
buy(1,1,limit,c);
maxprofit:=0;
end
//平多仓
sell(cross(ma2,ma1),0,limit,c);
////开空仓
//if cross(ma2,ma1) then
//begin
// buyshort(1,1,limit,c);
// maxprofit:=0;
//end
////平空仓
//sellshort(cross(ma1,ma2),0,limit,c);
win:=0;
win2:=0;
if holding > 0 and enterbars > 0 then
begin
win:=(c-enterprice); //记录最大盈利的点数
if win>maxprofit then
maxprofit:=win;
win2:=(maxprofit-win); //最大盈利后的回调
end
if holding < 0 and enterbars > 0 then
begin
win:=(enterprice-c); //记录最大盈利的点数
if win > maxprofit then
maxprofit:=win;
win2:=(maxprofit-win); //最大盈利后的回调
end
浮动盈亏点数:win;
最大盈亏点数:if(holding<>0,maxprofit,DRAWNULL);
高点回撤点数:win2;
//出现浮动亏损5个点
止损:sell(win < -5,0,limit,c);
//出现最高盈利大于60个点数且回落5个点
止赢:sell(win2 >= 5 and maxprofit >60, 0,limit,c); |