Proscreener divergenza RSI

• 11/12/2019 at 8:13 PM #112629
  massimogp

  Buona sera, ho trovato questo codice pro-screener sulla divergenza RSI a 10 periodi, posso averlo con la sola condizione long e basato sull RSI a 5 periodi (con livelli ipervenduto/ipercomprato a 15 e 85)? Grazie mille Roberto.

  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”)

  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

  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”)

   

   

   

  

  massimogp

  Participant

  Topics: 68

  Replies: 102

  Been thanked: 2 times
  11/12/2019 at 9:28 PM #112633
  robertogozzi

  Ti prego di allegare file del tipo corretto.

  Grazie 🙂

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16466

  Been thanked: 3641 times
  11/13/2019 at 8:11 PM #112723
  massimogp

  Buona sera Roberto, chiedo scusa per l allegato che non era  relativo a questa richiesta, la ripropongo  chiedendo codice pro-screener sulla divergenza RSI a 10 periodi, se posso averlo con la sola condizione long e basato sull RSI a 5 periodi (con livelli ipervenduto/ipercomprato a 15 e 85)? Grazie mille Roberto.

  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”)

  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

  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”)

   

  

  massimogp

  Participant

  Topics: 68

  Replies: 102

  Been thanked: 2 times
  11/14/2019 at 1:00 AM #112741
  robertogozzi

  Per favore utilizza il pulsante “Insert PRT code, <>” per inserire il codice e renderlo più leggibile.

  Grazie 🙂

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16466

  Been thanked: 3641 times
  11/14/2019 at 1:06 AM #112742
  robertogozzi

  Cambia i periodi da 10 a 5, l’ipervenduto da 30 a 15, l’ipercomprato da 70 a 85 ed infine togli dall’ultima riga (dove c’è SCREENER), la condizione:

  CondRibassista or

  1	CondRibassista or

  in modo che venga così:

  RsiPeriod = 5 //Oversold Level RsiOverSold = 15 //OverBought Level RsiOverBought = 85 //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[CondRialzista] (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

  RsiPeriod = 5 //Oversold Level RsiOverSold = 15 //OverBought Level RsiOverBought = 85 //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[CondRialzista] (Result as “Go”)

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16466

  Been thanked: 3641 times
• Author
  Posts