RSI classical and hidden Divergences Indicator

• 01/17/2018 at 12:28 PM #59707
  Inertia

  Hi,

  Francesco had done a great job with the strategy indicator. I like it. Thank you Frank.

  However, I wanted to convert this as a strategy but it doesn’t work…

  I’ve removed line 31 to 35 and 51 to 55 replaced by the “buy 1 contract at market”… error.

  Anyone would have a “tuto” or a piece of advice, I’d be happy to learn “how to” tweak it (same for other great indicators from the library…)

  Thank you all.

  Divergences

  //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 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 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 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 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 62

  //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 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     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     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 return

   

   

  

  Inertia

  Participant

  Topics: 40

  Replies: 223

  Been thanked: 52 times
  01/17/2018 at 12:41 PM #59710
  robertogozzi

  Topic moved to Probuilder support.

  1 user thanked author for this post.

  Inertia

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  01/17/2018 at 2:49 PM #59716
  Inertia

  Hereafter is my attemp…but doesn’t work… omg, why ? “Endif” is missing somwhere ?

  first try...error

  //RSI Divergences By Frank (Francesco) 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] //Conditions below, no ?! If High1 > High2 and RSIMax1 < RSIMax2 then //instead od drawarrowdown or drawtext, buy... buy 1 contract at market endif //Conditions below, no ?! elsif High1 < High2 and RSIMax1 > RSIMax2 then //instead od drawarrowdown or drawtext, buy... buy 1 contract at market 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] //Conditions below, no ?! If Low1 < Low2 and RSIMin1 > RSIMin2 then //instead od drawarrowdown or drawtext, buy... buy 1 contract at market endif //Conditions below, no ?! elsif Low1 > Low2 and RSIMin1 < RSIMin2 then //instead od drawarrowdown or drawtext, buy... buy 1 contract at market endif

  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

  //RSI Divergences By Frank (Francesco) 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]   //Conditions below, no ?! If High1 > High2 and RSIMax1 < RSIMax2 then //instead od drawarrowdown or drawtext, buy... buy 1 contract at market endif //Conditions below, no ?! elsif High1 < High2 and RSIMax1 > RSIMax2 then //instead od drawarrowdown or drawtext, buy... buy 1 contract at market 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]   //Conditions below, no ?! If Low1 < Low2 and RSIMin1 > RSIMin2 then //instead od drawarrowdown or drawtext, buy... buy 1 contract at market endif //Conditions below, no ?! elsif Low1 > Low2 and RSIMin1 < RSIMin2 then //instead od drawarrowdown or drawtext, buy... buy 1 contract at market endif

   

  

  Inertia

  Participant

  Topics: 40

  Replies: 223

  Been thanked: 52 times
  01/17/2018 at 7:14 PM #59733
  mr blue

  OK – I try to assist a bit .. I took above source and added some missing statements so that at least the strategy gives  A RESULT – but I don’t understand yet! how it should work.

  anyway, hope it helps a bit

  pure code

  //RSI Divergences By Frank (Francesco) defparam cumulateorders = false defparam flatbefore = 090000 defparam flatafter = 180000 RsiPeriod = 14 RsiOverSold = 20 RsiOverBought= 80 MinBarRange = 1 MyRSI = rsi[RsiPeriod](Close) 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 do if RsiMax[I] then RSIMax2 = MyRSI[I + 1] High2 = High[I + 1] //Conditions below, no ?! If High1 > High2 and RSIMax1 < RSIMax2 then //instead od drawarrowdown or drawtext, buy... buy 1 contract at market endif //Conditions below, no ?! elsif High1 < High2 and RSIMax1 > RSIMax2 then //instead od drawarrowdown or drawtext, buy... buy 1 contract at market endif if RsiMin then RSIMin1 = MyRSI[1] Low1 = Low[1] for I = MinBarRange to 80 do if RSIMin[I] then RSIMin2 = MyRSI[I + 1] Low2 = Low[I + 1] //Conditions below, no ?! If Low1 < Low2 and RSIMin1 > RSIMin2 then //instead od drawarrowdown or drawtext, buy... buy 1 contract at market endif //Conditions below, no ?! elsif Low1 > Low2 and RSIMin1 < RSIMin2 then //instead od drawarrowdown or drawtext, buy... buy 1 contract at market endif next endif next endif

  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

  //RSI Divergences By Frank (Francesco)   defparam cumulateorders = false defparam flatbefore = 090000 defparam flatafter = 180000     RsiPeriod = 14 RsiOverSold = 20 RsiOverBought= 80 MinBarRange = 1   MyRSI = rsi[RsiPeriod](Close) 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 do if RsiMax[I] then RSIMax2 = MyRSI[I + 1] High2 = High[I + 1]   //Conditions below, no ?! If High1 > High2 and RSIMax1 < RSIMax2 then //instead od drawarrowdown or drawtext, buy... buy 1 contract at market endif //Conditions below, no ?! elsif High1 < High2 and RSIMax1 > RSIMax2 then //instead od drawarrowdown or drawtext, buy... buy 1 contract at market endif if RsiMin then RSIMin1 = MyRSI[1] Low1 = Low[1] for I = MinBarRange to  80 do if RSIMin[I] then RSIMin2 = MyRSI[I + 1] Low2 = Low[I + 1]   //Conditions below, no ?! If Low1 < Low2 and RSIMin1 > RSIMin2 then //instead od drawarrowdown or drawtext, buy... buy 1 contract at market endif //Conditions below, no ?! elsif Low1 > Low2 and RSIMin1 < RSIMin2 then //instead od drawarrowdown or drawtext, buy... buy 1 contract at market endif next endif     next endif

   

  adapted on the DAX 1E contract …

   

   

  

  mr blue

  Participant

  Topics: 10

  Replies: 77

  Been thanked: 14 times
  01/17/2018 at 8:08 PM #59734
  Inertia

  You are my man Mr Blue ! Big thank.

  I got the modifications you made for the next time.

   

  Good site “Diffchecker” Mr GraHal.

  

  Inertia

  Participant

  Topics: 40

  Replies: 223

  Been thanked: 52 times
• Author
  Posts