necesito screener para valores que estén empezando la onda 3 de elliott

• 11/09/2024 at 6:35 PM #240176
  jumadiga

  Buenas, necesitaba un screen para detectar valores que estén empezando la onda 3 de elliott

  

  jumadiga

  Participant

  Topics: 3

  Replies: 10

  Been thanked: 0 times
  11/12/2024 at 12:37 PM #240273
  Iván

  Podrías definir las condiciones?

  

  Iván

  Moderator

  Topics: 0

  Replies: 1049

  Been thanked: 375 times
  11/12/2024 at 1:01 PM #240281
  jumadiga

  Hola Iván, gracias por tu atención. la onda 1 y 2 de elliott se forman cuando tras una subida en onda 1 el valor corrige como mucho hasta el 0,764 del fibo y como mínimo al 0,382 del fibo.poniendo el retroceso de fibo en el incio de arranque de la onda 1 y el cero en el final de esa onda 1. Se comprueba así si la onda 1 y 2 son válidas.La onda 3 empieza cuando hay reacción tras esa corrección. Y la parte de onda 3 más segura es cuando el valor pasa del precio del vértice de la onda 1. Sería interesante ese screener cuando el valor pasa el vértice de arriba d el aonda 1 tras haber hecho la onda 1 y 2 como te explico. también otro screener complementario sería el que detecte la formación de la onda 1 y 2 con lo que te explico, y desde ese soporte se vea una vela de reacción ya

  

  jumadiga

  Participant

  Topics: 3

  Replies: 10

  Been thanked: 0 times
  11/12/2024 at 6:11 PM #240299
  Iván

  Esto sería una posibilidad. Se busca el cruce al alza del punto pivote máximo (ver captura de pantalla)

  prd = 5 ////////pivothigh ph1 = high < high[prd] ph2 = highest[prd](high) < high[prd] ph3 = high[prd] > highest[prd](high)[prd+1] if ph1 and ph2 and ph3 then $pivot[n+1] = high[prd] $pivotx[n+1] = barindex[prd] $pivotType[n+1] = 1 n=n+1 //drawpoint(barindex[prd],high[prd],2)coloured("blue",140) endif ////////pivotlow pl1 = low > low[prd] pl2 = lowest[prd](low) > low[prd] pl3 = low[prd] < lowest[prd](low)[prd+1] if pl1 and pl2 and pl3 then $pivot[n+1] = low[prd] $pivotx[n+1] = barindex[prd] $pivotType[n+1] = -1 n=n+1 //drawpoint(barindex[prd],low[prd],2)coloured("red",140) endif if n>2 then if $pivot[n]<$pivot[max(0,n-1)] and $pivot[max(0,n-1)]>$pivot[max(0,n-2)] and $pivotType[n]=-1 and $pivotType[max(0,n-1)]=1 and $pivotType[max(0,n-2)] then H1=$pivot[n-1]-$pivot[n-2] H2=$pivot[n-1]-$pivot[n] if H2<H1*0.764 and H2>H1*0.382 then check=1 checklevel=$pivot[n-1] checkleveldw=$pivot[n] //checkx=$pivotx[n-1] else check=0 endif endif if check=1 then //drawsegment(checkx,checklevel,barindex,checklevel) if high crosses over checklevel then //drawarrowup(barindex,low) //drawsegment(checkx,checklevel,barindex,checklevel) check=0 elsif n<>n[1] then check=0 endif endif endif if check=1 and high crosses over checklevel and low>checkleveldw then setup=1 else setup=0 endif screener[setup]

  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

  prd = 5 ////////pivothigh ph1 = high < high[prd] ph2 = highest[prd](high) < high[prd] ph3 = high[prd] > highest[prd](high)[prd+1] if ph1 and ph2 and ph3 then $pivot[n+1] = high[prd] $pivotx[n+1] = barindex[prd] $pivotType[n+1] = 1 n=n+1 //drawpoint(barindex[prd],high[prd],2)coloured("blue",140) endif ////////pivotlow pl1 = low > low[prd] pl2 = lowest[prd](low) > low[prd] pl3 = low[prd] < lowest[prd](low)[prd+1] if pl1 and pl2 and pl3 then $pivot[n+1] = low[prd] $pivotx[n+1] = barindex[prd] $pivotType[n+1] = -1 n=n+1 //drawpoint(barindex[prd],low[prd],2)coloured("red",140) endif   if n>2 then if $pivot[n]<$pivot[max(0,n-1)] and $pivot[max(0,n-1)]>$pivot[max(0,n-2)] and $pivotType[n]=-1 and $pivotType[max(0,n-1)]=1 and $pivotType[max(0,n-2)]  then   H1=$pivot[n-1]-$pivot[n-2] H2=$pivot[n-1]-$pivot[n]   if H2<H1*0.764 and H2>H1*0.382 then check=1 checklevel=$pivot[n-1] checkleveldw=$pivot[n] //checkx=$pivotx[n-1] else check=0 endif endif   if check=1 then //drawsegment(checkx,checklevel,barindex,checklevel)   if high crosses over checklevel then //drawarrowup(barindex,low) //drawsegment(checkx,checklevel,barindex,checklevel) check=0 elsif n<>n[1] then check=0 endif endif endif   if check=1 and high crosses over checklevel and low>checkleveldw then setup=1 else setup=0 endif   screener[setup]

  Otra opción, para que aparezcan más valores es controlar aquellos que aún no han roto el nivel.

  prd = 5 ////////pivothigh ph1 = high < high[prd] ph2 = highest[prd](high) < high[prd] ph3 = high[prd] > highest[prd](high)[prd+1] if ph1 and ph2 and ph3 then $pivot[n+1] = high[prd] $pivotx[n+1] = barindex[prd] $pivotType[n+1] = 1 n=n+1 //drawpoint(barindex[prd],high[prd],2)coloured("blue",140) endif ////////pivotlow pl1 = low > low[prd] pl2 = lowest[prd](low) > low[prd] pl3 = low[prd] < lowest[prd](low)[prd+1] if pl1 and pl2 and pl3 then $pivot[n+1] = low[prd] $pivotx[n+1] = barindex[prd] $pivotType[n+1] = -1 n=n+1 //drawpoint(barindex[prd],low[prd],2)coloured("red",140) endif if n>2 then if $pivot[n]<$pivot[max(0,n-1)] and $pivot[max(0,n-1)]>$pivot[max(0,n-2)] and $pivotType[n]=-1 and $pivotType[max(0,n-1)]=1 and $pivotType[max(0,n-2)] then H1=$pivot[n-1]-$pivot[n-2] H2=$pivot[n-1]-$pivot[n] if H2<H1*0.764 and H2>H1*0.382 then check=1 checklevel=$pivot[n-1] checkleveldw=$pivot[n] //checkx=$pivotx[n-1] else check=0 endif endif if check=1 then //drawsegment(checkx,checklevel,barindex,checklevel) if high crosses over checklevel then //drawarrowup(barindex,low) //drawsegment(checkx,checklevel,barindex,checklevel) check=0 elsif n<>n[1] then check=0 endif endif endif if check=1 and high < checklevel and low>checkleveldw then setup=1 else setup=0 endif screener[setup]

  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

  prd = 5 ////////pivothigh ph1 = high < high[prd] ph2 = highest[prd](high) < high[prd] ph3 = high[prd] > highest[prd](high)[prd+1] if ph1 and ph2 and ph3 then $pivot[n+1] = high[prd] $pivotx[n+1] = barindex[prd] $pivotType[n+1] = 1 n=n+1 //drawpoint(barindex[prd],high[prd],2)coloured("blue",140) endif ////////pivotlow pl1 = low > low[prd] pl2 = lowest[prd](low) > low[prd] pl3 = low[prd] < lowest[prd](low)[prd+1] if pl1 and pl2 and pl3 then $pivot[n+1] = low[prd] $pivotx[n+1] = barindex[prd] $pivotType[n+1] = -1 n=n+1 //drawpoint(barindex[prd],low[prd],2)coloured("red",140) endif   if n>2 then if $pivot[n]<$pivot[max(0,n-1)] and $pivot[max(0,n-1)]>$pivot[max(0,n-2)] and $pivotType[n]=-1 and $pivotType[max(0,n-1)]=1 and $pivotType[max(0,n-2)]  then   H1=$pivot[n-1]-$pivot[n-2] H2=$pivot[n-1]-$pivot[n]   if H2<H1*0.764 and H2>H1*0.382 then check=1 checklevel=$pivot[n-1] checkleveldw=$pivot[n] //checkx=$pivotx[n-1] else check=0 endif endif   if check=1 then //drawsegment(checkx,checklevel,barindex,checklevel)   if high crosses over checklevel then //drawarrowup(barindex,low) //drawsegment(checkx,checklevel,barindex,checklevel) check=0 elsif n<>n[1] then check=0 endif endif endif   if check=1 and high < checklevel and low>checkleveldw then setup=1 else setup=0 endif   screener[setup]

  

  Iván

  Moderator

  Topics: 0

  Replies: 1049

  Been thanked: 375 times
  11/13/2024 at 2:03 PM #240314
  jumadiga

  Iván, estoy probando el primero, parece que se aproxima bastante. Ante todo gracias por tu deferencia. Quería saber si es posible que le pongas un volumen mínimo de volumen negociado de al menos 400k, y un volumen medio de negociación de ese valor habitualmente de al menos 400k. Así mismo que el screener detecte cuando ha hecho la onda 1 y luego hace la onda 2, que como sabes en la onda 2 el volumen es en venta, que el screener detecte la entrada de volumen tras la onda 2, porque ello ayuda a identificar el origen de la onda 3 mejor

  

  jumadiga

  Participant

  Topics: 3

  Replies: 10

  Been thanked: 0 times
  11/13/2024 at 2:05 PM #240315
  jumadiga

  el primer código no arroja ningún valor, el segundo como te decía si se aproxima a lo que busco

  

  jumadiga

  Participant

  Topics: 3

  Replies: 10

  Been thanked: 0 times
  11/14/2024 at 9:52 AM #240343
  Iván

  Hola. Para introducir la condición de volumen modifica la última línea del código por esta otra:

  screener[setup and volume>400000 and average[20](volume)>400000](average[20](volume) as "VolMed")

  1	screener[setup and volume>400000 and average[20](volume)>400000](average[20](volume) as "VolMed")

  Ordenará los valores por volumen medio.

  

  Iván

  Moderator

  Topics: 0

  Replies: 1049

  Been thanked: 375 times
  11/14/2024 at 1:07 PM #240372
  jumadiga

  Ivan, no me aclaro con la línea a sustituir, perdona. Sustituyo la última y me da error.Este es el código sin sustituir nada, como quedaría con esa sustitución?

  prd = 5
  ////////pivothigh
  ph1 = high < high[prd]
  ph2 = highest[prd](high) < high[prd]
  ph3 = high[prd] > highest[prd](high)[prd+1]
  if ph1 and ph2 and ph3 then
  $pivot[n+1] = high[prd]
  $pivotx[n+1] = barindex[prd]
  $pivotType[n+1] = 1
  n=n+1
  //drawpoint(barindex[prd],high[prd],2)coloured(“blue”,140)
  endif
  ////////pivotlow
  pl1 = low > low[prd]
  pl2 = lowest[prd](low) > low[prd]
  pl3 = low[prd] < lowest[prd](low)[prd+1]
  if pl1 and pl2 and pl3 then
  $pivot[n+1] = low[prd]
  $pivotx[n+1] = barindex[prd]
  $pivotType[n+1] = -1
  n=n+1
  //drawpoint(barindex[prd],low[prd],2)coloured(“red”,140)
  endif

  if n>2 then
  if $pivot[n]<$pivot[max(0,n-1)] and $pivot[max(0,n-1)]>$pivot[max(0,n-2)] and $pivotType[n]=-1 and $pivotType[max(0,n-1)]=1 and $pivotType[max(0,n-2)] then

  H1=$pivot[n-1]-$pivot[n-2]
  H2=$pivot[n-1]-$pivot[n]

  if H2<H1*0.764 and H2>H1*0.382 then
  check=1
  checklevel=$pivot[n-1]
  checkleveldw=$pivot[n]
  //checkx=$pivotx[n-1]
  else
  check=0
  endif
  endif

  if check=1 then
  //drawsegment(checkx,checklevel,barindex,checklevel)

  if high crosses over checklevel then
  //drawarrowup(barindex,low)
  //drawsegment(checkx,checklevel,barindex,checklevel)
  check=0
  elsif n<>n[1] then
  check=0
  endif
  endif
  endif

  if check=1 and high crosses over checklevel and low>checkleveldw then
  setup=1
  else
  setup=0
  endif

  screener[setup]

  

  jumadiga

  Participant

  Topics: 3

  Replies: 10

  Been thanked: 0 times
  11/14/2024 at 4:15 PM #240378
  Iván

  Hola. Sólo tienes que borrar la última línea de tu código.
  En tu código pone screener[setup]. Borra esa línea.
  Ahora copias y pegas en su lugar el código que te he proporcionado.

  

  Iván

  Moderator

  Topics: 0

  Replies: 1049

  Been thanked: 375 times
  11/15/2024 at 1:19 AM #240389
  jumadiga

  Iván, si borro esa última línea y la sustituyo por la que me das, me da error al aplicarlo

  

  jumadiga

  Participant

  Topics: 3

  Replies: 10

  Been thanked: 0 times
  11/15/2024 at 9:47 AM #240394
  Iván

  A mi no me da ningún error…

  prd = 5 ////////pivothigh ph1 = high < high[prd] ph2 = highest[prd](high) < high[prd] ph3 = high[prd] > highest[prd](high)[prd+1] if ph1 and ph2 and ph3 then $pivot[n+1] = high[prd] $pivotx[n+1] = barindex[prd] $pivotType[n+1] = 1 n=n+1 //drawpoint(barindex[prd],high[prd],2)coloured("blue",140) endif ////////pivotlow pl1 = low > low[prd] pl2 = lowest[prd](low) > low[prd] pl3 = low[prd] < lowest[prd](low)[prd+1] if pl1 and pl2 and pl3 then $pivot[n+1] = low[prd] $pivotx[n+1] = barindex[prd] $pivotType[n+1] = -1 n=n+1 //drawpoint(barindex[prd],low[prd],2)coloured("red",140) endif if n>2 then if $pivot[n]<$pivot[max(0,n-1)] and $pivot[max(0,n-1)]>$pivot[max(0,n-2)] and $pivotType[n]=-1 and $pivotType[max(0,n-1)]=1 and $pivotType[max(0,n-2)] then H1=$pivot[n-1]-$pivot[n-2] H2=$pivot[n-1]-$pivot[n] if H2<H1*0.764 and H2>H1*0.382 then check=1 checklevel=$pivot[n-1] checkleveldw=$pivot[n] //checkx=$pivotx[n-1] else check=0 endif endif if check=1 then //drawsegment(checkx,checklevel,barindex,checklevel) if high crosses over checklevel then //drawarrowup(barindex,low) //drawsegment(checkx,checklevel,barindex,checklevel) check=0 elsif n<>n[1] then check=0 endif endif endif if check=1 and high < checklevel and low>checkleveldw then setup=1 else setup=0 endif screener[setup and volume>400000 and average[20](volume)>400000](average[20](volume) as "VolMed")

  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

  prd = 5 ////////pivothigh ph1 = high < high[prd] ph2 = highest[prd](high) < high[prd] ph3 = high[prd] > highest[prd](high)[prd+1] if ph1 and ph2 and ph3 then $pivot[n+1] = high[prd] $pivotx[n+1] = barindex[prd] $pivotType[n+1] = 1 n=n+1 //drawpoint(barindex[prd],high[prd],2)coloured("blue",140) endif ////////pivotlow pl1 = low > low[prd] pl2 = lowest[prd](low) > low[prd] pl3 = low[prd] < lowest[prd](low)[prd+1] if pl1 and pl2 and pl3 then $pivot[n+1] = low[prd] $pivotx[n+1] = barindex[prd] $pivotType[n+1] = -1 n=n+1 //drawpoint(barindex[prd],low[prd],2)coloured("red",140) endif   if n>2 then if $pivot[n]<$pivot[max(0,n-1)] and $pivot[max(0,n-1)]>$pivot[max(0,n-2)] and $pivotType[n]=-1 and $pivotType[max(0,n-1)]=1 and $pivotType[max(0,n-2)]  then   H1=$pivot[n-1]-$pivot[n-2] H2=$pivot[n-1]-$pivot[n]   if H2<H1*0.764 and H2>H1*0.382 then check=1 checklevel=$pivot[n-1] checkleveldw=$pivot[n] //checkx=$pivotx[n-1] else check=0 endif endif   if check=1 then //drawsegment(checkx,checklevel,barindex,checklevel)   if high crosses over checklevel then //drawarrowup(barindex,low) //drawsegment(checkx,checklevel,barindex,checklevel) check=0 elsif n<>n[1] then check=0 endif endif endif   if check=1 and high < checklevel and low>checkleveldw then setup=1 else setup=0 endif   screener[setup and volume>400000 and average[20](volume)>400000](average[20](volume) as "VolMed")

  

  Iván

  Moderator

  Topics: 0

  Replies: 1049

  Been thanked: 375 times
  11/28/2024 at 11:26 AM #240848
  dax821

  Buenos días, perdón por la intromisión. Yo también estoy interesado en configurar este screener planteado por jumadiga, para ello tenemos un indicador publicado:    1-2-3 Pattern Indicator – Indicators – ProRealTime  . Este indicador marca con flechas verdes y rojas el punto de entrada para cumplir la estrategia, la propuesta es crear un screener con motor de búsqueda el cumplimiento de estas flechas al superar la línea discontinua azul. Adjunto imagen.

  Muchas gracias

  

  dax821

  Participant

  Topics: 4

  Replies: 11

  Been thanked: 1 time
  11/28/2024 at 11:53 AM #240851
  dax821

  Quizás el Screener sería la generación de un impulso HH, seguido de un retroceso HL, seguido de la superación del impulso HH.

  

  dax821

  Participant

  Topics: 4

  Replies: 11

  Been thanked: 1 time
  11/29/2024 at 11:40 AM #240879
  Iván

  Sería así:

  //---Initialisation prd=10 once idx0 = 0 once idx1 = 0 once idx2 = 0 once pos = 0 IF barindex >= 2*prd+1 then If high[prd] >= highest[2*prd+1](high) and pos<=0 then If idx1 <> 0 then idx2 = idx1 Endif If idx0 <> 0 then idx1 = idx0 Endif idx0 = barindex[prd] pos=1 Endif If Low[prd] <= Lowest[2*prd+1](low) and pos>=0 then If idx1 <> 0 then idx2 = idx1 Endif If idx0 <> 0 then idx1 = idx0 Endif idx0 = barindex[prd] pos=-1 Endif If idx2<>0 then If pos=1 and High[barindex-idx0]>Low[barindex-idx1] and High[barindex-idx0]<High[barindex-idx2] and (Close<Low[barindex-idx1] and open>Low[barindex-idx1]) then setupshort=1 else setupshort=0 Endif If pos=-1 and Low[barindex-idx0]<High[barindex-idx1] and Low[barindex-idx0]>Low[barindex-idx2] and (Close>High[barindex-idx1] and open<High[barindex-idx1]) then setuplong=1 else setuplong=0 endif Endif Endif screener[setuplong or setupshort](setupshort as "SH",setuplong as "LG")

  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

  //---Initialisation prd=10   once idx0 = 0 once idx1 = 0 once idx2 = 0 once pos = 0   IF barindex >= 2*prd+1 then   If high[prd] >= highest[2*prd+1](high) and pos<=0 then   If idx1 <> 0 then idx2 = idx1 Endif   If idx0 <> 0 then idx1 = idx0 Endif   idx0 = barindex[prd] pos=1 Endif   If Low[prd] <= Lowest[2*prd+1](low) and pos>=0 then If idx1 <> 0 then idx2 = idx1 Endif   If idx0 <> 0 then idx1 = idx0 Endif   idx0 = barindex[prd] pos=-1 Endif   If idx2<>0 then If pos=1 and High[barindex-idx0]>Low[barindex-idx1] and High[barindex-idx0]<High[barindex-idx2] and (Close<Low[barindex-idx1] and open>Low[barindex-idx1]) then setupshort=1 else setupshort=0 Endif   If pos=-1 and Low[barindex-idx0]<High[barindex-idx1] and Low[barindex-idx0]>Low[barindex-idx2] and (Close>High[barindex-idx1] and open<High[barindex-idx1]) then   setuplong=1 else setuplong=0 endif Endif Endif   screener[setuplong or setupshort](setupshort as "SH",setuplong as "LG")

  

  Iván

  Moderator

  Topics: 0

  Replies: 1049

  Been thanked: 375 times
  11/29/2024 at 3:41 PM #240912
  dax821

  Hola Iván, muy agradecido por la pronta respuesta y la eficacia mostrada. Dejo imagen para revisar en unos meses y para mostrar la singularidad del screener.

  Muchas gracias

  Saludos

  

  dax821

  Participant

  Topics: 4

  Replies: 11

  Been thanked: 1 time
• Author
  Posts