Fr7Participant
Master
//period=14
//MM=3
a=range/close[1]
b=abs(high-close[1])/close[1]
c=abs(low-close[1])/close[1]
trbalanced=100*max(a,max(b,c))
atrbalanced=average[period,mm](trbalanced)
return atrbalanced as "Balanced ATR"
Hola Nicolás,
¿Podría crear el indicador de la imagen?
He estado mirando en código de ATR equilibrado publicado,pero no es lo que estoy buscando…..Necesito que sea como el de la fotografía,a ver si puede modificarlo.Gracias.
Fr7Participant
Master
¿Puede alguien hacer el indicador de la imagen?
En primer lugar, ¿está seguro de que se basa en el ATR suavizado? ¿De dónde sacaste esta imagen? ¿Cómo quieres que alguien codifique algo solo a partir de una información tan limitada? 🙂
¿Jugaste un poco con el período suavizado ATR y el tipo de promedio móvil?
Fr7Participant
Master
Hola Nicolás, siento no poder suministrar más información,porque el autor no ha publicado el código. Creo que sí se basa en ATR, he intentado suavizarlo pero no lo he conseguido como la imagen.Lo único que le pido a usted es que codifique un ATR suavizado…………
Si no me equivoco Fr7, corresponde a un ATR usado por Ted Waller .Para empezar , es un ATR con parámetro 100.Yo tengo esto que debe ser algo parecido:
REM ATR NORMALIZADO
//En cuadro de variables p=entero=100
a=AverageTrueRange[p](close)
natr=a/close*100
return natr*100 as "ATR"
perdona,para que te salga la escala como en el gráfico de Ted habría que poner al final de código:
return natr*10 as “ATR”
Fr7Participant
Master
Hola Miguel,
Sí,está basado en el de Ted.Esto es lo que he conseguido.Pero no nos queda igual…….Creo que le falta añadir una constante o suavizarlo más………..
//p=100
//p=100
//mm=3
a=AverageTrueRange[p](close)
natr=a/close*100
atrbalanced=average[period,mm](natr)
if natr*100<100 then
direction = -1
elsif natr*100>100 then
direction = 1
endif
if direction > 0 then
backgroundcolor(10,255,10,100)
else
backgroundcolor(255,10,10,100)
endif
return 100 as "100",atrbalanced*100coloured(30,144,255) as "Atr-Smoothedfr7"
Fr7Participant
Master
Esta es la versión definitiva hecha por mi.Acepto sugerencias de mejora,aunque lo más probable es que se queda así.Si os gusta darle a gracias .Un saludo a todos.
//PRC_Atr-Smoothedfr7 by @Fr7Travis//25-10-2017
//El indicador está basado en el ATR de Ted Waller y con la ayuda de @castillomorenom//The indicator is based on Ted Waller's ATR and with the help of @ castillomorenom
//variables optimizables para cada instrumento//// optimizable variables for each instrument
//p=100
//p=100
//mm=3
//level=170 para el DAX
a=AverageTrueRange[p](close)
natr=a/close*100
atrbalanced=average[period,mm](natr)
if atrbalanced*100<level then
direction = -1
elsif atrbalanced*100>level then
direction = 1
endif
if direction > 0 then
backgroundcolor(255,10,10,100)
else
backgroundcolor(10,255,10,100)
endif
return level as "level",atrbalanced*100coloured(30,144,255) as "Atr-Smoothedfr7"
