Multiple timeframes RSI divergence

• 11/27/2019 at 2:26 PM #113734
  Abz

  hello , Big Thanks to Robertogozzi for converting 2 other screener if possible to convert this as well , i will try to use them in a manual strategy and if turns out good i will write down the rules and hopefully we can all benefit from it.

   

  //RSI Divergences Screener By Frank (Francesco) //Variables: //number of bars to calculare RSI value RsiPeriod = 10 //Oversold Level RsiOverSold = 30 //OverBought Level RsiOverBought = 70 //Minimum distance from two consecutive RSI Highs or RSI Lows MinBarRange = 3 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 if RsiMax[I] then RSIMax2 = MyRSI[I + 1] High2 = High[I + 1] break endif next endif CondRibassista = RsiMax and ((High1 > High2 and RSIMax1 < RSIMax2) or (High1 < High2 and RSIMax1 > RSIMax2)) 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] break endif next endif CondRialzista = RsiMin and ((Low1 < Low2 and RSIMin1 > RSIMin2) or (Low1 > Low2 and RSIMin1 < RSIMin2)) if CondRibassista then Result = 2 endif if CondRialzista then Result = 1 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

  //RSI Divergences Screener By Frank (Francesco)   //Variables: //number of bars to calculare RSI value RsiPeriod = 10   //Oversold Level RsiOverSold = 30   //OverBought Level RsiOverBought = 70   //Minimum distance from two consecutive RSI Highs or RSI Lows MinBarRange = 3   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 if RsiMax[I] then RSIMax2 = MyRSI[I + 1] High2 = High[I + 1] break endif next endif   CondRibassista = RsiMax and ((High1 > High2 and RSIMax1 < RSIMax2) or (High1 < High2 and RSIMax1 > RSIMax2))   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] break endif next endif   CondRialzista = RsiMin and ((Low1 < Low2 and RSIMin1 > RSIMin2) or (Low1 > Low2 and RSIMin1 < RSIMin2))   if CondRibassista then Result = 2 endif   if CondRialzista then Result = 1 endif

   

  

  Abz

  Participant

  Topics: 55

  Replies: 83

  Been thanked: 8 times
  11/28/2019 at 12:11 PM #113830
  robertogozzi

  There you go:

  // 1 = ↑ // 2 = ↓ // 9 = no signal on that TF // // 4 = 4-hour TF // H = 1-hour TF // 1 = 15-minute TF // 5 = 5-minute TF // TIMEFRAME(default) // RsiPeriod = 10 RsiOverSold = 30 RsiOverBought = 70 MinBarRange = 3 // TIMEFRAME(4 hour) XMyRSI = rsi[RsiPeriod](Close) XRsiMax = XMyRSI < XMyRSI[1] and XMyRSI[1] > XMyRSI[2] and XMyRSI[1] > RsiOverBought XRsiMin = XMyRSI > XMyRSI[1] and XMyRSI[1] < XMyRSI[2] and XMyRSI[1] < RsiOverSold // if XRsiMax then XRsiMax1 = XMyRSI[1] XHigh1 = High[1] for xI = MinBarRange to 80 if XRsiMax[xI] then XRsiMax2 = XMyRSI[xI + 1] XHigh2 = High[xI + 1] break endif next endif XCondRibassista = XRsiMax and ((XHigh1 > XHigh2 and XRsiMax1 < XRsiMax2) or (XHigh1 < XHigh2 and XRsiMax1 > XRsiMax2)) // if XRsiMin then XRsiMin1 = XMyRSI[1] XLow1 = Low[1] for xI = MinBarRange to 80 if XRsiMin[xI] then XRsiMin2 = XMyRSI[xI + 1] XLow2 = Low[xI + 1] break endif next endif XCondRialzista = XRsiMin and ((XLow1 < XLow2 and XRsiMin1 > XRsiMin2) or (XLow1 > XLow2 and XRsiMin1 < XRsiMin2)) XSignal= 9000 IF XCondRialzista > 0 THEN XSignal = 1000 ELSIF XCondRibassista > 0 THEN XSignal = 2000 ENDIF // TIMEFRAME(1 hour) YMyRSI = rsi[RsiPeriod](Close) YRsiMaY = YMyRSI < YMyRSI[1] and YMyRSI[1] > YMyRSI[2] and YMyRSI[1] > RsiOverBought YRsiMin = YMyRSI > YMyRSI[1] and YMyRSI[1] < YMyRSI[2] and YMyRSI[1] < RsiOverSold // if YRsiMaY then YRsiMaY1 = YMyRSI[1] YHigh1 = High[1] for YI = MinBarRange to 80 if YRsiMaY[YI] then YRsiMaY2 = YMyRSI[YI + 1] YHigh2 = High[YI + 1] break endif next endif YCondRibassista = YRsiMaY and ((YHigh1 > YHigh2 and YRsiMaY1 < YRsiMaY2) or (YHigh1 < YHigh2 and YRsiMaY1 > YRsiMaY2)) // if YRsiMin then YRsiMin1 = YMyRSI[1] YLow1 = Low[1] for YI = MinBarRange to 80 if YRsiMin[YI] then YRsiMin2 = YMyRSI[YI + 1] YLow2 = Low[YI + 1] break endif next endif YCondRialzista = YRsiMin and ((YLow1 < YLow2 and YRsiMin1 > YRsiMin2) or (YLow1 > YLow2 and YRsiMin1 < YRsiMin2)) YSignal= 900 IF YCondRialzista > 0 THEN YSignal = 100 ELSIF YCondRibassista > 0 THEN YSignal = 200 ENDIF // TIMEFRAME(15 minute) ZMyRSI = rsi[RsiPeriod](Close) ZRsiMaZ = ZMyRSI < ZMyRSI[1] and ZMyRSI[1] > ZMyRSI[2] and ZMyRSI[1] > RsiOverBought ZRsiMin = ZMyRSI > ZMyRSI[1] and ZMyRSI[1] < ZMyRSI[2] and ZMyRSI[1] < RsiOverSold // if ZRsiMaZ then ZRsiMaZ1 = ZMyRSI[1] ZHigh1 = High[1] for ZI = MinBarRange to 80 if ZRsiMaZ[ZI] then ZRsiMaZ2 = ZMyRSI[ZI + 1] ZHigh2 = High[ZI + 1] break endif next endif ZCondRibassista = ZRsiMaZ and ((ZHigh1 > ZHigh2 and ZRsiMaZ1 < ZRsiMaZ2) or (ZHigh1 < ZHigh2 and ZRsiMaZ1 > ZRsiMaZ2)) // if ZRsiMin then ZRsiMin1 = ZMyRSI[1] Zlow1 = low[1] for ZI = MinBarRange to 80 if ZRsiMin[ZI] then ZRsiMin2 = ZMyRSI[ZI + 1] Zlow2 = low[ZI + 1] break endif next endif ZCondRialzista = ZRsiMin and ((Zlow1 < Zlow2 and ZRsiMin1 > ZRsiMin2) or (Zlow1 > Zlow2 and ZRsiMin1 < ZRsiMin2)) ZSignal= 90 IF ZCondRialzista THEN ZSignal = 10 ELSIF ZCondRibassista THEN ZSignal = 20 ENDIF // TIMEFRAME(5 minute) WMyRSI = rsi[RsiPeriod](Close) WRsiMaW = WMyRSI < WMyRSI[1] and WMyRSI[1] > WMyRSI[2] and WMyRSI[1] > RsiOverBought WRsiMin = WMyRSI > WMyRSI[1] and WMyRSI[1] < WMyRSI[2] and WMyRSI[1] < RsiOverSold // if WRsiMaW then WRsiMaW1 = WMyRSI[1] WHigh1 = High[1] for WI = MinBarRange to 80 if WRsiMaW[WI] then WRsiMaW2 = WMyRSI[WI + 1] WHigh2 = High[WI + 1] break endif next endif WCondRibassista = WRsiMaW and ((WHigh1 > WHigh2 and WRsiMaW1 < WRsiMaW2) or (WHigh1 < WHigh2 and WRsiMaW1 > WRsiMaW2)) // if WRsiMin then WRsiMin1 = WMyRSI[1] WLow1 = Low[1] for WI = MinBarRange to 80 if WRsiMin[WI] then WRsiMin2 = WMyRSI[WI + 1] WLow2 = Low[WI + 1] break endif next endif WCondRialzista = WRsiMin and ((WLow1 < WLow2 and WRsiMin1 > WRsiMin2) or (WLow1 > WLow2 and WRsiMin1 < WRsiMin2)) WSignal= 9 IF WCondRialzista THEN WSignal = 1 ELSIF WCondRibassista THEN WSignal = 2 ENDIF // TIMEFRAME(default) Signal = XSignal + YSignal + ZSignal + WSignal IF Signal = 9999 THEN Signal = 0 ENDIF SCREENER[Signal](Signal AS "1=↑,2=↓/4H15")

  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 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170

  // 1 = ↑ // 2 = ↓ // 9 = no signal on that TF // // 4 = 4-hour TF // H = 1-hour TF // 1 = 15-minute TF // 5 = 5-minute TF // TIMEFRAME(default) // RsiPeriod     = 10 RsiOverSold   = 30 RsiOverBought = 70 MinBarRange   = 3 // TIMEFRAME(4 hour) XMyRSI = rsi[RsiPeriod](Close) XRsiMax = XMyRSI < XMyRSI[1] and XMyRSI[1] > XMyRSI[2] and XMyRSI[1] > RsiOverBought XRsiMin = XMyRSI > XMyRSI[1] and XMyRSI[1] < XMyRSI[2] and XMyRSI[1] < RsiOverSold // if XRsiMax then XRsiMax1 = XMyRSI[1] XHigh1 = High[1] for xI = MinBarRange to  80 if XRsiMax[xI] then XRsiMax2 = XMyRSI[xI + 1] XHigh2 = High[xI + 1] break endif next endif XCondRibassista = XRsiMax and ((XHigh1 > XHigh2 and XRsiMax1 < XRsiMax2) or (XHigh1 < XHigh2 and XRsiMax1 > XRsiMax2)) // if XRsiMin then XRsiMin1 = XMyRSI[1] XLow1 = Low[1] for xI = MinBarRange to  80 if XRsiMin[xI] then XRsiMin2 = XMyRSI[xI + 1] XLow2 = Low[xI + 1] break endif next endif XCondRialzista = XRsiMin and ((XLow1 < XLow2 and XRsiMin1 > XRsiMin2) or (XLow1 > XLow2 and XRsiMin1 < XRsiMin2)) XSignal= 9000 IF XCondRialzista > 0 THEN XSignal = 1000 ELSIF XCondRibassista > 0 THEN XSignal = 2000 ENDIF // TIMEFRAME(1 hour) YMyRSI = rsi[RsiPeriod](Close) YRsiMaY = YMyRSI < YMyRSI[1] and YMyRSI[1] > YMyRSI[2] and YMyRSI[1] > RsiOverBought YRsiMin = YMyRSI > YMyRSI[1] and YMyRSI[1] < YMyRSI[2] and YMyRSI[1] < RsiOverSold // if YRsiMaY then YRsiMaY1 = YMyRSI[1] YHigh1 = High[1] for YI = MinBarRange to  80 if YRsiMaY[YI] then YRsiMaY2 = YMyRSI[YI + 1] YHigh2 = High[YI + 1] break endif next endif YCondRibassista = YRsiMaY and ((YHigh1 > YHigh2 and YRsiMaY1 < YRsiMaY2) or (YHigh1 < YHigh2 and YRsiMaY1 > YRsiMaY2)) // if YRsiMin then YRsiMin1 = YMyRSI[1] YLow1 = Low[1] for YI = MinBarRange to  80 if YRsiMin[YI] then YRsiMin2 = YMyRSI[YI + 1] YLow2 = Low[YI + 1] break endif next endif YCondRialzista = YRsiMin and ((YLow1 < YLow2 and YRsiMin1 > YRsiMin2) or (YLow1 > YLow2 and YRsiMin1 < YRsiMin2)) YSignal= 900 IF YCondRialzista > 0 THEN YSignal = 100 ELSIF YCondRibassista > 0 THEN YSignal = 200 ENDIF // TIMEFRAME(15 minute) ZMyRSI = rsi[RsiPeriod](Close) ZRsiMaZ = ZMyRSI < ZMyRSI[1] and ZMyRSI[1] > ZMyRSI[2] and ZMyRSI[1] > RsiOverBought ZRsiMin = ZMyRSI > ZMyRSI[1] and ZMyRSI[1] < ZMyRSI[2] and ZMyRSI[1] < RsiOverSold // if ZRsiMaZ then ZRsiMaZ1 = ZMyRSI[1] ZHigh1 = High[1] for ZI = MinBarRange to  80 if ZRsiMaZ[ZI] then ZRsiMaZ2 = ZMyRSI[ZI + 1] ZHigh2 = High[ZI + 1] break endif next endif ZCondRibassista = ZRsiMaZ and ((ZHigh1 > ZHigh2 and ZRsiMaZ1 < ZRsiMaZ2) or (ZHigh1 < ZHigh2 and ZRsiMaZ1 > ZRsiMaZ2)) // if ZRsiMin then ZRsiMin1 = ZMyRSI[1] Zlow1 = low[1] for ZI = MinBarRange to  80 if ZRsiMin[ZI] then ZRsiMin2 = ZMyRSI[ZI + 1] Zlow2 = low[ZI + 1] break endif next endif ZCondRialzista = ZRsiMin and ((Zlow1 < Zlow2 and ZRsiMin1 > ZRsiMin2) or (Zlow1 > Zlow2 and ZRsiMin1 < ZRsiMin2)) ZSignal= 90 IF ZCondRialzista THEN ZSignal = 10 ELSIF ZCondRibassista THEN ZSignal = 20 ENDIF // TIMEFRAME(5 minute) WMyRSI = rsi[RsiPeriod](Close) WRsiMaW = WMyRSI < WMyRSI[1] and WMyRSI[1] > WMyRSI[2] and WMyRSI[1] > RsiOverBought WRsiMin = WMyRSI > WMyRSI[1] and WMyRSI[1] < WMyRSI[2] and WMyRSI[1] < RsiOverSold // if WRsiMaW then WRsiMaW1 = WMyRSI[1] WHigh1 = High[1] for WI = MinBarRange to  80 if WRsiMaW[WI] then WRsiMaW2 = WMyRSI[WI + 1] WHigh2 = High[WI + 1] break endif next endif WCondRibassista = WRsiMaW and ((WHigh1 > WHigh2 and WRsiMaW1 < WRsiMaW2) or (WHigh1 < WHigh2 and WRsiMaW1 > WRsiMaW2)) // if WRsiMin then WRsiMin1 = WMyRSI[1] WLow1 = Low[1] for WI = MinBarRange to  80 if WRsiMin[WI] then WRsiMin2 = WMyRSI[WI + 1] WLow2 = Low[WI + 1] break endif next endif WCondRialzista = WRsiMin and ((WLow1 < WLow2 and WRsiMin1 > WRsiMin2) or (WLow1 > WLow2 and WRsiMin1 < WRsiMin2)) WSignal= 9 IF WCondRialzista THEN WSignal = 1 ELSIF WCondRibassista THEN WSignal = 2 ENDIF // TIMEFRAME(default) Signal =  XSignal + YSignal + ZSignal + WSignal IF Signal = 9999 THEN    Signal = 0 ENDIF SCREENER[Signal](Signal AS "1=↑,2=↓/4H15")

  If you want to try to replace 9000, 900, 90 and 9 with 0 you will see what happens (leading 0’s are dropped, so 9929 becomes 20)  and if you like it more. If you don’t you can restore the original 9’s.

  I only tested it for syntax errors.

   

  1 user thanked author for this post.

  Abz

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17131

  Been thanked: 4030 times
• Author
  Posts