Desvio_sAtr(2.5);
Periodo_sAtr(13);
PlotarAtr(verdadeiro);
LimiteContra(740);

var
sinalc,sinalv : boolean;
Satr: float;

inicio
sAtr := (stopatr(Desvio_sAtr,Periodo_sAtr,0)); se plotaratr = verdadeiro entao plot(stopatr(Desvio_sAtr,Periodo_sAtr,0)); setplotcolor(1,clwhite);

//horario limite se (time = 1720) entao closeposition;

//condicoes de entrada
se (hasposition = false) entao inicio

//venda
sinalv := (time > 910) e (time < 1700) e (fechamento < (media(50,close))) e (fechamento < (sAtr));

se sinalv entao inicio sellshortlimit(highest(high,3)); paintbar(clred); fim;

//compra
sinalc := (time > 910) e (time < 1700) e (fechamento > (media(50,close))) e (fechamento > (sAtr));

se sinalc entao inicio buylimit(lowest(low,3)); paintbar(cllime); fim; fim; end;