Buenos dias
El indicador estraperlo consta de :
Un Macd con la configuración 5,13,1 que aparece en el recuadro de propiedades como LM(linea macd), que aparece como una linea (en los gráficos que os muestro es la linea negra gruesa).
Un Macd Histograma con la configuración estándar 12,26,9, centrado, de manera que su linea cero coincide con la linea cero del Macd 5,13,1.
Una linea de señal que aparece en el recuadro de propiedades como S , que se basa en una media Wilder por defecto en 10 periodos (aunque es configurable al periodo que elijaís) que corta al LM.
Y unas Bandas de Bollinguer (Bollsup y Bollinf en recuadro de propiedades) de 60 periodoscon una desviación estándar de 1.
la fuente por estraperlo : http://bolsatrilera.blogspot.com/2014/03/indicadores-estraperlo.html
//En el cuadro de variables b=Media=10
Rem Estraperlo
a=MACD[12,26,9](close)
alza=a>a[1]and a [1]<a[2]
baja=a<a[1]and a[1]>a[2]
if alza then
col=1
elsif baja then
col=-1
endif
mimacd=MACDline[5,13,1](close)
se=WilderAverage[b](mimacd)
gd2=average[60](mimacd)
sd=1*STD[60](mimacd)
bollsup=gd2+sd
bollinf=gd2-sd
RETURN a coloured by col as "MACD",mimacd as "LM",se as "S",bollsup as "Bollsup",bollinf as "bollinf"
Otra fuente que viene de tradingview
//@version=2
study("Biais5 Mago Estraperlo")
//Variables
length = input(20, minval=1,title="BB Length")
src = input(close, title="Source")
mult = input(2.0, minval=0.001, maxval=50,title="BB Multiplier")
fast = input(5, minval=1,title="Fast MACD")
slow = input(13, minval=1,title="Slow MACD")
media = input(10, minval=1,title="Media MACD")
sensible = input(1.6, title="Sensibilidad CPM Climatico")
//Capital Medio Proporcional
capital = volume * src
volmax = highest(capital, 60)
vol = ((capital*100/volmax)*4/5)
volmed = ema(vol, 60)
CPM = (vol - volmed)
//Plot Capital Medio Proporcional Climático
bvol = iff(CPM/10 > sensible,CPM/10,0)
plot(bvol, color =bvol > 0 ? #01FF0B : #FF1A15, style=columns)
// Atlas Mini
basis = sma(src, length)
dev = mult * stdev(src, length)
upper = basis + dev
lower = basis - dev
dbb = sqrt((upper-lower)/upper)*20
dbbmed = ema(dbb,120)
factor = dbbmed*4/5
atl = dbb-factor
all = atl>0?0:2*atl
//Plot Atlas Mini
plot(all, style=columns, color=blue)
plot(atl*2, linewidth=3, color=blue)
// Cálculo de la Curva de Estraperlo y Señal MACD
val1 = ema(src, fast)
val2 = ema(src, slow)
estraperlo = val1/val2-1
signal = sma(estraperlo, media)
tendencia = (estraperlo * 100 - signal * 100)
// Plot Estraperlo y señal MACD
ColorTendencia = iff(tendencia > 0, green,iff(tendencia < 0, red,blue))
plotEstraperlo = plot(series=(estraperlo * 100), color=green, linewidth=3)
plotSignal = plot(series=(signal * 100), color=red, linewidth=3)
// Color de relleno
fill(plot1=plotEstraperlo, plot2=plotSignal, color=ColorTendencia, transp = 50)
// Raya Horizontal
plot(0, color=black)
que tenga un buen día
