Olá,

Estou testando um código e o mesmo está abrindo zeragem automática. Gostaria de saber se alguém poderia me ajudar com isso, pois isso não acontece no backtest.

Agradeço a ajuda.

Input

FatorAcel(0.02);
LimitAcel(0.20);


Var

AlvoC, AlvoV, nSar : Float;

FlagC, FlagV : Inteiro;

Inicio

  nSar := ParabolicSar(FatorAcel, LimitAcel);
  
  
  Se (IsBought) entao
    Inicio
      SellToCOverLImit(BuyPrice+AlvoC); //Alvo
      SellToCoverStop(nSar, nSar-500); //Stop

      Se (Fechamento<nSar) entao ClosePosition;

      FlagC:=1;
      FlagV:=0;
    Fim;

  Se (IsSold) entao
    Inicio
      BuyToCoverLimit(SellPrice-AlvoV); //Alvo
      BuyToCOverStop(nSar, nSar+500); //Stop

      Se (Fechamento>nSar) entao ClosePosition;

      FlagV:=1;
      FlagC:=0;
    FIm;

  Se (HasPosition=False) entao
    Inicio
      Se (Fechamento > nSar) e (FlagC = 0) entao
        Inicio
          BuyStop(Maxima+MinPriceIncrement, Maxima+MinPriceIncrement+20);    
          AlvoC:=Maxima+MinpriceIncrement-nSar;
        Fim;

       Se (Fechamento < nSar) e (FlagV = 0) entao
        Inicio
          SellShortStop(Minima-MinPriceIncrement, Minima-MinPriceIncrement-20);    
          AlvoV:= nSar- Minima-MinpriceIncrement;
        Fim;
    Fim;

  Se (Fechamento > nSar)  entao
    PaintBar(ClLime);

  Se (Fechamento < nSar)  entao
    PaintBar(255);

  Se (Fechamento[1]<nSar[1]) e (Fechamento > nSar)  entao
    PlotText("$", ClLime, 0, 20);

  Se (Fechamento[1] > nSar[1]) e (Fechamento < nSar)  entao
    PlotText("$", 255, 0, 20);

Fim;