Colorazione di candele e barre all’incrocio di 2 medie mobili adattive

• 11/27/2020 at 7:57 AM #151845
  Hans63

  E’ possibile avere un codice per un indicatore che mi colori le barre quando si incrociano 2 medie mobili adattive?

  Rispetto a 2 medie mobili tradizionali (semplici o esponenziali) funzionano molto meglio

  Grazie

  

  Hans63

  Participant

  Topics: 17

  Replies: 37

  Been thanked: 1 time
  11/27/2020 at 8:16 AM #151851
  Hans63

  L’ideale sarebbe poter colorare anche di un colore neutro, quando la candela chiude sopra/sotto la media più lunga e/o sopra/sotto la media più corta

  

  Hans63

  Participant

  Topics: 17

  Replies: 37

  Been thanked: 1 time
  11/27/2020 at 10:55 AM #151889
  robertogozzi

  Eccolo (i colori puoi variarli come vuoi, vedi tabella http://cloford.com/resources/colours/500col.htm):

  ////////////////////////////////////////////////////////////////////// // fast KAMA //////////////////////////////////////////////////////////////////////// // parameters: ONCE Period1 = 12 //12 ONCE FastPeriod1 = 2 //2 ONCE SlowPeriod1 = 28 //28 Fastest1 = 2 / (FastPeriod1 + 1) Slowest1 = 2 / (SlowPeriod1 + 1) if barindex < (Period1 + 1) then Kama1 = close else Num1 = abs(close-close[Period1]) Den1 = summation[Period1](abs(close - close[1])) ER1 = Num1 / Den1 Alpha1 = SQUARE(ER1 *(Fastest1 - Slowest1) + Slowest1) Kama1 = (Alpha1 * Close) + ((1 - Alpha1) * Kama1[1]) endif //////////////////////////////////////////////////////////////////////// // slow KAMA //////////////////////////////////////////////////////////////////////// // parameters: ONCE Period2 = 50 //50 ONCE FastPeriod2 = 2 //2 ONCE SlowPeriod2 = 30 //30 Fastest2 = 2 / (FastPeriod2 + 1) Slowest2 = 2 / (SlowPeriod2 + 1) if barindex < (Period2 + 1) then Kama2 = close else Num2 = abs(close-close[Period2]) Den2 = summation[Period2](abs(close - close[1])) ER2 = Num2 / Den2 Alpha2 = SQUARE(ER2 *(Fastest2 - Slowest2) + Slowest2) Kama2 = (Alpha2 * Close) + ((1 - Alpha2) * Kama2[1]) endif //////////////////////////////////////////////////////////////////////// x = Kama1 CROSSES OVER Kama2 x1 = (Kama1 > Kama2) AND (close > Kama1) y = Kama1 CROSSES UNDER Kama2 y1 = (Kama1 < Kama2) AND (close < Kama1) // IF x THEN DRAWCANDLE(open,high,low,close) COLOURED(0,192,0,255) BORDERCOLOR(238,118,33,255) //VERDE (incrocio rialzista) ELSIF y THEN DRAWCANDLE(open,high,low,close) COLOURED(205,0,0,255) BORDERCOLOR(238,238,0,255) //ROSSO (incrocio ribassista) ELSIF x1 THEN DRAWCANDLE(open,high,low,close) COLOURED(238,232,170,160) BORDERCOLOR(0,0,0,0) //VERDE tenue (PREZZO > media veloce) ELSIF y1 THEN DRAWCANDLE(open,high,low,close) COLOURED(244,164,96,160) BORDERCOLOR(0,0,0,0) //ROSSO tenue (PREZZO < media veloce) ENDIF RETURN

  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

  ////////////////////////////////////////////////////////////////////// //                         fast KAMA //////////////////////////////////////////////////////////////////////// //    parameters: ONCE Period1             = 12                               //12 ONCE FastPeriod1         = 2                                //2 ONCE SlowPeriod1         = 28                               //28 Fastest1   = 2 / (FastPeriod1 + 1) Slowest1   = 2 / (SlowPeriod1 + 1) if barindex < (Period1 + 1) then Kama1   = close else Num1    = abs(close-close[Period1]) Den1    = summation[Period1](abs(close - close[1])) ER1     = Num1 / Den1 Alpha1  = SQUARE(ER1 *(Fastest1 - Slowest1) + Slowest1) Kama1   = (Alpha1 * Close) + ((1 - Alpha1) * Kama1[1]) endif //////////////////////////////////////////////////////////////////////// //                         slow KAMA //////////////////////////////////////////////////////////////////////// //    parameters: ONCE Period2             = 50                               //50 ONCE FastPeriod2         = 2                                //2 ONCE SlowPeriod2         = 30                               //30 Fastest2   = 2 / (FastPeriod2 + 1) Slowest2   = 2 / (SlowPeriod2 + 1) if barindex < (Period2 + 1) then Kama2   = close else Num2    = abs(close-close[Period2]) Den2    = summation[Period2](abs(close - close[1])) ER2     = Num2 / Den2 Alpha2  = SQUARE(ER2 *(Fastest2 - Slowest2) + Slowest2) Kama2   = (Alpha2 * Close) + ((1 - Alpha2) * Kama2[1]) endif //////////////////////////////////////////////////////////////////////// x  = Kama1 CROSSES OVER  Kama2 x1 = (Kama1 > Kama2) AND (close > Kama1) y = Kama1 CROSSES UNDER Kama2 y1 = (Kama1 < Kama2) AND (close < Kama1) // IF x THEN DRAWCANDLE(open,high,low,close) COLOURED(0,192,0,255) BORDERCOLOR(238,118,33,255)  //VERDE  (incrocio rialzista) ELSIF y THEN DRAWCANDLE(open,high,low,close) COLOURED(205,0,0,255)  BORDERCOLOR(238,238,0,255)   //ROSSO  (incrocio ribassista) ELSIF x1 THEN DRAWCANDLE(open,high,low,close) COLOURED(238,232,170,160) BORDERCOLOR(0,0,0,0)   //VERDE  tenue (PREZZO > media veloce) ELSIF y1 THEN DRAWCANDLE(open,high,low,close) COLOURED(244,164,96,160)   BORDERCOLOR(0,0,0,0)   //ROSSO  tenue (PREZZO < media veloce) ENDIF RETURN

   

  1 user thanked author for this post.

  Hans63

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16463

  Been thanked: 3639 times
• Author
  Posts