variable:aa=0;
if CROSS(wMA(CLOSE,n),wMA(CLOSE,n2)) then begin
sellshort(1,1,market);
dd:=0;
end
if a THEN BEGIN
IF aa=0 AND b THEN BEGIN
buy(1,1,market) ;
AA:=1;
END
end
variable:dd=0;
if CROSS(wMA(CLOSE,n2),wMA(CLOSE,n)) then begin
sell(1,1,market);
aa:=0;
end
if d THEN BEGIN
IF dd=0 AND e THEN BEGIN
buyshort(1,1,market);
dd:=1;
END
end
你这个是不是开关不对吧，买空之后将dd赋值为1，平空为0，然后还if d then begin
这样的话 d为0 程序就认为条件不成立，就不执行了
你试试
if d=0 THEN BEGIN
IF e THEN BEGIN
buyshort(1,1,market);
dd:=1;
END
end
我只赋值了DD没赋值给D啊``