[求助]求一个外汇止损，止盈的模型。

请问能否通过下边的代码改进？ 请高手帮忙编辑一下 小弟谢谢了！

variable:maxprofit=0;//有仓位时最大获利幅度

//开仓
IF holding<0 THEN
BEGIN
 BUY(1,1);
 maxprofit:=0;
END

//平仓
SELL(holding>0,0);

//判断当前持仓状态下的最大盈利
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(win < -30,0);
 
//出现最高盈利后，回落到盈利的60％平仓出场
止赢:SELL(win2 >= 60 and openprofit > 0, 0);