Ordens e Administração de Trade

				
					const
 //Relação risco/ganho de 3:1
 cStopEmTicks = 30;
 cBreakevenEmTicks = 10;
 cTraillingStopTrigger = 20;
 cTrailingStepEmTicks = 20;
 cTrailingStopOffset = 10;
 cStopOffsetEmTicks = 10;
 cAlvoEmTIcks = 90;

input
  bGestaoDeRiscoPelaEstrategia(true);
  iHorarioInicioAberturaPosicao(0905);
  iHorarioFimAberturaPosicao(1630);
  iHorarioEncerramentoDaytrade(1645);

var
  iCaraCoroa: integer;
  bSinalCompra, bSinalVenda, bPosicionado: boolean;
  fPrecoStop, fPrecoAlvo, fPrecoStopOffset: float;
  fFloorTraillingStop: float;
  bBreakevenAtivado: boolean;
  bConfigurouRiscoInicial: boolean;
  bTrailingStopAtivado: boolean;

begin

  bSinalCompra := false;
  bSinalVenda := false;
  bPosicionado := hasPosition;

  //ESTRATÉGIA CARA OU COROA!
  //Gera um numero aleatorio de 0 a 9. Se for menor igual a 4, gera
  //sinal de compra, se for maior que 4 geral sinal de venda
  if Not bPosicionado
  and (Time >= iHorarioInicioAberturaPosicao)
  and (Time <= iHorarioFimAberturaPosicao)
  then
  begin
    //Número aleatório foi substituido por minuto par ou impar para permitir depurar
    //melhor o robô quando a estratégia é inserida multiplas vezes: como indicador  e como execução
    //iCaraCoroa := Random(10);
    iCaraCoroa := mod(Time,2);
    if iCaraCoroa = 0 then bSinalCompra := true
    else bSinalVenda := true;
  end;

  //Gera ordem de compra a mercado quando há um Sinal de COMPRA
  //e define ordem stoploss e take profit
  if bSinalCompra then BuyAtMarket;

  //Gera ordem de venda a mercado quando há um Sinal de VENDA
  //e define ordem stoploss e take profit
  if bSinalVenda then SellShortAtMarket;

  if bGestaoDeRiscoPelaEstrategia then
  begin
    //Código responsável pela manutenção das ordens de stoploss e take profit
    if isBought then
    begin
      if Not bConfigurouRiscoInicial then
      begin
        fPrecoStop := BuyPrice - cStopEmTicks*MinPriceIncrement;
        fPrecoAlvo := BuyPrice + cAlvoEmTicks*MinPriceIncrement;
        fPrecoStopOffset := fPrecoStop - cStopOffsetEmTicks*MinPriceIncrement;
        bConfigurouRiscoInicial := true;
      end;

      if ((Close >= (BuyPrice + cTraillingStopTrigger*MinPriceIncrement))
          or (cTraillingStopTrigger = 0))
      and (not bTrailingStopAtivado) then bTrailingStopAtivado := true;

      fFloorTraillingStop := BuyPrice
          + floor((Close - BuyPrice)/(cTrailingStepEmTicks*MinPriceIncrement))
          *cTrailingStepEmTicks*MinPriceIncrement;

      if ((fFloorTraillingStop-cTrailingStopOffset*MinPriceIncrement) >= fPrecoStop)
      and (Close >= BuyPrice+cTrailingStepEmTicks*MinPriceIncrement)
      and bTrailingStopAtivado then
        fPrecoStop := fFloorTraillingStop - cTrailingStopOffset*MinPriceIncrement;

      if (Close >= (BuyPrice + cBreakevenEmTicks*MinPriceIncrement))
      and (not bBreakevenAtivado) then
      begin
        bBreakevenAtivado := true;
        if fPrecoStop < BuyPrice then fPrecoStop := BuyPrice;
      end;

      fPrecoStopOffset := fPrecoStop-cStopOffsetEmTicks*MinPriceIncrement;

      SellToCoverStop(fPrecoStop,fPrecoStopOffset);
      SellToCoverLimit(fPrecoAlvo);
    end;


    //Código responsável pela manutenção das ordens de stoploss e take profit
    if isSold then
    begin
      if Not bConfigurouRiscoInicial then
      begin
        fPrecoStop := SellPrice + cStopEmTicks*MinPriceIncrement;
        fPrecoAlvo := SellPrice - cAlvoEmTicks*MinPriceIncrement;
        fPrecoStopOffset := fPrecoStop + cStopOffsetEmTicks*MinPriceIncrement;
        bConfigurouRiscoInicial := true;
      end;

      if ((Close <= (SellPrice - cTraillingStopTrigger*MinPriceIncrement))
          or (cTraillingStopTrigger = 0))
      and (not bTrailingStopAtivado) then bTrailingStopAtivado := true;

      if Close <= SellPrice then
        fFloorTraillingStop := SellPrice
            - floor((SellPrice - Close)/(cTrailingStepEmTicks*MinPriceIncrement))
            *cTrailingStepEmTicks*MinPriceIncrement;


      if ((fFloorTraillingStop+cTrailingStopOffset*MinPriceIncrement) <= fPrecoStop)
      and (Close <= SellPrice - cTrailingStepEmTicks*MinPriceIncrement)
      and bTrailingStopAtivado then
        fPrecoStop := fFloorTraillingStop + cTrailingStopOffset*MinPriceIncrement;


      if (Close <= (SellPrice - cBreakevenEmTicks*MinPriceIncrement))
      and (not bBreakevenAtivado) then
      begin
        bBreakevenAtivado := true;
        if fPrecoStop > SellPrice then fPrecoStop := SellPrice;
      end;


      fPrecoStopOffset := fPrecoStop + cStopOffsetEmTicks*MinPriceIncrement;

      BuyToCoverStop(fPrecoStop,fPrecoStopOffset);
      BuyToCoverLimit(fPrecoAlvo);

    end;


    //Encerra posicao
    if (Time >= iHorarioEncerramentoDaytrade)
    and HasPosition
    then ClosePosition;

    if Not hasPosition and bConfigurouRiscoInicial then
    begin
      bConfigurouRiscoInicial := false;
      bBreakevenAtivado := false;
      bTrailingStopAtivado := false;
    end;

  end;

  // Plot de Stop e Alvo para inspeção visual do código
  bPosicionado := hasPosition;
  if bPosicionado or bPosicionado[1] or bPosicionado[2] then
  begin
    PlotN(1,fPrecoStop);
    PlotN(2,fPrecoStopOffset);
    PlotN(3,fPrecoAlvo);
    SetPlotColor(1,clRed);
    SetPlotColor(2,clRed);
    SetPlotColor(3,clGreen);
    SetPlotStyle(1,psDash);
    SetPlotStyle(2,psDash);
    SetPlotStyle(3,psDash);
    SetPlotWidth(1,2);
    SetPlotWidth(2,2);
    SetPlotWidth(3,2);
  end
  else
  begin
    NoPlot(1);
    NoPlot(2);
    NoPlot(3);
  end;




end;