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: 9

  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: 956

  Been thanked: 329 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: 9

  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: 956

  Been thanked: 329 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: 9

  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: 9

  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: 956

  Been thanked: 329 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: 9

  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: 956

  Been thanked: 329 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: 9

  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: 956

  Been thanked: 329 times
• Author
  Posts