//用全局變量,實(shí)現(xiàn)次周期恢復(fù)持倉(cāng)功能,供參考

buycond:=ref(count(c>o,2)=2,1);
sellcond:=ref(count(c<o,2)=2,1);

if holding>0 and sellcond and not(islastbar) then sell(1,1,marketr);
if holding<0 and buycond and not(islastbar) then sellshort(1,1,marketr);

if buycond and holding=0 and not(islastbar) then 
 begin 
 buy(1,1,marketr);
 end
 
if holding=0 and sellcond and not(islastbar) then buyshort(1,1,marketr);

 
if islastbar and tholding2<>holding then
 begin 
  if barpos=EXTGBDATA('kai')+1 then//開(kāi)倉(cāng)信號(hào)消失，平倉(cāng)恢復(fù)倉(cāng)
  begin
  sell(tholding2>0,1,marketr);
  sellshort(tholding2<0,1,marketr);
  EXTGBDATASET( 'kai',0);
  end
  
  if barpos=EXTGBDATA('ping')+1 then//平倉(cāng)信號(hào)消失,開(kāi)倉(cāng)恢復(fù)倉(cāng)
  begin
  buy(holding>0,1,marketr);
  buyshort(holding<0,1,marketr);
  EXTGBDATASET( 'ping',0);
  end    
 end

if holding>0 and sellcond and islastbar then 
begin
sell(1,1,marketr);
EXTGBDATASET( 'ping',BARPOS);
end

if holding<0 and buycond and islastbar then 
begin
sellshort(1,1,marketr);
EXTGBDATASET( 'ping',BARPOS);
end

//全局變量BAR，信號(hào)消失一根K線上也只開(kāi)一次倉(cāng)
if ISLASTBAR AND buycond and barpos>EXTGBDATA('kai') and holding=0 then 
 begin 
 buy(1,1,marketr);
 EXTGBDATASET( 'kai',BARPOS);
 end

if ISLASTBAR AND sellcond and barpos>EXTGBDATA('kai') and holding=0 then 
 begin 
 buyshort(1,1,marketr);
 EXTGBDATASET( 'kai',BARPOS);
 end

這是之前老師寫的代碼，需要怎樣修改呢

 實(shí)際持倉(cāng) 與理論同步