Implementação de estratégias

				
					const
  // Define o percentual que caracteriza o toque
  // Se for igual a zero, a barra tem conter a média
  // Ex: se cPercProximidade = 0.5, define como toque se
  // preço chegar a 0.5% ou menos de distância da média
  cPercProximidade = 0.0;
var
  fMedia: float;
  bTocouMedia: boolean;


function NTB_ArredondarFloat(Value: float; nCasas: integer):float;
var
    fValor: float;
    fParteInteira: float;
    fParteDecimal: float;
begin
  fValor := Value;
  fParteInteira := IntPortion(fValor);
  fParteDecimal := Round((fValor - fParteInteira)*Power(10,nCasas));

  Result := fParteInteira + fParteDecimal/Power(10,nCasas);

end;

begin
  bTocouMedia := false;
  fMedia :=  NTB_ArredondarFloat(Media(20,Close),2);

  //Plot apenas para visualizar graficamente o funcionamento
  //do código
  Plot(fMedia);
  SetPlotColor(1,clRed);
  SetPlotWidth(1,2);
  if (cPercProximidade <> 0) then
  begin
    Plot2(NTB_ArredondarFloat(fMedia*(1 + cPercProximidade/100),2));
    Plot3(NTB_ArredondarFloat(fMedia*(1 - cPercProximidade/100),2));
    SetPlotColor(2, clGray);
    SetPlotColor(3, clGray);
  end;


  //Proteção para os primeiros períodos de backtesting
  //Quando pode ocorrer divisão por zero
  if fMedia <> 0 then
  begin

    // Situação em que a media está no meio da barra
    if (fMedia >= Low) and (fMedia <= High)
    then bTocouMedia := True;

    // Situação em que a media está abaixo do preço
    // negociado e este chegou a cPercProximidade da
    // média
    if (fMedia < Low)
    and (((Low - fMedia)/fMedia*100) <= cPercProximidade)
    then
    begin
      bTocouMedia := True;
    end;

    // Situação em que a media está abaixo do preço
    // negociado e este chegou a cPercProximidade da
    // média
    if (fMedia > High)
    and (((fMedia - High)/High*100) <= cPercProximidade)
    then
    begin
    bTocouMedia := True;
    end;

   if bTocouMedia then
     PlotText("Tocou",clWhite, - 1,8);

  end;

end;