4CMACDSqueeze

Viewing 4 posts - 1 through 4 (of 4 total)

Author

Posts

06/20/2017 at 10:46 AM #38629 quote

Participant

Master

Buenos días.Estoy intentando pasar a Prorealtime este código de la plataforma Tradingview : https://es.tradingview.com/script/hzOZZ1dU-4CMACDSqueeze/

El problema lo tengo al intentar poner los colores del histograma del macd. Solo he podido poner dos colores correctamente,celeste y gris en la parte superior del macd.

¿Alguien puede ayudar para sacar el código lo más posiblemente similar al del original?

Aquí la parte de código que llevo traducida :

REM 4CMACDSqueeze


//@version=3
//study("4CMACDSqueeze"

//===============macd================//
source = close

fastLength = 12
slowLength=26
signalLength=9

fastMA =ExponentialAverage[fastLength](source)
slowMA =ExponentialAverage[slowLength](source)

macdd = fastMA - slowMA
signal =Average [signalLength](macdd)

outMacD = macdd
outSignal = signal

//=========================4CHistogram===================//
currMacd = MACD[fastLength,slowLength,9](close[0])
prevMacd = MACD[fastLength,slowLength,9](close[1])

if currMacd >0 then
if currMacd >prevMacd then
r=0
g=191
b=255
else
r=204
g=204
b=204
endif
endif






//========================Squeeze==================//

length = 20 //title="Bollinger Band Length"

lengthKC=20 //title="Keltner Channel Length"
multKC =1.5 //title="KC Deviations"

//useTrueRange =true title="Use TrueRange (KC)", type=bool)

// Calculate BB
basis =Average [length](source)
dev = multKC *STD[length](source)
upperBB = basis + dev
lowerBB = basis - dev

// Calculate KC
ma = Average [lengthKC](source)
rango=useTrueRange
if rango = useTrueRange then
useTrueRange=TR(close)
else
useTrueRange=(high - low)
endif
rangema =Average[lengthKC](rango)
upperKC = ma + rangema * multKC
lowerKC = ma - rangema * multKC

sqzOn  = (lowerBB > lowerKC) and (upperBB < upperKC)
sqzOff = (lowerBB < lowerKC) and (upperBB > upperKC)
noSqz  = sqzOn  and sqzOff

val =LinearRegression(source) - (highest[lengthKC]( high)and lowest[lengthKC] (low))and Average [lengthKC](close) and lengthKC and 0

if  noSqz then
sr=0
sg=0
sb=0
elsif  sqzOn then
sr=0
sg=0
sb=0
else
sr=128
sg=0
sb=128
endif


return outmacd coloured (0,191,255)style(line,2)as "macd line",outmacd coloured(r,g,b)style (histogram)as "Macd", val coloured (sr,sg,sb)style(line,3) as "0",outsignal coloured(255,153,51)style (line,2)as "signal"

ibex.png

06/20/2017 at 11:36 AM #38637 quote

Nicolas

Keymaster

Legend

He modificado el código un poco. Creo que ha cometido algunos errores entre lo que es y cómo se calcula un histograma MACD en tradingview y prorealtime. Hay algo diferente. Espero que no haya ningún error en mi código aunque 🙂 Por favor, hágamelo saber!

REM 4CMACDSqueeze
//@version=3
//study("4CMACDSqueeze"

//===============macd================//
source = close

fastLength = 12
slowLength=26
signalLength=9

fastMA =ExponentialAverage[fastLength](source)
slowMA =ExponentialAverage[slowLength](source)

macdd = fastMA - slowMA
signal =Average [signalLength](macdd)

outMacD = macdd
outSignal = signal

//=========================4CHistogram===================//
//currMacd = MACD[fastLength,slowLength,9](close[0])
//prevMacd = MACD[fastLength,slowLength,9](close[1])

if outMACD <0 then
if outMACD <outMACD[1] then
r = 240
g = 128
b = 128
else
r=204
g=204
b=204
endif
elsif outMACD >0 then 
if outMACD >outMACD[1] then
r=0
g=191
b=255
else
r=204
g=204
b=204
endif
endif



//========================Squeeze==================//

length = 20 //title="Bollinger Band Length"

lengthKC=20 //title="Keltner Channel Length"
multKC =1.5 //title="KC Deviations"

//useTrueRange =true title="Use TrueRange (KC)", type=bool)

// Calculate BB
basis =Average [length](source)
dev = multKC *STD[length](source)
upperBB = basis + dev
lowerBB = basis - dev

// Calculate KC
ma = Average [lengthKC](source)
rango=useTrueRange
if rango = useTrueRange then
useTrueRange=TR(close)
else
useTrueRange=(high - low)
endif
rangema =Average[lengthKC](rango)
upperKC = ma + rangema * multKC
lowerKC = ma - rangema * multKC

sqzOn  = (lowerBB > lowerKC) and (upperBB < upperKC)
sqzOff = (lowerBB < lowerKC) and (upperBB > upperKC)
noSqz  = sqzOn  and sqzOff

val =LinearRegression(source) - (highest[lengthKC]( high)and lowest[lengthKC] (low))and Average [lengthKC](close) and lengthKC and 0

if  noSqz then
sr=0
sg=0
sb=0
elsif  sqzOn then
sr=0
sg=0
sb=0
else
sr=128
sg=0
sb=128
endif


return outmacd coloured(r,g,b)style (histogram,1)as "Macd", val coloured (sr,sg,sb)style(line,3) as "0",outsignal coloured(255,153,51)style (line,2)as "signal"

bolsatrilera thanked this post