variable:n=0;

if 平倉(cāng)條件 and 持倉(cāng)判斷 then begin

   平倉(cāng)語(yǔ)句;

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

end

if 開倉(cāng)條件 and 持倉(cāng)判斷  and n=1 then begin

   n:=0;

end

if 開倉(cāng)條件 and 持倉(cāng)判斷 and n=0 then begin

    開倉(cāng)語(yǔ)句;

end