RainBow – Indicator

• 07/30/2020 at 3:07 PM #140307
  Erbsenzaehler

  RainBow – indicator for optical analysis
  Remarks:
  – Before switching from linear to progressive, please reduce “AnzahlweiterexMAs” < 10
  – With “StartwertSchnellster” as a Fibo-number and the “FaktorWeiterexMAs” 1,618 and “progressive”: a xMA-bundle with Fibo-numbers as period lengths is created
  (Sorry for bad English. Was translated with the Google Translater.)
  Don’t know what Version of PRT is necessary.
  

  

  Erbsenzaehler

  Participant

  Topics: 1

  Replies: 1

  Been thanked: 0 times
  07/30/2020 at 4:36 PM #140502
  robertogozzi

  Will you please post a link to that indicator?

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17248

  Been thanked: 4110 times
  07/30/2020 at 5:01 PM #140505
  Erbsenzaehler

  // RainBow - Indikator // // Übergabe der Variablen prdxMA1 = StartwertSchnellster // 3 (Fibo-Zahl für Fibo-xMAs) stpxMAs = SchrittWeitexMAs // 3 (gültig für lineare Berechnunge fktxMAs = FaktorWeitexMAs // 1.6188 (gültig für exponetielle Berechnung; 1.618 entspricht Fibo-Ratio) numxMAs = AnzahlweiterexMAs // 22 max 9 bei exponentiellen Abstand (Berechnungszeit!!!) typxMAs = xMAType // 1 artBerchg = Linear1Progressiv0 // Linearer Abstand : 1 ; Exponetieller Abstand: 0 MyClose = CustomClose // // Bestücken des Arrys $prdxMA[0] = prdxMA1 if artBerchg = 1 then // Perioden für linearen Abstand for i = 1 to numxMAs $prdxMA[i] = $prdxMA[i - 1] + stpxMAs next else // artBerchg = 0 then // Perioden für wachsenden Abstand for i = 1 to numxMAs $prdxMA[i] = round($prdxMA[i - 1] * fktxMAs) next endif // // Berechnung Farbverlauf $FarbeRot[0] = 255 $FarbeGruen[0] = 0 $FarbeBlau[0] = 0 ratio = 1 / numxMAs IF numxMAs > 1 Then For k = 1 To numxMAs if ratio * k <= 0.25 then $FarbeRot[k] = 255 $FarbeGruen[k] = 255 * 4 * k / numxMAs $FarbeBlau[k] = 0 elsif ratio * k > 0.25 and ratio * k <= 0.50 then $FarbeRot[k] = 255 * (2 - 4 * k / numxMAs) $FarbeGruen[k] = 255 $FarbeBlau[k] = 0 elsif ratio * k > 0.50 and ratio * k <= 0.75 then $FarbeRot[k] = 0 $FarbeGruen[k] = 255 $FarbeBlau[k] = 255 * ((4 * k / numxMAs) - 2) elsif ratio * k > 0.27 then $FarbeRot[k] = 0 $FarbeGruen[k] = 255 * (4 - 4 * k / numxMAs ) $FarbeBlau[k] = 255 endif next else break endif // // Berechnen der xMA-Werte for j = 0 to numxMAs $MYxMA [j] = Average[$prdxMA[j],typxMAs](MyClose) $MYxMA1[j] = Average[$prdxMA[j],typxMAs](MyClose[1]) DRAWSEGMENT(barindex, $MYxMA[j], barindex[1], $MYxMA1[j])COLOURED($FarbeRot[j],$FarbeGruen[j],$FarbeBlau[j]) next // 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 53 54 55 56 57 58 59 60 61

  // RainBow - Indikator // // Übergabe der Variablen prdxMA1   = StartwertSchnellster  //   3      (Fibo-Zahl für Fibo-xMAs) stpxMAs   = SchrittWeitexMAs      //   3      (gültig für lineare Berechnunge fktxMAs   = FaktorWeitexMAs       //   1.6188 (gültig für exponetielle Berechnung; 1.618 entspricht Fibo-Ratio) numxMAs   = AnzahlweiterexMAs     //   22     max 9 bei exponentiellen Abstand (Berechnungszeit!!!) typxMAs   = xMAType               //   1 artBerchg = Linear1Progressiv0    //   Linearer Abstand : 1 ; Exponetieller Abstand: 0 MyClose   = CustomClose // // Bestücken des Arrys $prdxMA[0] = prdxMA1 if artBerchg = 1 then      // Perioden für linearen Abstand for i = 1 to numxMAs $prdxMA[i] = $prdxMA[i - 1] + stpxMAs next else // artBerchg = 0 then   // Perioden für wachsenden Abstand for i = 1 to numxMAs $prdxMA[i] = round($prdxMA[i - 1] * fktxMAs) next endif   // // Berechnung Farbverlauf $FarbeRot[0]   = 255 $FarbeGruen[0] =   0 $FarbeBlau[0]  =   0 ratio = 1 / numxMAs IF numxMAs > 1 Then For k = 1 To numxMAs if ratio * k <= 0.25 then $FarbeRot[k]   = 255 $FarbeGruen[k] = 255 * 4 * k  / numxMAs $FarbeBlau[k]  =   0 elsif ratio * k > 0.25 and ratio * k <= 0.50 then $FarbeRot[k]   = 255 * (2 - 4 * k / numxMAs) $FarbeGruen[k] = 255 $FarbeBlau[k]  =   0 elsif ratio * k > 0.50 and ratio * k <= 0.75 then $FarbeRot[k]   =   0 $FarbeGruen[k] = 255 $FarbeBlau[k]  = 255 * ((4 * k / numxMAs) - 2) elsif  ratio * k > 0.27  then $FarbeRot[k]   =   0 $FarbeGruen[k] = 255 * (4 - 4 * k / numxMAs ) $FarbeBlau[k]  = 255 endif next else break endif // // Berechnen der xMA-Werte for j = 0 to numxMAs $MYxMA [j] = Average[$prdxMA[j],typxMAs](MyClose) $MYxMA1[j] = Average[$prdxMA[j],typxMAs](MyClose[1]) DRAWSEGMENT(barindex, $MYxMA[j], barindex[1], $MYxMA1[j])COLOURED($FarbeRot[j],$FarbeGruen[j],$FarbeBlau[j]) next // RETURN

  

  Erbsenzaehler

  Participant

  Topics: 1

  Replies: 1

  Been thanked: 0 times
• Author
  Posts