[PEL] 复制代码 variable:maxprofit=0;//有仓位时最大获利幅度
ma5:ma(c,5);
ma20:ma(c,20);
duo:=ma20>ref(ma20,1);//20周期均线向上
kd:cross(ma5,ma20);
ss:=100;
可用:holding-dayholding;
if not(duo) and 可用>0 then 20均线向下:sell(1,holding,market);
//判断当前持仓状态下的最大盈利
win:=0;
win2:=0;
if holding > 0 and enterbars > 0 then
begin
win:=(c-enterprice)/enterprice*100; //记录最大盈利的百分比
if win>maxprofit then
maxprofit:=win;
win2:=(maxprofit-win)/maxprofit*100; //最大盈利后的回调幅度
end
if holding < 0 and enterbars > 0 then
begin
win:=(enterprice-c)/enterprice*100; //记录最大盈利
if win > maxprofit then
maxprofit:=win;
win2:=(maxprofit-win)/maxprofit*100; //最大盈利后的回调幅度
end
//出现浮动亏损比如2%平仓
止损:sell(可用>0 and win < -5,0,marketr);
//出现大于5%的最高盈利后,回落到盈利的60%平仓出场
止赢:sell(可用>0 and maxprofit>=5 and win2 >= 60 and openprofit > 0, 0,marketr);
//开仓
if kd and holding=0 then
begin
buy(1,1,market);
maxprofit:=0;
end
浮动盈亏百分比:OPENPROFITPER;
最大浮动盈亏百分比:maxprofit;
仅供参考,具体细节建议自行尝试完善下。
|