colorazione istogrammi MACD

• 12/25/2019 at 4:03 PM #115453
  claudio cc

  buongiorno per cortesia esiste un codice che cambia il colore degli istogrammi del MACD. Mi servirebbero 4 colorazioni:

  1. macd positivo e istogramma in aumento rispetto al precedente istogramma = colore blu
  2. macd positivo e istogramma in diminuzione rispetto al precedente istogramma = colore magenta
  3. macd negativo e istogramma ancora più basso del precedente istogramma= colore rosso
  4. macd negativo e istogramma in rialzo rispetto al precedente istogramma= colore verde

  Grazie mille

  

  claudio cc

  Participant

  Topics: 14

  Replies: 6

  Been thanked: 0 times
  12/25/2019 at 8:40 PM #115457
  robertogozzi

  Si, si può fare. Venerdì.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16464

  Been thanked: 3640 times
  12/27/2019 at 11:17 AM #115487
  robertogozzi

  Eccolo:

  MACD colorato

  DEFPARAM CalculateOnLastBars = 1000 // // formula del MACD // //NediaVeloce = 12 //MediaLenta = 26 //MediaSegnale = 9 MyMACD = ExponentialAverage[MediaVeloce](close) - ExponentialAverage[MediaLenta](close) MySignalLine = ExponentialAverage[MediaSegnale](MyMACD) MyHisto = MyMACD - MySignalLine // //BluColor = MyMACD > 0 AND MyHisto > MyHisto[1] //non usato perché assunto per difetto MagentaColor = MyMACD > 0 AND MyHisto < MyHisto[1] RedColor = MyMACD < 0 AND MyHisto < MyHisto[1] GreenColor = MyMACD < 0 AND MyHisto > MyHisto[1] // t = 255 //255=max. visibilità, 0=invisibile // r = 0 g = 0 b = 255 //BLU per difetto // IF MagentaColor THEN r = 255 //MAGENTA (ROSSO + BLU) ELSIF RedColor THEN r = 255 //ROSSO b = 0 ELSIF GreenColor THEN g = 255 //VERDE b = 0 ENDIF RETURN MyMACD coloured(0,197,205,t) AS "Macd",MySignalLine coloured(238,99,99,t) AS "Segnale",MyHisto coloured(r,g,b,t) STYLE(histogram,1) AS "Istogramma"

  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

  DEFPARAM CalculateOnLastBars = 1000 // // formula del MACD // //NediaVeloce  = 12 //MediaLenta   = 26 //MediaSegnale = 9 MyMACD       = ExponentialAverage[MediaVeloce](close) - ExponentialAverage[MediaLenta](close) MySignalLine = ExponentialAverage[MediaSegnale](MyMACD) MyHisto      = MyMACD - MySignalLine // //BluColor   = MyMACD > 0 AND MyHisto > MyHisto[1]      //non usato perché assunto per difetto MagentaColor = MyMACD > 0 AND MyHisto < MyHisto[1] RedColor     = MyMACD < 0 AND MyHisto < MyHisto[1] GreenColor   = MyMACD < 0 AND MyHisto > MyHisto[1] // t            = 255                                      //255=max. visibilità,  0=invisibile // r            = 0 g            = 0 b            = 255                                      //BLU per difetto // IF MagentaColor THEN    r = 255                                              //MAGENTA  (ROSSO + BLU) ELSIF RedColor THEN    r = 255                                              //ROSSO    b = 0 ELSIF GreenColor THEN    g = 255                                              //VERDE    b = 0 ENDIF RETURN MyMACD coloured(0,197,205,t) AS "Macd",MySignalLine coloured(238,99,99,t) AS "Segnale",MyHisto coloured(r,g,b,t) STYLE(histogram,1) AS "Istogramma"

  Se fai il Copia & Incolla dovrai togliere le barre iniziali dei commenti dalla righe 5, 6 e 7.

  Se importi il file non ce n’è bisogno in quanto le variabili sono state dichiarate tra le proprietà dell’indicatore.

   

   

  1 user thanked author for this post.

  claudio cc

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16464

  Been thanked: 3640 times
• Author
  Posts