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

Viewing 15 posts - 1 through 15 (of 33 total)

1 2 3 →

Author

Posts
11/09/2024 at 6:35 PM #240176 quote

jumadiga
Participant

New

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

11/12/2024 at 12:37 PM #240273 quote

Iván González
Moderator

Master

Podrías definir las condiciones?

11/12/2024 at 1:01 PM #240281 quote

jumadiga
Participant

New

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

11/12/2024 at 6:11 PM #240299 quote
Iván González
Moderator

Master
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]
```
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]
```
11/13/2024 at 2:03 PM #240314 quote

jumadiga
Participant

New

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

11/13/2024 at 2:05 PM #240315 quote

jumadiga
Participant

New

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

11/14/2024 at 9:52 AM #240343 quote
Iván González
Moderator

Master
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")
```
Ordenará los valores por volumen medio.
11/14/2024 at 1:07 PM #240372 quote

jumadiga
Participant

New

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]

11/14/2024 at 4:15 PM #240378 quote

Iván González
Moderator

Master

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.

11/15/2024 at 1:19 AM #240389 quote

jumadiga
Participant

New

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

11/15/2024 at 9:47 AM #240394 quote
Iván González
Moderator

Master
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")
```
11/28/2024 at 11:26 AM #240848 quote

dax821
Participant

Junior

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

1-2-3-pattern.png

11/28/2024 at 11:53 AM #240851 quote

dax821
Participant

Junior

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.

1-2-3-pattern2.png

11/29/2024 at 11:40 AM #240879 quote
Iván González
Moderator

Master
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")
```
11/29/2024 at 3:41 PM #240912 quote

dax821
Participant

Junior

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

1-2-3-pattern3.png
Author

Posts