Código – Larry Williams 9.2 – Backtest

Veja como executar backtest no Setup Larry Williams 9.2

 

Código:


var
Larry92, TA : Booleano;
Entrada, Alvo, Stop: Real;
d : Inteiro;


Inicio
TA := FE_BuscaTendencia(9, 10) = 2;
Larry92 := (Fechamento[0] < Minima[1]) e TA;


{Estamos Posicionados?}
Se (IsBought) entao
inicio
SellToCoverLimit(Alvo, Lote);
SellToCoverStop(Stop,Stop, Lote);
fim
{Não estamos, então vamos buscar entrada}
Senao
inicio


{Larry}
Se (Larry92) entao PaintBar(clVerde);


{Qual Periodicidade?}
Se (BarType = 1) entao d := 0 Senao d := 1;


{Ordem de Entrada}
Se (Larry92[d] ou Larry92[d+1] {ou Larry92[d+2]}) entao
inicio
Entrada := Maxima[d];
Alvo := Maxima[d] + (2 * Range[d]);
Stop := Minima[d];
SendOrder(osBuy, otStopLimit, Lote, Entrada, Entrada);
fim;


fim;
Fim;
Fim;

Execução

Exemplo:

Para testar, adicione o código como uma estratégia de execução

Fazer login com suas credenciais

Esqueceu sua senha?