[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);
//判断当前持仓状态下的最大盈利
win:=0;
//多头时候
if holding > 0 and enterbars > 0 then
begin
win:=(c-enterprice)/enterprice*100;
if win>maxprofit then //记录最大盈利
maxprofit:=win;
end
//空头时候
if holding < 0 and enterbars > 0 then
begin
win:=(enterprice-c)/enterprice*100;
if win > maxprofit then
maxprofit:=win;
end
//出现最高盈利后,回落到盈利的60%平仓出场
回撤平仓:sell(maxprofit >= 10 and win<=5 0, 0,limitr,c);
可以参考上面的代码逻辑。 |