主题：后台程序化实现持仓同步 请教

设计的10S检查一次，看是否持仓同步，多退少补

请老师指导一下是否正确 

TimeCheck:Mod(Timetot0(dynainfo(207)),10)=0,linethick0,colorWhite;

 

if TimeCheck then begin

         TBUYX:TBUYHOLDING(1),linethick0,colorWhite;

         TSELX:TSELLHOLDING(1),linethick0,colorWhite;

         THoldX:TBUYX-TSELX,linethick0,colorWhite;

         DifHold:THoldX-Holding,linethick0,colorWhite;

         if DifHold>0 then begin

                   if TBUYX>0 then begin

                            TSELL(DifHold>0 And TBUYX>0,DifHold,MKT);//不存在DifHold>TBUYX的情况

                   end

                   else begin

                            TBuyShort(DifHold>0 ,DifHold,MKT);

                   end         

         end

         else if DifHold<0 then  begin

                   if TSelX>0 then begin

                            TSELLShort(DifHold<0 And TSelX>0,ABS(DifHold),MKT);//不存在DifHold>TSELX的情况

                   end

                   else begin

                            TBuy(DifHold<0 ,ABS(DifHold),MKT);

                   end         

         end

end