Screener de divergencias en indicadores

• 09/10/2023 at 9:49 AM #220633
  Andy27

  Buenos días.

  Querría saber si existe screeners para detectar divergencias en los indicadores más utilizados: MACD , RSI y ESTOCASTICO.

  Gracias.

  

  Andy27

  Participant

  Topics: 6

  Replies: 4

  Been thanked: 1 time
  09/10/2023 at 10:22 AM #220637
  jacquesgermain

  Buenos dias

  en el archivo adjunto mi analizador de divergencia RSI,MACD,MFI,STOCASTICAL

  

  jacquesgermain

  Participant

  Topics: 3

  Replies: 116

  Been thanked: 46 times
  09/10/2023 at 10:48 AM #220639
  Andy27

  En primer lugar, muchas gracias JacquesGermain  por contestar.

  No obstante, me es imposible abrir el archivo en ese formato. ¿Podrías pasarlo en otro? Gracias.

  

  Andy27

  Participant

  Topics: 6

  Replies: 4

  Been thanked: 1 time
  09/10/2023 at 11:11 AM #220640
  jacquesgermain

  N=40
  miMACD=MACDline[9,19,6](typicalprice)
  miRSI = RSI[14](close)
  miMFI = MoneyFlowIndex[14]
  miSTOC = Stochastic[14,3](close)
  signalmacd=0
  signalmfi=0
  signalrsi=0
  signalSTOC=0

  IF (miMACD[1]>miMACD AND miMACD[1]>miMACD[2]) THEN
  extremum2=miMACD[1]
  extremum1=highest[N](miMACD)
  preciomax2=close[1]
  preciomax=Highest[N](close)
  IF(extremum2<extremum1 AND preciomax2>preciomax[1]) THEN
  for i=1 to N
  if close[i]=preciomax[1] then
  signalmacd=-1
  endif
  next
  endif
  endif
  IF (miMACD[1]<miMACD AND miMACD[1]<miMACD[2]) THEN
  extremum22=miMACD[1]
  extremum11=lowest[N](miMACD)
  preciomin2=close[1]
  preciomin=lowest[N](close)
  IF(extremum22>extremum11 AND preciomin2<preciomin[1]) THEN
  for i2=1 to N
  if close[i2]=preciomin[1] then
  signalmacd=1
  endif
  next
  endif
  endif
  IF (miRSI[1]>miRSI AND miRSI[1]>miRSI[2]) THEN
  extremumrsi2=miRSI[1]
  extremumrsi1=highest[N](miRSI)
  preciomaxrsi2=close[1]
  preciomaxrsi=Highest[N](close)
  IF(extremumrsi2<extremumrsi1 AND preciomaxrsi2>preciomaxrsi[1]) THEN
  for j=1 to N
  if close[j]=preciomaxrsi[1] then
  signalrsi=-2
  endif
  next
  endif
  endif
  IF (miRSI[1]<miRSI AND miRSI[1]<miRSI[2]) THEN
  extremumrsi22=miRSI[1]
  extremumrsi11=lowest[N](miRSI)
  preciominrsi2=close[1]
  preciominrsi=lowest[N](close)
  IF(extremumrsi22>extremumrsi11 AND preciominrsi2<preciominrsi[1]) THEN
  for j2=1 to N
  if close[j2]=preciominrsi[1] then
  //zz2=j2
  signalrsi=2
  endif
  next
  endif
  endif
  IF (miMFI[1]>miMFI AND miMFI[1]>miMFI[2]) THEN
  extremumMFI2=miMFI[1]
  extremumMFI1=highest[N](miMFI)
  preciomaxMFI2=close[1]
  preciomaxMFI=Highest[N](close)
  IF(extremumMFI2<extremumMFI1 AND preciomaxMFI2>preciomaxMFI[1]) THEN
  for k=1 to N
  if close[k]=preciomaxMFI[1] then
  signalMFI=-3
  endif
  next
  endif
  endif
  IF (miMFI[1]<miMFI AND miMFI[1]<miMFI[2]) THEN
  extremumMFI22=miMFI[1]
  extremumMFI11=lowest[N](miMFI)
  preciominMFI2=close[1]
  preciominMFI=lowest[N](close)
  IF(extremumMFI22>extremumMFI11 AND preciominMFI2<preciominMFI[1]) THEN
  for k2=1 to N
  if close[k2]=preciominMFI[1] then
  signalMFI=3
  endif
  next
  endif
  endif
  IF (miSTOC[1]>miSTOC AND miSTOC[1]>miSTOC[2]) THEN
  extremumsto2=miSTOC[1]
  extremumsto1=highest[N](miSTOC)
  preciomaxsto2=close[1]
  preciomaxsto=Highest[N](close)
  IF(extremumsto2<extremumsto1 AND preciomaxsto2>preciomaxsto[1]) THEN
  for k=1 to N
  if close[k]=preciomaxsto[1] then
  signalSTOC=-4
  endif
  next
  endif
  endif
  IF (miSTOC[1]<miSTOC AND miSTOC[1]<miSTOC[2]) THEN
  extremumsto22=miSTOC[1]
  extremumsto11=lowest[N](miSTOC)
  preciominsto2=close[1]
  preciominsto=lowest[N](close)
  IF(extremumsto22>extremumsto11 AND preciominsto2<preciominsto[1]) THEN
  for k2=1 to N
  if close[k2]=preciominsto[1] then
  signalSTOC=4
  endif
  next
  endif
  endif

  SCREENER[ signalrsi or signalmacd or signalMFI or signalSTOC](Signalmacd AS “signal macd”,signalrsi as “signal rsi”,signalmfi as “signal mfi”,signalSTOC as “signalstoc”)

  1 user thanked author for this post.

  Andy27

  

  jacquesgermain

  Participant

  Topics: 3

  Replies: 116

  Been thanked: 46 times
• Author
  Posts