////////COMPRA///////




Var
  
  compra,venda,saidac : boolean;

inicio
  
  ///////////Definir as Entradas///////////////

  compra := (fechamento[0] > fechamento[1]) and (time < 1700);
  
  //////////Definir as Saídas///////////////

  saidac := (fechamento[0] < fechamento[1]);
  
  Inicio
    Se (IsBought) e ((Maxima - fechamento)> 30) entao
      
      Selltocoverlimit(Highest(High,1))
     
     Senao Se (IsBought) e ((Maxima - fechamento)<= 30) entao
  
      Selltocoverlimit(Highest(High+30,1))
      
      Senao Se (IsBought) e saidac entao
        
      ClosePosition;
      fim;
       
             
  Se (Buyposition = 1) e (time > 1715) entao
    Inicio
      SellshortAtMarket;
    Fim;
  Se (Hasposition = false) entao
    Inicio
      Se compra and (time < 1700) entao
        BuyAtMarket;
    fim;


            fim;