RSI SOBREVENTA + CPM

• 12/16/2020 at 9:35 PM #154054
  OscarAM

  Hola a todos,

  Estoy intentando crear un código screener con RSI en zona de sobreventa, con divergencia alcista y CPM alto. el código no esta muy bien. lo he copiaod y modificado de varios que tenia. A ver si alguien que sepa bien de programación me echa una mano. Gracias por adelantado.

  Filtro = miRSI < 30 myCPM = CALL “CPM”[52] myCPM5=(myCPM+myCPM[1]+myCPM[2]+myCPM[3]+myCPM[4])/5 capitalneed=WeightedAverage[50](volume)*WeightedAverage[50](close) c1=0 c3=capitalneed>1000000000 SCREENER [ c1>0 and c3 and myCPM5>20 and filtro ](myCPM5 AS “CPM”)

  1 2 3 4 5 6 7 8 9 10 11

  Filtro = miRSI < 30   myCPM = CALL “CPM”[52]   myCPM5=(myCPM+myCPM[1]+myCPM[2]+myCPM[3]+myCPM[4])/5   capitalneed=WeightedAverage[50](volume)*WeightedAverage[50](close) c1=0 c3=capitalneed>1000000000   SCREENER [ c1>0 and c3 and myCPM5>20 and filtro ](myCPM5 AS “CPM”)

   

  

  OscarAM

  Participant

  Topics: 4

  Replies: 6

  Been thanked: 0 times
  12/17/2020 at 6:35 PM #154193
  robertogozzi

  ¿Qué es el indicador CPM?

  No puedo encontrarlo, ¿puedes publicar un enlace donde encontrarlo? o adjunte el file ITF si puede.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16469

  Been thanked: 3643 times
  12/23/2020 at 12:03 PM #154970
  OscarAM

  El CPM es un indicador creado por Javier Alfayate el  cual mide el volumen de dinero negociado, tras buscar ejemplos manualmente me ha percatado que el 90% de las ocasiones que el RSI tiene una divergencia (alcista en este caso) y el CPM aumenta, el valor se podría añadir a la cartera. Si alguien completa el código seria estupendo.

  CPM= VOLUME*CLOSE

  VOLMAX=HIGHEST[V] (CPM)
  VOL=((CPM*100/VOLMAX)*4/5)
  VOLPMED=EXPONENTIALAVERAGE[V](VOL)
  CPM2=(VOL-VOLPMED)
  RETURN CPM2 AS “CPM”

  

  OscarAM

  Participant

  Topics: 4

  Replies: 6

  Been thanked: 0 times
  12/23/2020 at 6:04 PM #155013
  Fr7

  Es muy difícil encontrar valores con todos esos criterios……….He sacado las condiciones C1 y C3 porque es imposible encontrar valores con esas condiciones. Pero bueno si quieres se las puedes añadir. A ver qué tal te funciona……..Prueba USA el screener mejor.

   

  //DIVERGENCIAS RSI N=40///N is the number of bars to look back for a divergence. Normal values are 20-40. Must be the same in both indicators miRSI = RSI[14](close) IF (BarIndex > 10+1+N) THEN ///divergencia alcista IF (miRSI[1]<miRSI AND miRSI[1]<miRSI[2]) THEN extremum22=miRSI[1] extremum11=lowest[N](miRSI) preciomin2=close[1] preciomin=lowest[N](close) IF(extremum22>extremum11 AND preciomin2<preciomin[1]) THEN for i2=1 to N if miRSI[i2]=extremum11[1] then DIVERG=1//BULLISH endif next ENDIF ENDIF endif filtro=rsi<30 myCPM = CALL "CPM"[52] myCPM5=(myCPM+myCPM[1]+myCPM[2]+myCPM[3]+myCPM[4])/5 SCREENER [ myCPM5>5 and filtro and DIVERG=1](myCPM5 AS "CPM")

  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

  //DIVERGENCIAS RSI N=40///N is the number of bars to look back for a divergence. Normal values are 20-40. Must be the same in both indicators miRSI = RSI[14](close) IF (BarIndex > 10+1+N) THEN ///divergencia alcista IF (miRSI[1]<miRSI AND miRSI[1]<miRSI[2]) THEN extremum22=miRSI[1] extremum11=lowest[N](miRSI) preciomin2=close[1] preciomin=lowest[N](close) IF(extremum22>extremum11 AND preciomin2<preciomin[1]) THEN for i2=1 to N if miRSI[i2]=extremum11[1] then DIVERG=1//BULLISH endif next ENDIF ENDIF endif filtro=rsi<30 myCPM = CALL "CPM"[52] myCPM5=(myCPM+myCPM[1]+myCPM[2]+myCPM[3]+myCPM[4])/5   SCREENER [ myCPM5>5 and filtro and DIVERG=1](myCPM5 AS "CPM")

   

  

  Fr7

  Participant

  Topics: 39

  Replies: 142

  Been thanked: 17 times
  12/13/2023 at 11:50 PM #225240
  jgrau

  Hola,

  Como esta este indicador, se pudo generar?

  Gracias.

  

  jgrau

  Participant

  Topics: 6

  Replies: 7

  Been thanked: 0 times
• Author
  Posts