if 做多=0 then //等待做多环境
begin
if 多头行情=1 then // 连续10根k线最低价保持在均线上方
begin
做多:=1;
end
end
else // 做多环境消失
begin
if 多头行情结束=1 then // 连续3根k线保持在均线下方
begin
做多:=0;
end
end
if tbuyholding(1)=0 THEN
BEGIN
if 做多=1 THEN
BEGIN
tbuy(c>0,1,lmt,ma1+5);
END
END
else
BEGIN
if tbesttrade>=500 THEN
BEGIN
tsell(c>0,1,stp,tENTERPRICE+tbesttrade/2); //回撤止损
END
else
BEGIN
tsell(c>0,1,stp,tENTERPRICE-20); // 止损
end
if tbesttrade>=1000 THEN //止盈
BEGIN
tsell(c>0,1,mkt);
END