variable:n=1;

if 開倉條件 and 持倉判斷 then begin

     開倉語句;

     if numprofit(1)>0 then n:=1;

     if numprofit(1)<0 then n:=n*2;

end

是遞加不是翻倍？

改這里就行

variable:n=1;

if 開倉條件 and 持倉判斷 then begin

     開倉語句;

     if numprofit(1)>0 then n:=1;

     if numprofit(1)<0 then n:=n+1;

end

連虧也是這樣寫，你想想看這個思路，能理解最好