用全局變量記錄下金叉的狀態,變量為1時表示為金叉狀態，死叉時可以用公式調整為0；

variable:a=0;

if 金叉 then begin

sell();

a:=1;

end

if a=1 and 多頭排列 then buy();

海龜系統，下面黃底部分有問題，我的目的是平倉后又符合建倉條件（但沒有cross了），要返回到開1，如何作呢？

IF BARPOS>=21 THEN BEGIN
IF BARPOS=21 THEN
N:=M;
IF DayCount=6 OR BARPOS=21 THEN BEGIN{5天調整N值}
N:=(19*N+TR)/20;{計算N值}
DayCount:=2;
END
DayCount:=DayCount+1;
EntPoint:=ENTERBARS+1;
IF EntPoint=EntAndExitSign THEN BEGIN{說明STOP指令買進頭寸成功}
PositionCount:=PositionCount+1;{頭寸計數}
SellSign:=True;{開始以STOP賣出，如果達到指定的價格}
END
IF aa THEN BEGIN{第一頭寸}
HOW:=CASH(0)*0.001/N;{波動性百分比決定頭寸規模}
開1:BUY(BUYHHV,HOW,MARKET);{在20日新高STOP指令買進}
END
IF PositionCount=2 THEN BEGIN{如到第二頭寸}
HOW:=CASH(0)*0.011/N;{波動性百分比決定頭寸規模}
開2:BUY(h>=ENTERPRICE+0.5*N,HOW,MARKET);{在上頭寸(即第一頭寸)+0.5個N以STOP指令買進}
END
IF PositionCount=3 THEN BEGIN{如到第三頭寸}
HOW:=CASH(0)*0.029/N;
開3:BUY(h>=ENTERPRICE+0.5*N,HOW,MARKET);{在上頭寸(即第二頭寸)+0.5個N以STOP指令買進}
END
IF PositionCount=4 THEN BEGIN
HOW:=CASH(0)*0.034/N;
開4:BUY(h>=ENTERPRICE+0.5*N,HOW,MARKET);
END
IF SellSign=True THEN BEGIN
    ExitPoint:=EXITBARS+1;
    IF ExitPoint=EntAndExitSign THEN BEGIN {說明賣出成功}
       PositionCount:=1;{頭寸計算復原}
       SellSign:=False;
    END
    IF c>ENTERPRICE-1.5*N then SELL(sellllv,100%,MARKET);{退出離盈利頭寸}
    ELSE
    SELL(c<=ENTERPRICE-1.5*N,100%,MARKET);{退出虧損頭寸}
    END
if bb then begin
HOW:=CASH(0)*0.001/N;
開:BUY(BUYHHV,HOW,MARKET);
end;
END;