Bearish RSI Screener Modification?

• 10/25/2023 at 5:57 PM #222917
  IAmShareCrazy

  How to turn these into bearish screeners? Many thanks.
  

  /////////////////////////////////////////////////////////////////

  timeframe (1 day)

  C1 = DivergenceRSI[5,30,70,20](close[0]) = 1

  C2 = DivergenceRSI[5,30,70,20](close[0]) = –1

  SCREENER [ C1OR C2 ] ( DivergenceRSI[5,30,70,20](close[0]) as “RSI Div” )

  //////////////////////////////////////////////////////////////

   

   

  //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 = -1
  endif

  if CondRialzista then
  Result = 1
  endif

  SCREENER[CondRibassista or CondRialzista] (Result as “Go”)

  /////////////////////////////////////////////////////////////////////////////////

  

  IAmShareCrazy

  Participant

  Topics: 10

  Replies: 10

  Been thanked: 1 time
  10/25/2023 at 6:29 PM #222919
  robertogozzi

  #1

  ///////////////////////////////////////////////////////////////// timeframe (1 day) //C1 = DivergenceRSI[5,30,70,20](close[0]) = 1 C2 = DivergenceRSI[5,30,70,20](close[0]) = -1 SCREENER[C2](DivergenceRSI[5,30,70,20](close[0]) as "RSI Div") //////////////////////////////////////////////////////////////

  1 2 3 4 5 6

  ///////////////////////////////////////////////////////////////// timeframe (1 day) //C1 = DivergenceRSI[5,30,70,20](close[0]) = 1 C2 = DivergenceRSI[5,30,70,20](close[0]) = -1 SCREENER[C2](DivergenceRSI[5,30,70,20](close[0]) as "RSI Div") //////////////////////////////////////////////////////////////

  #2

  //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)) Result = 0 if CondRibassista then Result = -1 endif // //if CondRialzista then //Result = 1 //endif SCREENER[CondRibassista](Result as "Go") /////////////////////////////////////////////////////////////////////////////////

  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

  //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)) Result = 0 if CondRibassista then Result = -1 endif // //if CondRialzista then //Result = 1 //endif   SCREENER[CondRibassista](Result as "Go") /////////////////////////////////////////////////////////////////////////////////

   

  1 user thanked author for this post.

  IAmShareCrazy

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17142

  Been thanked: 4032 times
• Author
  Posts