Modifica Indicatore Divergenze RSI

• 10/01/2024 at 11:27 AM #238348
  RubbinRubbin02

  Buongiorno, vorrei apportare delle modifiche al mio indicatore di divergenze RSI.

  Vorrei fosse possibile cambiare i vari colori che lo compongono e che si possa decidere se mostrare o meno a grafico le divergenze regular e hidden.

  Soprattutto vorrei fosse possibile inserire un’allarme in modo tale da ricevere una notifica quando viene rilevata una divergenza.

  Grazie in anticipo allego il codice dell’indicatore:

  len=14 //RSI Length

  src=close

  lbr=5 //pivot lookback Right

  lbl=5 //pivot lookback Left

  rangeUpper=60 //Max lookback range

  rangeLower=5 //Min lookback range

  plotBull=1

  plotHiddenBull=1

  plotBear=1

  plotHiddenBear=1

  //———————————————-//

  //—–RSI Calculation————————–//

  //———————————————-//

  osc=rsi[len](src)

  midlevel=50

  obLevel=70

  osLevel=30

  colorbetween(obLevel,osLevel,33,150,243,50)

  //———————————————-//

  //—–Pivots High and Low———————-//

  //———————————————-//

  //—Pivots low

  if osc > osc[lbr] and lowest[lbr](osc) > osc[lbr] and osc[lbr] < lowest[lbl](osc)[lbr+1] then

  $ply[z+1] = osc[lbr]

  $plx[z+1] = barindex[lbr]

  $pricel[z+1] = low[lbr]

  drawpoint(barindex[lbr],osc[lbr],2)coloured(“red”,80)

  z = z + 1

  endif

  //—Pivots high

  if osc < osc[lbr] and highest[lbr](osc)<osc[lbr] and osc[lbr]>highest[lbl](osc)[lbr+1] then

  $phy[t+1]=osc[lbr]

  $phx[t+1]=barindex[lbr]

  $priceH[t+1]=high[lbr]

  drawpoint(barindex[lbr],osc[lbr],2)coloured(“blue”,80)

  t=t+1

  endif

  //—Pivot detection

  if z<>z[1] then

  plFound=1

  elsif t<>t[1] then

  phFound=1

  else

  plFound=0

  phFound=0

  endif

  barsPL=barssince(plFound[1])

  inrangePL=rangelower<=barsPL and barsPL<=rangeupper

  barsPH=barssince(pHFound[1])

  inrangePH=rangelower<=barsPH and barsPH<=rangeupper

  //———————————————-//

  //—–Regular Bullish————————–//

  //———————————————-//

  oscHL=osc[lbr]>$ply[max(0,z–1)] and inrangePL

  priceLL=low[lbr]<$pricel[max(0,z–1)]

  bullCondAlert=priceLL and oscHL and plFound

  bullCond=plotBull and bullCondalert

  if plFound  and bullCond then

  drawsegment($plx[max(0,z–1)],$ply[max(0,z–1)],$plx[z],$ply[z])coloured(“green”)style(line,2)

  endif

  //———————————————-//

  //—–Hidden Bullish—————————//

  //———————————————-//

  oscLL=osc[lbr]<$ply[max(0,z–1)] and inrangePL

  priceHL=low[lbr]>$pricel[max(0,z–1)]

  hiddenBullCondAlert=priceHL and oscLL and plFound

  hiddenBullCond=hiddenBullCondAlert and plotHiddenBull

  if plFound and hiddenBullCond then

  drawsegment($plx[max(0,z–1)],$ply[max(0,z–1)],$plx[z],$ply[z])coloured(“green”,80)style(line,2)

  endif

  //———————————————-//

  //—–Regular Bearish————————–//

  //———————————————-//

  oscLH=osc[lbr]<$phy[max(0,t–1)] and inrangePH

  priceHH=high[lbr]>$priceH[max(0,t–1)]

  bearCondAlert=priceHH and oscLH and pHFound

  bearCond=plotBear and bearCondalert

  if pHFound  and bearCond then

  drawsegment($phx[max(0,t–1)],$phy[max(0,t–1)],$phx[t],$phy[t])coloured(“red”)style(line,2)

  endif

  //———————————————-//

  //—–Hidden Bearish—————————//

  //———————————————-//

  oscHH=osc[lbr]>$phy[max(0,t–1)] and inrangePH

  priceLH=high[lbr]<$priceh[max(0,t–1)]

  hiddenBearCondAlert=priceLH and oscHH and phFound

  hiddenBearCond=hiddenBearCondAlert and plotHiddenBear

  if pHFound and hiddenBearCond then

  drawsegment($phx[max(0,t–1)],$phy[max(0,t–1)],$phx[t],$phy[t])coloured(“red”,80)style(line,2)

  endif

  //———————————————-//

  return osc as “RSI”coloured(“blue”)style(line,2), midlevel as “MidLevel”coloured(“grey”)style(dottedline,1),obLevel as “obLevel”coloured(“grey”)style(dottedline,1),osLevel as “osLevel”coloured(“grey”)style(dottedline,1)

  

  RubbinRubbin02

  Participant

  Topics: 3

  Replies: 6

  Been thanked: 0 times
  10/01/2024 at 4:29 PM #238363
  Iván

  Ciao. Nelle prime righe di codice hai tutte le variabili per configurare l'indicatore. All'interno di queste variabili hai:

  plotBull=1 plotHiddenBull=1 plotBear=1 plotHiddenBear=1

  1 2 3 4

  plotBull=1 plotHiddenBull=1 plotBear=1 plotHiddenBear=1

  Un valore pari a 1 fa sì che le linee vengano visualizzate, mentre la modifica del valore su 0 le farà nascondere. Nell'ultima riga del codice invece vengono configurate tutte le linee (colore e stile). E' sufficiente cancellare le specifiche e poi sarà possibile modificarle dalla finestra di configurazione.

  restituisce osc come "RSI", midlevel come "MidLevel", obLevel come "obLevel", osLevel come "osLevel"

  1	restituisce osc come "RSI", midlevel come "MidLevel", obLevel come "obLevel", osLevel come "osLevel"

  1 user thanked author for this post.

  RubbinRubbin02

  

  Iván

  Moderator

  Topics: 0

  Replies: 978

  Been thanked: 338 times
  10/01/2024 at 4:53 PM #238368
  RubbinRubbin02

  Ok grazie mille, mentre invece per gli allarmi come faccio? Se trascino un allarme sull’indicatore non me lo fa settare in base alla presenza o meno di una divergenza

  

  RubbinRubbin02

  Participant

  Topics: 3

  Replies: 6

  Been thanked: 0 times
  10/02/2024 at 8:54 AM #238390
  Iván

  Mi viene in mente di creare un nuovo indicatore proprio come il precedente ma invece di disegnare l'RSI e le divergenze, disegna semplicemente i segnali di divergenza. Vedi schermata.

  //----------------------------------------------// //PRC_RSI Divergence Indicator //version = 0 //24.09.24 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //----------------------------------------------// //-----Inputs-----------------------------------// //----------------------------------------------// len=14 //RSI Length src=close lbr=5 //pivot lookback Right lbl=5 //pivot lookback Left rangeUpper=60 //Max lookback range rangeLower=5 //Min lookback range plotBull=1 plotHiddenBull=1 plotBear=1 plotHiddenBear=1 //----------------------------------------------// //-----RSI Calculation--------------------------// //----------------------------------------------// osc=rsi[len](src) midlevel=50 obLevel=70 osLevel=30 //----------------------------------------------// //-----Pivots High and Low----------------------// //----------------------------------------------// //---Pivots low if osc > osc[lbr] and lowest[lbr](osc) > osc[lbr] and osc[lbr] < lowest[lbl](osc)[lbr+1] then $ply[z+1] = osc[lbr] $plx[z+1] = barindex[lbr] $pricel[z+1] = low[lbr] z = z + 1 endif //---Pivots high if osc < osc[lbr] and highest[lbr](osc)<osc[lbr] and osc[lbr]>highest[lbl](osc)[lbr+1] then $phy[t+1]=osc[lbr] $phx[t+1]=barindex[lbr] $priceH[t+1]=high[lbr] t=t+1 endif //---Pivot detection if z<>z[1] then plFound=1 elsif t<>t[1] then phFound=1 else plFound=0 phFound=0 endif barsPL=barssince(plFound[1]) inrangePL=rangelower<=barsPL and barsPL<=rangeupper barsPH=barssince(pHFound[1]) inrangePH=rangelower<=barsPH and barsPH<=rangeupper //----------------------------------------------// //-----Regular Bullish--------------------------// //----------------------------------------------// oscHL=osc[lbr]>$ply[max(0,z-1)] and inrangePL priceLL=low[lbr]<$pricel[max(0,z-1)] bullCondAlert=priceLL and oscHL and plFound bullCond=plotBull and bullCondalert if plFound and bullCond then RegularBullishFound=1 else RegularBullishFound=0 endif //----------------------------------------------// //-----Hidden Bullish---------------------------// //----------------------------------------------// oscLL=osc[lbr]<$ply[max(0,z-1)] and inrangePL priceHL=low[lbr]>$pricel[max(0,z-1)] hiddenBullCondAlert=priceHL and oscLL and plFound hiddenBullCond=hiddenBullCondAlert and plotHiddenBull if plFound and hiddenBullCond then hiddenBullishFound=1 else hiddenBullishFound=0 endif //----------------------------------------------// //-----Regular Bearish--------------------------// //----------------------------------------------// oscLH=osc[lbr]<$phy[max(0,t-1)] and inrangePH priceHH=high[lbr]>$priceH[max(0,t-1)] bearCondAlert=priceHH and oscLH and pHFound bearCond=plotBear and bearCondalert if pHFound and bearCond then RegularBearishFound=1 else RegularBearishFound=0 endif //----------------------------------------------// //-----Hidden Bearish---------------------------// //----------------------------------------------// oscHH=osc[lbr]>$phy[max(0,t-1)] and inrangePH priceLH=high[lbr]<$priceh[max(0,t-1)] hiddenBearCondAlert=priceLH and oscHH and phFound hiddenBearCond=hiddenBearCondAlert and plotHiddenBear if pHFound and hiddenBearCond then hiddenBearishFound=1 else hiddenBearishFound=0 endif //----------------------------------------------// return RegularBullishFound as "RegularBullishFound" coloured("green"),hiddenBullishFound coloured("blue"),RegularBearishFound coloured("red"),hiddenBearishFound coloured("orange")

  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 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

  //----------------------------------------------// //PRC_RSI Divergence Indicator //version = 0 //24.09.24 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //----------------------------------------------// //-----Inputs-----------------------------------// //----------------------------------------------// len=14 //RSI Length src=close lbr=5 //pivot lookback Right lbl=5 //pivot lookback Left rangeUpper=60 //Max lookback range rangeLower=5 //Min lookback range plotBull=1 plotHiddenBull=1 plotBear=1 plotHiddenBear=1 //----------------------------------------------// //-----RSI Calculation--------------------------// //----------------------------------------------// osc=rsi[len](src) midlevel=50 obLevel=70 osLevel=30 //----------------------------------------------// //-----Pivots High and Low----------------------// //----------------------------------------------// //---Pivots low if osc > osc[lbr] and lowest[lbr](osc) > osc[lbr] and osc[lbr] < lowest[lbl](osc)[lbr+1] then $ply[z+1] = osc[lbr] $plx[z+1] = barindex[lbr] $pricel[z+1] = low[lbr] z = z + 1 endif //---Pivots high if osc < osc[lbr] and highest[lbr](osc)<osc[lbr] and osc[lbr]>highest[lbl](osc)[lbr+1] then $phy[t+1]=osc[lbr] $phx[t+1]=barindex[lbr] $priceH[t+1]=high[lbr] t=t+1 endif //---Pivot detection if z<>z[1] then plFound=1 elsif t<>t[1] then phFound=1 else plFound=0 phFound=0 endif   barsPL=barssince(plFound[1]) inrangePL=rangelower<=barsPL and barsPL<=rangeupper barsPH=barssince(pHFound[1]) inrangePH=rangelower<=barsPH and barsPH<=rangeupper   //----------------------------------------------// //-----Regular Bullish--------------------------// //----------------------------------------------// oscHL=osc[lbr]>$ply[max(0,z-1)] and inrangePL priceLL=low[lbr]<$pricel[max(0,z-1)] bullCondAlert=priceLL and oscHL and plFound bullCond=plotBull and bullCondalert   if plFound  and bullCond then RegularBullishFound=1 else RegularBullishFound=0 endif //----------------------------------------------// //-----Hidden Bullish---------------------------// //----------------------------------------------// oscLL=osc[lbr]<$ply[max(0,z-1)] and inrangePL priceHL=low[lbr]>$pricel[max(0,z-1)] hiddenBullCondAlert=priceHL and oscLL and plFound hiddenBullCond=hiddenBullCondAlert and plotHiddenBull   if plFound and hiddenBullCond then hiddenBullishFound=1 else hiddenBullishFound=0 endif //----------------------------------------------// //-----Regular Bearish--------------------------// //----------------------------------------------// oscLH=osc[lbr]<$phy[max(0,t-1)] and inrangePH priceHH=high[lbr]>$priceH[max(0,t-1)] bearCondAlert=priceHH and oscLH and pHFound bearCond=plotBear and bearCondalert   if pHFound  and bearCond then RegularBearishFound=1 else RegularBearishFound=0 endif //----------------------------------------------// //-----Hidden Bearish---------------------------// //----------------------------------------------// oscHH=osc[lbr]>$phy[max(0,t-1)] and inrangePH priceLH=high[lbr]<$priceh[max(0,t-1)] hiddenBearCondAlert=priceLH and oscHH and phFound hiddenBearCond=hiddenBearCondAlert and plotHiddenBear   if pHFound and hiddenBearCond then hiddenBearishFound=1 else hiddenBearishFound=0 endif //----------------------------------------------// return RegularBullishFound as "RegularBullishFound" coloured("green"),hiddenBullishFound coloured("blue"),RegularBearishFound coloured("red"),hiddenBearishFound coloured("orange")

  

  Iván

  Moderator

  Topics: 0

  Replies: 978

  Been thanked: 338 times
  10/02/2024 at 10:41 AM #238397
  RubbinRubbin02

  Grazie mille!

  C’è solo un problema, per via della natura della logica delle divergenze queste vengono confermate solo alcune candele dopo essere effettivamente rilevate quindi ricevo il segnale in ritardo per dare il tempo al codice di identificare massimi e minimi relativi.

  Questo è un problema, vorrei ricevere il segnale nello stesso momento in cui viene rilevato senza aspettare la conferma, si può fare?

  Ti invio uno screen del problema dove comparo il codice di prima che plotta le divergenze sull’RSI e l’ultima versione che mi hai mandato tu dell’indicatore che segna soltanto i segnali di divergenza così puoi vedere bene quello che intendo

  Grazie ancora e buona giornata

  

  RubbinRubbin02

  Participant

  Topics: 3

  Replies: 6

  Been thanked: 0 times
• Author
  Posts