Parabxot para ProRealTime

jaom
Mensajes: 16
Registrado: 09 Mar 2017 14:08

Parabxot para ProRealTime

Mensaje por jaom »

Código versión para prorealtime

Código: Seleccionar todo

//Parabólico Dennis Meyers
//variables
//start=0.02 incremento=0.02 maximo=0.2 xo=0.1 xpr=0.05

psar=0
af=0
trenddir=0
ep=0
sarlongtoshort = trenddir[1] = 1  and close <= (psar[1]*(1-xo))
sarshorttolong = trenddir[1] = -1 and close >= (psar[1]*(1+xo))

trendchange = barindex=2 or sarlongtoshort or sarshorttolong

// Calculate trend direction
if barindex=2 and close[1] > open[1] then
trenddir=1
elsif barindex=2 and close[1] <= open[1] then
trenddir=-1
elsif sarlongtoshort then
trenddir=-1
elsif sarshorttolong then
trenddir=1
else
trenddir=trenddir[1]
endif

// Calculate  Acceleration Factor
if trendchange then
af= start
elsif (trenddir = 1 and high > ep[1]) or (trenddir = -1 and low < ep[1]) then
af=min(maximo, af[1] + incremento)
else
af=af[1]
endif


// Calculate extreme point
if trendchange and trenddir = 1 then
ep= high
elsif trendchange and trenddir = -1 then
ep= low
elsif trenddir = 1 then
ep= max(ep[1], (high*(1+xpr)) )
else
ep=min(ep[1], (low*(1-xpr)))
endif

// Calculate PSAR
if barindex=2 and close[1] > open[1] then
psar=low[1]
elsif barindex=2 and close[1] <= open[1] then
psar= high[1]
elsif trendchange then
psar= ep[1]
elsif trenddir = 1 then
psar= psar[1] + af * (ep - psar[1])
else
psar= psar[1] - af * (psar[1] - ep)
endif

if trenddir = 1 then
r=0
g=255
else
r=255
g=0
endif

return psar coloured(r,g,0)
Última edición por X-Trader el 22 Feb 2021 09:59, editado 1 vez en total.
Razón: Lo muevo aquí, más apropiado.
Responder

Volver a “Indicadores”