Indicateur RSI divergence +HA

• 03/18/2023 at 5:25 PM #211713
  reb

  Bonjour à tous,

  J’aurais besoin d’aide pour coder un indicateur qui associe le code RSI divergences élaboré par Francesco (https://www.prorealcode.com/prorealtime-indicators/rsi-classical-hidden-divergences-indicator/) et les bougies Heiken Ashi.
  Je souhaiterais avoir  un histogramme -1/0/1 qui se déclenche si une divergence apparait et la bougie HA est de couleur opposée au mouvement précédent  (ex1 et ex2) ou que la bougie HA suivante à l’apparition de la divergence change de sens (ex 3 et 4)

  J’ai essayé de regrouper ces 2 idées, mais çà ne me donne pas du tout le résultat souhaité

  Merci de votre aide

  Reb

  //RSI Divergences By Frank (Francesco) //Description: the indicator draws arrows on chart as entry points when a direct or an hidden RSI divergence is found. //When a DIRECT divergence is found, "dd" (direct divergence) text is added to chart over (Sell signal) or under (Buy signal) the arrow //When an HIDDEN or INVERSE divergence is found, "hd" (hidden divergence) text is added to chart over (Sell signal) or under (Buy signal) the arrow //Variables: //RsiPeriod: number of bars to calculare RSI value //RsiOverSold: Oversold Level //RsiOverBought: OverBought Level //MinBarRange: minimum distance from two consecutive RSI Highs or RSI Lows RsiPeriod=10 RsiOverSold=30 RsiOverBought=70 MinBarRange=3 Rge = averagetruerange[10](close) MyRSI = rsi[RsiPeriod](Close) ONCE ShiftText = 3 RsiMax = MyRSI < MyRSI[1] and MyRSI[1] > MyRSI[2] and MyRSI[1] > RsiOverBought RsiMin = MyRSI > MyRSI[1] and MyRSI[1] < MyRSI[2] and MyRSI[1] < RsiOverSold if RsiMax then RSIMax1 = MyRSI[1] High1 = High[1] for I = MinBarRange to 80 if RsiMax[I] then RSIMax2 = MyRSI[I + 1] High2 = High[I + 1] If High1 > High2 and RSIMax1 < RSIMax2 then X=-1 //DRAWARROWDOWN(barindex, High + Rge / ShiftText)coloured(255,192,203,255) //DRAWTEXT("dd", barindex, High + Rge / ShiftText / 0.3,SansSerif,Italic,10)coloured(0,0,255,255) //elsif High1 < High2 and RSIMax1 > RSIMax2 then //DRAWARROWDOWN(barindex, High + Rge / ShiftText)coloured(255,192,203,255) //DRAWTEXT("hd", barindex, High + Rge / ShiftText / //0.2,SansSerif,Italic,10)coloured(0,0,255,255) endif break endif next endif if RsiMin then RSIMin1 = MyRSI[1] Low1 = Low[1] for I = MinBarRange to 80 if RSIMin[I] then RSIMin2 = MyRSI[I + 1] Low2 = Low[I + 1] If Low1 < Low2 and RSIMin1 > RSIMin2 then X=1 //DRAWARROWUP(barindex, lOW - Rge / ShiftText)coloured(0,0,255,255) //DRAWTEXT("dd", barindex, lOW - Rge / ShiftText / 0.3,SansSerif,Italic,10)coloured(0,0,255,255) //elsif Low1 > Low2 and RSIMin1 < RSIMin2 then //DRAWARROWUP(barindex, lOW - Rge / ShiftText)coloured(0,0,255,255) //DRAWTEXT("hd", barindex, lOW - Rge / ShiftText / //0.2,SansSerif,Italic,10)/coloured(0,0,255,255) endif break endif next endif //heiken ashi xClose = (Open+High+Low+Close)/4 if(barindex>2) then xOpen= (xOpen[1] + xClose[1])/2 xHigh= Max(xOpen, xClose) xLow= Min(xOpen, xClose) endif If X=1 and xOpen<xclose then Y = 1 ELSIF X[1]=1 and xOpen<xclose then Y=0.5 else Y= 0 endif return Y

  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

  //RSI Divergences By Frank (Francesco)   //Description: the indicator draws arrows on chart as entry points when a direct or an hidden RSI divergence is found. //When a DIRECT divergence is found, "dd" (direct divergence) text is added to chart over (Sell signal) or under (Buy signal) the arrow   //When an HIDDEN or INVERSE divergence is found, "hd" (hidden divergence) text is added to chart over (Sell signal) or under (Buy signal) the arrow   //Variables: //RsiPeriod: number of bars to calculare RSI value //RsiOverSold: Oversold Level //RsiOverBought: OverBought Level //MinBarRange: minimum distance from two consecutive RSI Highs or RSI Lows RsiPeriod=10 RsiOverSold=30 RsiOverBought=70 MinBarRange=3 Rge = averagetruerange[10](close) MyRSI = rsi[RsiPeriod](Close)   ONCE ShiftText = 3   RsiMax = MyRSI < MyRSI[1] and MyRSI[1] > MyRSI[2] and MyRSI[1] > RsiOverBought RsiMin = MyRSI > MyRSI[1] and MyRSI[1] < MyRSI[2] and MyRSI[1] < RsiOverSold   if RsiMax then RSIMax1 = MyRSI[1] High1 = High[1]   for I = MinBarRange to  80 if RsiMax[I] then RSIMax2 = MyRSI[I + 1] High2 = High[I + 1] If High1 > High2 and RSIMax1 < RSIMax2 then X=-1 //DRAWARROWDOWN(barindex, High + Rge / ShiftText)coloured(255,192,203,255) //DRAWTEXT("dd", barindex, High + Rge / ShiftText / 0.3,SansSerif,Italic,10)coloured(0,0,255,255) //elsif High1 < High2 and RSIMax1 > RSIMax2 then //DRAWARROWDOWN(barindex, High + Rge / ShiftText)coloured(255,192,203,255) //DRAWTEXT("hd", barindex, High + Rge / ShiftText / //0.2,SansSerif,Italic,10)coloured(0,0,255,255) endif break endif next endif   if RsiMin then RSIMin1 = MyRSI[1] Low1 = Low[1] for I = MinBarRange to  80 if RSIMin[I] then RSIMin2 = MyRSI[I + 1] Low2 = Low[I + 1] If Low1 < Low2 and RSIMin1 > RSIMin2 then X=1 //DRAWARROWUP(barindex, lOW - Rge / ShiftText)coloured(0,0,255,255) //DRAWTEXT("dd", barindex, lOW - Rge / ShiftText / 0.3,SansSerif,Italic,10)coloured(0,0,255,255) //elsif Low1 > Low2 and RSIMin1 < RSIMin2 then //DRAWARROWUP(barindex, lOW - Rge / ShiftText)coloured(0,0,255,255) //DRAWTEXT("hd", barindex, lOW - Rge / ShiftText / //0.2,SansSerif,Italic,10)/coloured(0,0,255,255) endif break endif next endif     //heiken ashi xClose = (Open+High+Low+Close)/4 if(barindex>2) then xOpen= (xOpen[1] + xClose[1])/2 xHigh= Max(xOpen, xClose) xLow= Min(xOpen, xClose) endif   If X=1 and xOpen<xclose then Y = 1 ELSIF X[1]=1 and xOpen<xclose then Y=0.5 else Y= 0 endif   return Y

   

   

  

  reb

  Participant

  Topics: 15

  Replies: 158

  Been thanked: 28 times
  03/20/2023 at 9:53 AM #211772
  Nicolas

  Les divergences doivent être aussi calculés via le lissage des prix des Heikin Ashi, ou doit on utiliser le prix normal ?

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4774 times
  03/20/2023 at 11:22 AM #211779
  reb

  Bonjour Nicolas

  Le prix normal

  

  reb

  Participant

  Topics: 15

  Replies: 158

  Been thanked: 28 times
  03/20/2023 at 1:38 PM #211789
  Nicolas

  Selon ma compréhension de ta demande, le code ci-dessous trace un histogramme des signaux sur N et N+1, selon un retournement Heikin Ashi consécutif à une divergence haussière ou baissière de type “dd” du code original.

  //RSI Divergences By Frank (Francesco) //Description: the indicator draws arrows on chart as entry points when a direct or an hidden RSI divergence is found. //When a DIRECT divergence is found, "dd" (direct divergence) text is added to chart over (Sell signal) or under (Buy signal) the arrow //When an HIDDEN or INVERSE divergence is found, "hd" (hidden divergence) text is added to chart over (Sell signal) or under (Buy signal) the arrow //Variables: //RsiPeriod: number of bars to calculare RSI value //RsiOverSold: Oversold Level //RsiOverBought: OverBought Level //MinBarRange: minimum distance from two consecutive RSI Highs or RSI Lows RsiPeriod=10 RsiOverSold=30 RsiOverBought=70 MinBarRange=3 Rge = averagetruerange[10](close) MyRSI = rsi[RsiPeriod](Close) ONCE ShiftText = 3 RsiMax = MyRSI < MyRSI[1] and MyRSI[1] > MyRSI[2] and MyRSI[1] > RsiOverBought RsiMin = MyRSI > MyRSI[1] and MyRSI[1] < MyRSI[2] and MyRSI[1] < RsiOverSold X=0 if RsiMax then RSIMax1 = MyRSI[1] High1 = High[1] for I = MinBarRange to 80 if RsiMax[I] then RSIMax2 = MyRSI[I + 1] High2 = High[I + 1] If High1 > High2 and RSIMax1 < RSIMax2 then X=-1 endif break endif next endif if RsiMin then RSIMin1 = MyRSI[1] Low1 = Low[1] for I = MinBarRange to 80 if RSIMin[I] then RSIMin2 = MyRSI[I + 1] Low2 = Low[I + 1] If Low1 < Low2 and RSIMin1 > RSIMin2 then X=1 endif break endif next endif //heiken ashi xClose = (Open+High+Low+Close)/4 if(barindex>2) then xOpen= (xOpen[1] + xClose[1])/2 xHigh= Max(xOpen, xClose) xLow= Min(xOpen, xClose) endif y=0 If X=1 and xOpen<xclose then Y = 1 ELSIF X[1]=1 and xOpen<xclose then Y= 0.5 endif If X=-1 and xOpen>xclose then Y = -1 ELSIF X[1]=-1 and xOpen>xclose then Y= -0.5 endif if y>0 then r=0 g=255 endif if y<0 then r=255 g=0 endif return Y style(histogram) coloured(r,g,0)

  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

  //RSI Divergences By Frank (Francesco)   //Description: the indicator draws arrows on chart as entry points when a direct or an hidden RSI divergence is found. //When a DIRECT divergence is found, "dd" (direct divergence) text is added to chart over (Sell signal) or under (Buy signal) the arrow   //When an HIDDEN or INVERSE divergence is found, "hd" (hidden divergence) text is added to chart over (Sell signal) or under (Buy signal) the arrow   //Variables: //RsiPeriod: number of bars to calculare RSI value //RsiOverSold: Oversold Level //RsiOverBought: OverBought Level //MinBarRange: minimum distance from two consecutive RSI Highs or RSI Lows RsiPeriod=10 RsiOverSold=30 RsiOverBought=70 MinBarRange=3 Rge = averagetruerange[10](close) MyRSI = rsi[RsiPeriod](Close)   ONCE ShiftText = 3   RsiMax = MyRSI < MyRSI[1] and MyRSI[1] > MyRSI[2] and MyRSI[1] > RsiOverBought RsiMin = MyRSI > MyRSI[1] and MyRSI[1] < MyRSI[2] and MyRSI[1] < RsiOverSold   X=0 if RsiMax then RSIMax1 = MyRSI[1] High1 = High[1] for I = MinBarRange to  80 if RsiMax[I] then RSIMax2 = MyRSI[I + 1] High2 = High[I + 1] If High1 > High2 and RSIMax1 < RSIMax2 then X=-1 endif break endif next endif   if RsiMin then RSIMin1 = MyRSI[1] Low1 = Low[1] for I = MinBarRange to  80 if RSIMin[I] then RSIMin2 = MyRSI[I + 1] Low2 = Low[I + 1] If Low1 < Low2 and RSIMin1 > RSIMin2 then X=1 endif break endif next endif     //heiken ashi xClose = (Open+High+Low+Close)/4 if(barindex>2) then xOpen= (xOpen[1] + xClose[1])/2 xHigh= Max(xOpen, xClose) xLow= Min(xOpen, xClose) endif   y=0 If X=1 and xOpen<xclose then Y = 1 ELSIF X[1]=1 and xOpen<xclose then Y= 0.5 endif   If X=-1 and xOpen>xclose then Y = -1 ELSIF X[1]=-1 and xOpen>xclose then Y= -0.5 endif   if y>0 then r=0 g=255 endif if y<0 then r=255 g=0 endif   return Y style(histogram) coloured(r,g,0)

   

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4774 times
  03/20/2023 at 6:25 PM #211838
  reb

  C’est ce que je n’arrivait pas à coder
  Merci beaucoup Nicolas

  

  reb

  Participant

  Topics: 15

  Replies: 158

  Been thanked: 28 times
• Author
  Posts