4CMACDSqueeze

• 06/20/2017 at 10:46 AM #38629
  bolsatrilera

  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"

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92

  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"

   

  

  bolsatrilera

  Participant

  Topics: 21

  Replies: 60

  Been thanked: 26 times
  06/20/2017 at 11:36 AM #38637
  Nicolas

  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"

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97

  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"

   

  1 user thanked author for this post.

  bolsatrilera

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  06/20/2017 at 12:14 PM #38644
  bolsatrilera

  Es correcto, le quedo eternamente agradecido.Otro indicador más para la biblioteca de Prorealcode. ¿ lo subirá?

  

  bolsatrilera

  Participant

  Topics: 21

  Replies: 60

  Been thanked: 26 times
  06/20/2017 at 1:00 PM #38647
  Nicolas

  Sí, por favor, publícalo con alguna explicación y lo revisaré para publicarlo públicamente. Gracias por tu trabajo 🙂

  1 user thanked author for this post.

  bolsatrilera

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
• Author
  Posts