VARIARE UN INDICATORE HA SMOOTHED IN SCREENER

• 03/20/2019 at 11:13 AM #94137
  nanniarc

  Buongiorno a tutti,

  tramite la comunità PRT utilizzo l’indicatore HA smoothed che vedete qui sotto.

  Ho fatto vari tentativi ma non riesco a tramutare l’indicatore in uno screener che possa girare sulle liste in osservazione anzichè plottarlo su ogni grafico.

  Sono grato per l’aiuto.

  //Reglas en Heikin-Ashi: //1- Secuencia de cuerpos blancos = tendencia alcista. // Secuencia de cuerpos negros = tendencia bajista. //2- Tendencia alcista fuerte = Grandes cuerpos blancos y sin sombras inferiores. // Tendencia bajista fuerte = Grandes cuerpos negros sin sombras superiores. //3- Cuando la tendencia se debilita surgen cuerpos pequeños con posibles sombras superior y/o inferior. //4- Una consolidación se da cuando aparecen cuerpos pequeños con ambas sombras tanto arriba como abajo. //5- La reversión de una tendencia se puede sospechar con la aparición de pequeños cuerpos con sombras largas tanto superiores como inferiores, o un cambio repentino de color. // parámetros ONCE SmoothPeriod=2 // valor por defecto ONCE period=5 // valor por defecto ONCE flecha=0 ONCE Dflech=barindex // ciclo normal IF BarIndex=0 THEN xClose = (open+high+low+close)/4 xOpen = open xHigh = high xLow = low ELSE xClose = (open+high+low+close)/4 xOpen = (xOpen[1]+xClose[1])/2 xHigh = Max(max(high, xOpen), xClose) xLow = Min(min(Low, xOpen), xClose) endif // SUAVIZADO con la media de 2 en las velas if barindex>=(period+SmoothPeriod) then AvOpen=exponentialAverage[SmoothPeriod](xOpen) AvHigh=exponentialAverage[SmoothPeriod](xHigh) AvLow=exponentialAverage[SmoothPeriod](xLow) Avclose=exponentialAverage[SmoothPeriod](xClose) endif // y ésta es la que uso DRAWCANDLE(AvOpen, AvHigh, AvLow, AvClose) //ha7 para indicar cruces // los valores para barindex<2 son especiales If Barindex < SmoothPeriod then Opcl=Open[1] else Opcl=Open ENDIF // calculo dos medias de 7 y de 10 Media7 = Average[7](Opcl) Media10 = Average[10](Opcl) rango= Media7/10 // uso rango para el dibujo Alcista = AvOPen<AvClose Alcista1 = AvOpen[1]<AvClose[1] Bajista = AvOpen>AvClose Bajista1 = AvOpen[1]>AvClose[1] //Doji = Range[1] > ABS(AvOpen[1]-AvClose[1])*5 //no puede haber dos operaciones en dos dias //valor representa mi compra cuando estoy dentro // y el precio de venta cuando me salgo IF Dflech < barindex[2] then IF (Opcl>Media7 or Opcl>Media10) and not (Bajista and Bajista1) and flecha<1 then // uso Range para que salgan visibles las flechas DRAWARROWUP (barindex, AvHigh+Range) COLOURED (0, 0, 255) flecha=1 Dflech = barindex valor = AvClose ELSIF (Opcl<Media7 or Opcl<Media10) and not (Alcista and Alcista1) and flecha>=1 then DRAWARROWDOWN (barindex, AvHigh+Range) COLOURED (255, 0, 0) flecha=-1 Dflech = barindex valor = AvClose ENDIF ENDIF RETURN Media7 COLOURED (0,0,255), Opcl-rango COLOURED(0,0,0) as “op-cl”, Media7-rango coloured (0,0,255) as “media7”, Media10-rango coloured(250,0,250) as “media10”, valor COLOURED (255,0,0) as “valor”

  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 61 62 63 64 65 66 67 68 69 70

  //Reglas en Heikin-Ashi: //1- Secuencia de cuerpos blancos = tendencia alcista. // Secuencia de cuerpos negros = tendencia bajista. //2- Tendencia alcista fuerte = Grandes cuerpos blancos y sin sombras inferiores. // Tendencia bajista fuerte = Grandes cuerpos negros sin sombras superiores. //3- Cuando la tendencia se debilita surgen cuerpos pequeños con posibles sombras superior y/o inferior. //4- Una consolidación se da cuando aparecen cuerpos pequeños con ambas sombras tanto arriba como abajo. //5- La reversión de una tendencia se puede sospechar con la aparición de pequeños cuerpos con sombras largas tanto superiores como inferiores, o un cambio repentino de color.   // parámetros ONCE SmoothPeriod=2 // valor por defecto ONCE period=5 // valor por defecto ONCE flecha=0 ONCE Dflech=barindex // ciclo normal IF BarIndex=0 THEN xClose = (open+high+low+close)/4 xOpen = open xHigh = high xLow = low ELSE xClose = (open+high+low+close)/4 xOpen = (xOpen[1]+xClose[1])/2 xHigh = Max(max(high, xOpen), xClose) xLow = Min(min(Low, xOpen), xClose) endif // SUAVIZADO con la media de 2 en las velas if barindex>=(period+SmoothPeriod) then AvOpen=exponentialAverage[SmoothPeriod](xOpen) AvHigh=exponentialAverage[SmoothPeriod](xHigh) AvLow=exponentialAverage[SmoothPeriod](xLow) Avclose=exponentialAverage[SmoothPeriod](xClose) endif // y ésta es la que uso DRAWCANDLE(AvOpen, AvHigh, AvLow, AvClose) //ha7 para indicar cruces // los valores para barindex<2 son especiales If Barindex < SmoothPeriod then Opcl=Open[1] else Opcl=Open ENDIF // calculo dos medias de 7 y de 10 Media7 = Average[7](Opcl) Media10 = Average[10](Opcl) rango= Media7/10 // uso rango para el dibujo Alcista = AvOPen<AvClose Alcista1 = AvOpen[1]<AvClose[1] Bajista = AvOpen>AvClose Bajista1 = AvOpen[1]>AvClose[1] //Doji = Range[1] > ABS(AvOpen[1]-AvClose[1])*5 //no puede haber dos operaciones en dos dias //valor representa mi compra cuando estoy dentro // y el precio de venta cuando me salgo IF Dflech < barindex[2] then IF (Opcl>Media7 or Opcl>Media10) and not (Bajista and Bajista1) and flecha<1 then // uso Range para que salgan visibles las flechas DRAWARROWUP (barindex, AvHigh+Range) COLOURED (0, 0, 255) flecha=1 Dflech = barindex valor = AvClose ELSIF (Opcl<Media7 or Opcl<Media10) and not (Alcista and Alcista1) and flecha>=1 then DRAWARROWDOWN (barindex, AvHigh+Range) COLOURED (255, 0, 0) flecha=-1 Dflech = barindex valor = AvClose ENDIF ENDIF RETURN Media7 COLOURED (0,0,255), Opcl-rango COLOURED(0,0,0) as “op-cl”, Media7-rango coloured (0,0,255) as “media7”, Media10-rango coloured(250,0,250) as “media10”, valor COLOURED (255,0,0) as “valor”

  

  nanniarc

  Participant

  Topics: 6

  Replies: 9

  Been thanked: 0 times
  03/20/2019 at 12:01 PM #94146
  robertogozzi

  Per scrivere il codice , utilizza il pulsante <> “insert PRT code”, in modo da rendere il codice più leggibile. Grazie.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  03/20/2019 at 1:18 PM #94159
  robertogozzi

  Ho commentato le righe con istruzioni grafiche (ProScreener non le supporta) ed ho inserito le righe 36 e 37 per evitare che certe variabili venissero segnalate come inutilizzate (non fanno assolutamente niente), ho sostituito la riga RETURN con SCREENER ed ho aggiunto la variabile Segnale.

  Ecco il codice modificato, segnala 1 quando c’è una freccia verso l’alto e 2 quando è verso il basso.

  //Reglas en Heikin-Ashi: //1- Secuencia de cuerpos blancos = tendencia alcista. // Secuencia de cuerpos negros = tendencia bajista. //2- Tendencia alcista fuerte = Grandes cuerpos blancos y sin sombras inferiores. // Tendencia bajista fuerte = Grandes cuerpos negros sin sombras superiores. //3- Cuando la tendencia se debilita surgen cuerpos pequeños con posibles sombras superior y/o inferior. //4- Una consolidación se da cuando aparecen cuerpos pequeños con ambas sombras tanto arriba como abajo. //5- La reversión de una tendencia se puede sospechar con la aparición de pequeños cuerpos con sombras largas tanto superiores como inferiores, o un cambio repentino de color. // parámetros ONCE SmoothPeriod=2 // valor por defecto ONCE period=5 // valor por defecto ONCE flecha=0 ONCE Dflech=barindex // ciclo normal IF BarIndex=0 THEN xClose = (open+high+low+close)/4 xOpen = open xHigh = high xLow = low ELSE xClose = (open+high+low+close)/4 xOpen = (xOpen[1]+xClose[1])/2 xHigh = Max(max(high, xOpen), xClose) xLow = Min(min(Low, xOpen), xClose) endif // SUAVIZADO con la media de 2 en las velas if barindex>=(period+SmoothPeriod) then AvOpen=exponentialAverage[SmoothPeriod](xOpen) AvHigh=exponentialAverage[SmoothPeriod](xHigh) AvLow=exponentialAverage[SmoothPeriod](xLow) Avclose=exponentialAverage[SmoothPeriod](xClose) endif // y ésta es la que uso //DRAWCANDLE(AvOpen, AvHigh, AvLow, AvClose) IF AvOpen + AvHigh + AvLow + AvClose + Rango + Valor THEN ENDIF //ha7 para indicar cruces // los valores para barindex<2 son especiales If Barindex < SmoothPeriod then Opcl=Open[1] else Opcl=Open ENDIF // calculo dos medias de 7 y de 10 Media7 = Average[7](Opcl) Media10 = Average[10](Opcl) rango= Media7/10 // uso rango para el dibujo Alcista = AvOPen<AvClose Alcista1 = AvOpen[1]<AvClose[1] Bajista = AvOpen>AvClose Bajista1 = AvOpen[1]>AvClose[1] //Doji = Range[1] > ABS(AvOpen[1]-AvClose[1])*5 //no puede haber dos operaciones en dos dias //valor representa mi compra cuando estoy dentro // y el precio de venta cuando me salgo IF Dflech < barindex[2] then IF (Opcl>Media7 or Opcl>Media10) and not (Bajista and Bajista1) and flecha<1 then // uso Range para que salgan visibles las flechas //DRAWARROWUP (barindex, AvHigh+Range) COLOURED (0, 0, 255) Segnale = 1 flecha=1 Dflech = barindex valor = AvClose ELSIF (Opcl<Media7 or Opcl<Media10) and not (Alcista and Alcista1) and flecha>=1 then //DRAWARROWDOWN (barindex, AvHigh+Range) COLOURED (255, 0, 0) Segnale = 2 flecha=-1 Dflech = barindex valor = AvClose ENDIF ENDIF SCREENER [Segnale](Segnale AS "1=↑/2=↓") //RETURN Media7 COLOURED (0,0,255), Opcl-rango COLOURED(0,0,0) as "op-cl", Media7-rango coloured (0,0,255) as "media7", Media10-rango coloured(250,0,250) as "media10", valor COLOURED (255,0,0) as "valor"

  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 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75

  //Reglas en Heikin-Ashi: //1- Secuencia de cuerpos blancos = tendencia alcista. // Secuencia de cuerpos negros = tendencia bajista. //2- Tendencia alcista fuerte = Grandes cuerpos blancos y sin sombras inferiores. // Tendencia bajista fuerte = Grandes cuerpos negros sin sombras superiores. //3- Cuando la tendencia se debilita surgen cuerpos pequeños con posibles sombras superior y/o inferior. //4- Una consolidación se da cuando aparecen cuerpos pequeños con ambas sombras tanto arriba como abajo. //5- La reversión de una tendencia se puede sospechar con la aparición de pequeños cuerpos con sombras largas tanto superiores como inferiores, o un cambio repentino de color.   // parámetros ONCE SmoothPeriod=2 // valor por defecto ONCE period=5 // valor por defecto ONCE flecha=0 ONCE Dflech=barindex // ciclo normal IF BarIndex=0 THEN xClose = (open+high+low+close)/4 xOpen = open xHigh = high xLow = low ELSE xClose = (open+high+low+close)/4 xOpen = (xOpen[1]+xClose[1])/2 xHigh = Max(max(high, xOpen), xClose) xLow = Min(min(Low, xOpen), xClose) endif // SUAVIZADO con la media de 2 en las velas if barindex>=(period+SmoothPeriod) then AvOpen=exponentialAverage[SmoothPeriod](xOpen) AvHigh=exponentialAverage[SmoothPeriod](xHigh) AvLow=exponentialAverage[SmoothPeriod](xLow) Avclose=exponentialAverage[SmoothPeriod](xClose) endif // y ésta es la que uso //DRAWCANDLE(AvOpen, AvHigh, AvLow, AvClose) IF AvOpen + AvHigh + AvLow + AvClose + Rango + Valor THEN ENDIF //ha7 para indicar cruces // los valores para barindex<2 son especiales If Barindex < SmoothPeriod then Opcl=Open[1] else Opcl=Open ENDIF // calculo dos medias de 7 y de 10 Media7 = Average[7](Opcl) Media10 = Average[10](Opcl) rango= Media7/10 // uso rango para el dibujo Alcista = AvOPen<AvClose Alcista1 = AvOpen[1]<AvClose[1] Bajista = AvOpen>AvClose Bajista1 = AvOpen[1]>AvClose[1] //Doji = Range[1] > ABS(AvOpen[1]-AvClose[1])*5 //no puede haber dos operaciones en dos dias //valor representa mi compra cuando estoy dentro // y el precio de venta cuando me salgo IF Dflech < barindex[2] then IF (Opcl>Media7 or Opcl>Media10) and not (Bajista and Bajista1) and flecha<1 then // uso Range para que salgan visibles las flechas //DRAWARROWUP (barindex, AvHigh+Range) COLOURED (0, 0, 255) Segnale = 1 flecha=1 Dflech = barindex valor = AvClose ELSIF (Opcl<Media7 or Opcl<Media10) and not (Alcista and Alcista1) and flecha>=1 then //DRAWARROWDOWN (barindex, AvHigh+Range) COLOURED (255, 0, 0) Segnale = 2 flecha=-1 Dflech = barindex valor = AvClose ENDIF ENDIF SCREENER [Segnale](Segnale AS "1=↑/2=↓") //RETURN Media7 COLOURED (0,0,255), Opcl-rango COLOURED(0,0,0) as "op-cl", Media7-rango coloured (0,0,255) as "media7", Media10-rango coloured(250,0,250) as "media10", valor COLOURED (255,0,0) as "valor"

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  03/20/2019 at 6:33 PM #94187
  luxrun

  Roberto, grazie per lo screener HA smoothed. Avevo già caricato l’indicatore e lo screener completa il cassetto degli attrezzi… C’è un problema relativo al grande numero di risultati che vengono fuori perlopiù di tipo 2 ribassista. Forse sarebbe utile, ma io non riesco in quel codice così strutturato, inserire dei filtri, es. sopra/sotto medie mobili, volumi di un certo tipo, es. superiore a 1000K o altro che fornisse un risultato con un certo numero di titoli in ambedue le tipologie di situazione da tradare. Grazie ancora

  

  luxrun

  Participant

  Topics: 17

  Replies: 74

  Been thanked: 14 times
  03/20/2019 at 8:36 PM #94195
  robertogozzi

  Lancia lo screener, poi prova a mettere sul grafico una media a 50, 100 e 200, un Rsi, uno Stocastico, Volumi, magari non tutti insieme!

  Vedi quali ti sembra siano migliori come filtri ed io te li aggiungo.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  03/20/2019 at 9:12 PM #94200
  luxrun

  Inizierei con i prezzi sopra 2 medie mobili: la EMA8 e la SMA50, dove la EMA8 > SMA50 con pendenze al rialzo, per la fase 1 con la freccina su, mentre per la fase ribassista i prezzi dovrebbero essere sotto le 2 medie, dove la EMA8 < SMA50 con pendenze al ribasso. Come inizio proverei con questi filtri per scremare i risultati, spero che possa funzionare per rilevare le inversioni a favore di trend. Grazie ancora per la tua competenza e per la veloce efficienza nelle risposte

   

  

  luxrun

  Participant

  Topics: 17

  Replies: 74

  Been thanked: 14 times
  03/20/2019 at 9:59 PM #94210
  nanniarc

  Grazie mille Roberto,

  lo screener lo fa ed è un grosso passo avanti tuttavia mi sfugge la ratio del perchè evidenzi anche in alcuni casi l’ultima freccia “n” giorni prima e non sulla candela appena chiusa.

  Grazie ancora per il prezioso supporto.

   

   

  

  nanniarc

  Participant

  Topics: 6

  Replies: 9

  Been thanked: 0 times
  03/21/2019 at 10:33 AM #94253
  robertogozzi

  Prova questa versione dello screener trasformato in strategia, fai il backtest ed osserva, candela per candela, il valore delle variabili che vuoi con GRAPH e/o GRAPHONPRICE (io ne ho messe 2 a caso a titolo di esempio):

  //Reglas en Heikin-Ashi: //1- Secuencia de cuerpos blancos = tendencia alcista. // Secuencia de cuerpos negros = tendencia bajista. //2- Tendencia alcista fuerte = Grandes cuerpos blancos y sin sombras inferiores. // Tendencia bajista fuerte = Grandes cuerpos negros sin sombras superiores. //3- Cuando la tendencia se debilita surgen cuerpos pequeños con posibles sombras superior y/o inferior. //4- Una consolidación se da cuando aparecen cuerpos pequeños con ambas sombras tanto arriba como abajo. //5- La reversión de una tendencia se puede sospechar con la aparición de pequeños cuerpos con sombras largas tanto superiores como inferiores, o un cambio repentino de color. // parámetros ONCE SmoothPeriod=2 // valor por defecto ONCE period=5 // valor por defecto ONCE flecha=0 ONCE Dflech=barindex // ciclo normal IF BarIndex=0 THEN xClose = (open+high+low+close)/4 xOpen = open xHigh = high xLow = low ELSE xClose = (open+high+low+close)/4 xOpen = (xOpen[1]+xClose[1])/2 xHigh = Max(max(high, xOpen), xClose) xLow = Min(min(Low, xOpen), xClose) endif // SUAVIZADO con la media de 2 en las velas if barindex>=(period+SmoothPeriod) then AvOpen=exponentialAverage[SmoothPeriod](xOpen) AvHigh=exponentialAverage[SmoothPeriod](xHigh) AvLow=exponentialAverage[SmoothPeriod](xLow) Avclose=exponentialAverage[SmoothPeriod](xClose) endif // y ésta es la que uso //DRAWCANDLE(AvOpen, AvHigh, AvLow, AvClose) IF AvOpen + AvHigh + AvLow + AvClose + Rango + Valor THEN ENDIF //ha7 para indicar cruces // los valores para barindex<2 son especiales If Barindex < SmoothPeriod then Opcl=Open[1] else Opcl=Open ENDIF // calculo dos medias de 7 y de 10 Media7 = Average[7](Opcl) Media10 = Average[10](Opcl) rango= Media7/10 // uso rango para el dibujo Alcista = AvOPen<AvClose Alcista1 = AvOpen[1]<AvClose[1] Bajista = AvOpen>AvClose Bajista1 = AvOpen[1]>AvClose[1] //Doji = Range[1] > ABS(AvOpen[1]-AvClose[1])*5 //no puede haber dos operaciones en dos dias //valor representa mi compra cuando estoy dentro // y el precio de venta cuando me salgo IF Dflech < barindex[2] then IF (Opcl>Media7 or Opcl>Media10) and not (Bajista and Bajista1) and flecha<1 then // uso Range para que salgan visibles las flechas //DRAWARROWUP (barindex, AvHigh+Range) COLOURED (0, 0, 255) Segnale = 1 flecha=1 Dflech = barindex valor = AvClose ELSIF (Opcl<Media7 or Opcl<Media10) and not (Alcista and Alcista1) and flecha>=1 then //DRAWARROWDOWN (barindex, AvHigh+Range) COLOURED (255, 0, 0) Segnale = 2 flecha=-1 Dflech = barindex valor = AvClose ENDIF ENDIF //SCREENER [Segnale](Segnale AS "1=↑/2=↓") //RETURN Media7 COLOURED (0,0,255), Opcl-rango COLOURED(0,0,0) as "op-cl", Media7-rango coloured (0,0,255) as "media7", Media10-rango coloured(250,0,250) as "media10", valor COLOURED (255,0,0) as "valor" buy at -close limit //linea inutile, però è richiesta da ProBackTest GRAPH Dflech //lo vedi nella finestra delle variabili GRAPHONPRICE valor coloured(0,128,0,255) AS "V" //lo vedi sul grafico dei prezzi

  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 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78

  //Reglas en Heikin-Ashi: //1- Secuencia de cuerpos blancos = tendencia alcista. // Secuencia de cuerpos negros = tendencia bajista. //2- Tendencia alcista fuerte = Grandes cuerpos blancos y sin sombras inferiores. // Tendencia bajista fuerte = Grandes cuerpos negros sin sombras superiores. //3- Cuando la tendencia se debilita surgen cuerpos pequeños con posibles sombras superior y/o inferior. //4- Una consolidación se da cuando aparecen cuerpos pequeños con ambas sombras tanto arriba como abajo. //5- La reversión de una tendencia se puede sospechar con la aparición de pequeños cuerpos con sombras largas tanto superiores como inferiores, o un cambio repentino de color. // parámetros ONCE SmoothPeriod=2 // valor por defecto ONCE period=5 // valor por defecto ONCE flecha=0 ONCE Dflech=barindex // ciclo normal IF BarIndex=0 THEN xClose = (open+high+low+close)/4 xOpen = open xHigh = high xLow = low ELSE xClose = (open+high+low+close)/4 xOpen = (xOpen[1]+xClose[1])/2 xHigh = Max(max(high, xOpen), xClose) xLow = Min(min(Low, xOpen), xClose) endif // SUAVIZADO con la media de 2 en las velas if barindex>=(period+SmoothPeriod) then AvOpen=exponentialAverage[SmoothPeriod](xOpen) AvHigh=exponentialAverage[SmoothPeriod](xHigh) AvLow=exponentialAverage[SmoothPeriod](xLow) Avclose=exponentialAverage[SmoothPeriod](xClose) endif // y ésta es la que uso //DRAWCANDLE(AvOpen, AvHigh, AvLow, AvClose) IF AvOpen + AvHigh + AvLow + AvClose + Rango + Valor THEN ENDIF //ha7 para indicar cruces // los valores para barindex<2 son especiales If Barindex < SmoothPeriod then Opcl=Open[1] else Opcl=Open ENDIF // calculo dos medias de 7 y de 10 Media7 = Average[7](Opcl) Media10 = Average[10](Opcl) rango= Media7/10 // uso rango para el dibujo Alcista = AvOPen<AvClose Alcista1 = AvOpen[1]<AvClose[1] Bajista = AvOpen>AvClose Bajista1 = AvOpen[1]>AvClose[1] //Doji = Range[1] > ABS(AvOpen[1]-AvClose[1])*5 //no puede haber dos operaciones en dos dias //valor representa mi compra cuando estoy dentro // y el precio de venta cuando me salgo IF Dflech < barindex[2] then IF (Opcl>Media7 or Opcl>Media10) and not (Bajista and Bajista1) and flecha<1 then // uso Range para que salgan visibles las flechas //DRAWARROWUP (barindex, AvHigh+Range) COLOURED (0, 0, 255) Segnale = 1 flecha=1 Dflech = barindex valor = AvClose ELSIF (Opcl<Media7 or Opcl<Media10) and not (Alcista and Alcista1) and flecha>=1 then //DRAWARROWDOWN (barindex, AvHigh+Range) COLOURED (255, 0, 0) Segnale = 2 flecha=-1 Dflech = barindex valor = AvClose ENDIF ENDIF //SCREENER [Segnale](Segnale AS "1=↑/2=↓") //RETURN Media7 COLOURED (0,0,255), Opcl-rango COLOURED(0,0,0) as "op-cl", Media7-rango coloured (0,0,255) as "media7", Media10-rango coloured(250,0,250) as "media10", valor COLOURED (255,0,0) as "valor" buy at -close limit //linea inutile, però è richiesta da ProBackTest GRAPH        Dflech                             //lo vedi nella finestra delle variabili GRAPHONPRICE valor coloured(0,128,0,255) AS "V" //lo vedi sul grafico dei prezzi

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  03/21/2019 at 11:26 AM #94256
  robertogozzi

  Aggiungendo i filtri suggeriti da luxrun si ottiene una grossa scrematura:

  //Reglas en Heikin-Ashi: //1- Secuencia de cuerpos blancos = tendencia alcista. // Secuencia de cuerpos negros = tendencia bajista. //2- Tendencia alcista fuerte = Grandes cuerpos blancos y sin sombras inferiores. // Tendencia bajista fuerte = Grandes cuerpos negros sin sombras superiores. //3- Cuando la tendencia se debilita surgen cuerpos pequeños con posibles sombras superior y/o inferior. //4- Una consolidación se da cuando aparecen cuerpos pequeños con ambas sombras tanto arriba como abajo. //5- La reversión de una tendencia se puede sospechar con la aparición de pequeños cuerpos con sombras largas tanto superiores como inferiores, o un cambio repentino de color. // parámetros ONCE SmoothPeriod=2 // valor por defecto ONCE period=5 // valor por defecto ONCE flecha=0 ONCE Dflech=barindex // ciclo normal IF BarIndex=0 THEN xClose = (open+high+low+close)/4 xOpen = open xHigh = high xLow = low ELSE xClose = (open+high+low+close)/4 xOpen = (xOpen[1]+xClose[1])/2 xHigh = Max(max(high, xOpen), xClose) xLow = Min(min(Low, xOpen), xClose) endif // SUAVIZADO con la media de 2 en las velas if barindex>=(period+SmoothPeriod) then AvOpen=exponentialAverage[SmoothPeriod](xOpen) AvHigh=exponentialAverage[SmoothPeriod](xHigh) AvLow=exponentialAverage[SmoothPeriod](xLow) Avclose=exponentialAverage[SmoothPeriod](xClose) endif // y ésta es la que uso //DRAWCANDLE(AvOpen, AvHigh, AvLow, AvClose) IF AvOpen + AvHigh + AvLow + AvClose + Rango + Valor THEN ENDIF //ha7 para indicar cruces // los valores para barindex<2 son especiales If Barindex < SmoothPeriod then Opcl=Open[1] else Opcl=Open ENDIF // calculo dos medias de 7 y de 10 Media7 = Average[7](Opcl) Media10 = Average[10](Opcl) rango= Media7/10 // uso rango para el dibujo Alcista = AvOPen<AvClose Alcista1 = AvOpen[1]<AvClose[1] Bajista = AvOpen>AvClose Bajista1 = AvOpen[1]>AvClose[1] //Doji = Range[1] > ABS(AvOpen[1]-AvClose[1])*5 //no puede haber dos operaciones en dos dias //valor representa mi compra cuando estoy dentro // y el precio de venta cuando me salgo IF Dflech < barindex[2] then IF (Opcl>Media7 or Opcl>Media10) and not (Bajista and Bajista1) and flecha<1 then // uso Range para que salgan visibles las flechas //DRAWARROWUP (barindex, AvHigh+Range) COLOURED (0, 0, 255) Segnale = 1 flecha=1 Dflech = barindex valor = AvClose ELSIF (Opcl<Media7 or Opcl<Media10) and not (Alcista and Alcista1) and flecha>=1 then //DRAWARROWDOWN (barindex, AvHigh+Range) COLOURED (255, 0, 0) Segnale = 2 flecha=-1 Dflech = barindex valor = AvClose ENDIF ENDIF Ema8 = average[8,1](close) Sma50 = average[50,0](close) Rialzo = ((Ema8 > Sma50) AND (close > Ema8)) * Segnale Ribasso = ((Ema8 < Sma50) AND (close < Ema8)) * Segnale Segnale = Rialzo OR Ribasso SCREENER [Segnale](Segnale AS "1=↑/2=↓") //RETURN Media7 COLOURED (0,0,255), Opcl-rango COLOURED(0,0,0) as "op-cl", Media7-rango coloured (0,0,255) as "media7", Media10-rango coloured(250,0,250) as "media10", valor COLOURED (255,0,0) as "valor"

  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 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80

  //Reglas en Heikin-Ashi: //1- Secuencia de cuerpos blancos = tendencia alcista. // Secuencia de cuerpos negros = tendencia bajista. //2- Tendencia alcista fuerte = Grandes cuerpos blancos y sin sombras inferiores. // Tendencia bajista fuerte = Grandes cuerpos negros sin sombras superiores. //3- Cuando la tendencia se debilita surgen cuerpos pequeños con posibles sombras superior y/o inferior. //4- Una consolidación se da cuando aparecen cuerpos pequeños con ambas sombras tanto arriba como abajo. //5- La reversión de una tendencia se puede sospechar con la aparición de pequeños cuerpos con sombras largas tanto superiores como inferiores, o un cambio repentino de color. // parámetros ONCE SmoothPeriod=2 // valor por defecto ONCE period=5 // valor por defecto ONCE flecha=0 ONCE Dflech=barindex // ciclo normal IF BarIndex=0 THEN xClose = (open+high+low+close)/4 xOpen = open xHigh = high xLow = low ELSE xClose = (open+high+low+close)/4 xOpen = (xOpen[1]+xClose[1])/2 xHigh = Max(max(high, xOpen), xClose) xLow = Min(min(Low, xOpen), xClose) endif // SUAVIZADO con la media de 2 en las velas if barindex>=(period+SmoothPeriod) then AvOpen=exponentialAverage[SmoothPeriod](xOpen) AvHigh=exponentialAverage[SmoothPeriod](xHigh) AvLow=exponentialAverage[SmoothPeriod](xLow) Avclose=exponentialAverage[SmoothPeriod](xClose) endif // y ésta es la que uso //DRAWCANDLE(AvOpen, AvHigh, AvLow, AvClose) IF AvOpen + AvHigh + AvLow + AvClose + Rango + Valor THEN ENDIF //ha7 para indicar cruces // los valores para barindex<2 son especiales If Barindex < SmoothPeriod then Opcl=Open[1] else Opcl=Open ENDIF // calculo dos medias de 7 y de 10 Media7 = Average[7](Opcl) Media10 = Average[10](Opcl) rango= Media7/10 // uso rango para el dibujo Alcista = AvOPen<AvClose Alcista1 = AvOpen[1]<AvClose[1] Bajista = AvOpen>AvClose Bajista1 = AvOpen[1]>AvClose[1] //Doji = Range[1] > ABS(AvOpen[1]-AvClose[1])*5 //no puede haber dos operaciones en dos dias //valor representa mi compra cuando estoy dentro // y el precio de venta cuando me salgo IF Dflech < barindex[2] then IF (Opcl>Media7 or Opcl>Media10) and not (Bajista and Bajista1) and flecha<1 then // uso Range para que salgan visibles las flechas //DRAWARROWUP (barindex, AvHigh+Range) COLOURED (0, 0, 255) Segnale = 1 flecha=1 Dflech = barindex valor = AvClose ELSIF (Opcl<Media7 or Opcl<Media10) and not (Alcista and Alcista1) and flecha>=1 then //DRAWARROWDOWN (barindex, AvHigh+Range) COLOURED (255, 0, 0) Segnale = 2 flecha=-1 Dflech = barindex valor = AvClose ENDIF ENDIF Ema8    = average[8,1](close) Sma50   = average[50,0](close) Rialzo  = ((Ema8 > Sma50) AND (close > Ema8)) * Segnale Ribasso = ((Ema8 < Sma50) AND (close < Ema8)) * Segnale Segnale = Rialzo OR Ribasso SCREENER [Segnale](Segnale AS "1=↑/2=↓") //RETURN Media7 COLOURED (0,0,255), Opcl-rango COLOURED(0,0,0) as "op-cl", Media7-rango coloured (0,0,255) as "media7", Media10-rango coloured(250,0,250) as "media10", valor COLOURED (255,0,0) as "valor"

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  03/21/2019 at 1:33 PM #94287
  nanniarc

  Roberto, premettendo che sei un grande e che ti ringrazio per il tempo speso, ho provato a plottare il tuo codice in probacktest ma mi dice “errore di sintassi, utilizza la variabile segnale” e non so come uscirne…

  Nanni

  

  nanniarc

  Participant

  Topics: 6

  Replies: 9

  Been thanked: 0 times
  03/21/2019 at 1:44 PM #94290
  robertogozzi

  Aggiungi in fondo:

  If Segnale then Endif

  1 2	If Segnale then Endif

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  03/21/2019 at 2:01 PM #94298
  nanniarc

  Ok, quindi l’output è come quello che ti allego?

  Sopra prezzi Ha e sotto HA smoothed con le frecce di eventuale ingresso/uscita?

  Poi dovessi codificarle con i parametri di buy e sellshort una volta rivisti con altri filtri la vedo difficile (per me…)

  Grazie!

   

   

   

  

  nanniarc

  Participant

  Topics: 6

  Replies: 9

  Been thanked: 0 times
  03/21/2019 at 2:23 PM #94306
  robertogozzi

  Si, è così.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  03/21/2019 at 6:38 PM #94345
  luxrun

  Roberto, nel ringraziarti per l’aiuto, posto il codice dello screener che per me ha un senso e trova titoli (pochi) sia al rialzo che al ribasso;  i quali comunque vanno confermati dal trend e da ulteriori verifiche di prezzo. Lo stocastico lento è l’oscillatore che mi ha soddisfatto di più perché rispetta le condizioni di ipercomprato e ipervenduto che ho impostato. Sulle azioni italiane ho avuto anche la corrispondenza tra cambio di candela e possibile inversione indicata anche dallo stocastico (segnale 1 o 2). Con l’RSI e le medie mobili non funzionava perché i titoli trovati erano tantissimi e non rispettavano la attesa condizione di inizio di potenziale rialzo e inizio di potenziale ribasso ottenuto con un qualsiasi tipo di filtro. Insomma bisogna continuare ad affinarlo se si vuole!

  Heikin Ashi smoothed screener with stochastic

  //Reglas en Heikin-Ashi: //1- Secuencia de cuerpos blancos = tendencia alcista. // Secuencia de cuerpos negros = tendencia bajista. //2- Tendencia alcista fuerte = Grandes cuerpos blancos y sin sombras inferiores. // Tendencia bajista fuerte = Grandes cuerpos negros sin sombras superiores. //3- Cuando la tendencia se debilita surgen cuerpos pequeños con posibles sombras superior y/o inferior. //4- Una consolidación se da cuando aparecen cuerpos pequeños con ambas sombras tanto arriba como abajo. //5- La reversión de una tendencia se puede sospechar con la aparición de pequeños cuerpos con sombras largas tanto superiores como inferiores, o un cambio repentino de color. // parámetros ONCE SmoothPeriod=2 // valor por defecto ONCE period=5 // valor por defecto ONCE flecha=0 ONCE Dflech=barindex // ciclo normal IF BarIndex=0 THEN xClose = (open+high+low+close)/4 xOpen = open xHigh = high xLow = low ELSE xClose = (open+high+low+close)/4 xOpen = (xOpen[1]+xClose[1])/2 xHigh = Max(max(high, xOpen), xClose) xLow = Min(min(Low, xOpen), xClose) endif // SUAVIZADO con la media de 2 en las velas if barindex>=(period+SmoothPeriod) then AvOpen=exponentialAverage[SmoothPeriod](xOpen) AvHigh=exponentialAverage[SmoothPeriod](xHigh) AvLow=exponentialAverage[SmoothPeriod](xLow) Avclose=exponentialAverage[SmoothPeriod](xClose) endif // y ésta es la que uso //DRAWCANDLE(AvOpen, AvHigh, AvLow, AvClose) IF AvOpen + AvHigh + AvLow + AvClose + Rango + Valor THEN ENDIF //ha7 para indicar cruces // los valores para barindex<2 son especiales If Barindex < SmoothPeriod then Opcl=Open[1] else Opcl=Open ENDIF // calculo dos medias de 7 y de 10 Media7 = Average[7](Opcl) Media10 = Average[10](Opcl) rango= Media7/10 // uso rango para el dibujo Alcista = AvOPen<AvClose Alcista1 = AvOpen[1]<AvClose[1] Bajista = AvOpen>AvClose Bajista1 = AvOpen[1]>AvClose[1] //Doji = Range[1] > ABS(AvOpen[1]-AvClose[1])*5 //no puede haber dos operaciones en dos dias //valor representa mi compra cuando estoy dentro // y el precio de venta cuando me salgo IF Dflech < barindex[2] then IF (Opcl>Media7 or Opcl>Media10) and not (Bajista and Bajista1) and flecha<1 then // uso Range para que salgan visibles las flechas //DRAWARROWUP (barindex, AvHigh+Range) COLOURED (0, 0, 255) Segnale = 1 flecha=1 Dflech = barindex valor = AvClose ELSIF (Opcl<Media7 or Opcl<Media10) and not (Alcista and Alcista1) and flecha>=1 then //DRAWARROWDOWN (barindex, AvHigh+Range) COLOURED (255, 0, 0) Segnale = 2 flecha=-1 Dflech = barindex valor = AvClose ENDIF ENDIF // Ema8 = average[8,1](close) // Sma50 = average[50,0](close) Sto = Stochastic[10,3](close) signal = average[3](sto) STOUP = sto>80 AND sto[1]>signal[1] AND sto<signal STODOWN = sto<20 AND sto[1]<signal[1] AND sto>signal // Rialzo = ((Ema8 > Sma50) AND (close > Ema8)) * Segnale // Ribasso = ((Ema8 < Sma50) AND (close < Ema8)) * Segnale Rialzo = (STOUP) * Segnale Ribasso =(STODOWN) * Segnale Segnale = Rialzo OR Ribasso SCREENER [Segnale](Segnale AS "1=↑/2=↓")

  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 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85

  //Reglas en Heikin-Ashi: //1- Secuencia de cuerpos blancos = tendencia alcista. // Secuencia de cuerpos negros = tendencia bajista. //2- Tendencia alcista fuerte = Grandes cuerpos blancos y sin sombras inferiores. // Tendencia bajista fuerte = Grandes cuerpos negros sin sombras superiores. //3- Cuando la tendencia se debilita surgen cuerpos pequeños con posibles sombras superior y/o inferior. //4- Una consolidación se da cuando aparecen cuerpos pequeños con ambas sombras tanto arriba como abajo. //5- La reversión de una tendencia se puede sospechar con la aparición de pequeños cuerpos con sombras largas tanto superiores como inferiores, o un cambio repentino de color. // parámetros ONCE SmoothPeriod=2 // valor por defecto ONCE period=5 // valor por defecto ONCE flecha=0 ONCE Dflech=barindex // ciclo normal IF BarIndex=0 THEN xClose = (open+high+low+close)/4 xOpen = open xHigh = high xLow = low ELSE xClose = (open+high+low+close)/4 xOpen = (xOpen[1]+xClose[1])/2 xHigh = Max(max(high, xOpen), xClose) xLow = Min(min(Low, xOpen), xClose) endif // SUAVIZADO con la media de 2 en las velas if barindex>=(period+SmoothPeriod) then AvOpen=exponentialAverage[SmoothPeriod](xOpen) AvHigh=exponentialAverage[SmoothPeriod](xHigh) AvLow=exponentialAverage[SmoothPeriod](xLow) Avclose=exponentialAverage[SmoothPeriod](xClose) endif // y ésta es la que uso //DRAWCANDLE(AvOpen, AvHigh, AvLow, AvClose) IF AvOpen + AvHigh + AvLow + AvClose + Rango + Valor THEN ENDIF //ha7 para indicar cruces // los valores para barindex<2 son especiales If Barindex < SmoothPeriod then Opcl=Open[1] else Opcl=Open ENDIF // calculo dos medias de 7 y de 10 Media7 = Average[7](Opcl) Media10 = Average[10](Opcl) rango= Media7/10 // uso rango para el dibujo Alcista = AvOPen<AvClose Alcista1 = AvOpen[1]<AvClose[1] Bajista = AvOpen>AvClose Bajista1 = AvOpen[1]>AvClose[1] //Doji = Range[1] > ABS(AvOpen[1]-AvClose[1])*5 //no puede haber dos operaciones en dos dias //valor representa mi compra cuando estoy dentro // y el precio de venta cuando me salgo IF Dflech < barindex[2] then IF (Opcl>Media7 or Opcl>Media10) and not (Bajista and Bajista1) and flecha<1 then // uso Range para que salgan visibles las flechas //DRAWARROWUP (barindex, AvHigh+Range) COLOURED (0, 0, 255) Segnale = 1 flecha=1 Dflech = barindex valor = AvClose ELSIF (Opcl<Media7 or Opcl<Media10) and not (Alcista and Alcista1) and flecha>=1 then //DRAWARROWDOWN (barindex, AvHigh+Range) COLOURED (255, 0, 0) Segnale = 2 flecha=-1 Dflech = barindex valor = AvClose ENDIF ENDIF // Ema8    = average[8,1](close) // Sma50   = average[50,0](close) Sto = Stochastic[10,3](close) signal = average[3](sto) STOUP = sto>80 AND sto[1]>signal[1] AND sto<signal STODOWN = sto<20 AND sto[1]<signal[1] AND sto>signal // Rialzo  = ((Ema8 > Sma50) AND (close > Ema8)) * Segnale // Ribasso = ((Ema8 < Sma50) AND (close < Ema8)) * Segnale Rialzo  = (STOUP) * Segnale Ribasso =(STODOWN) * Segnale Segnale = Rialzo OR Ribasso SCREENER [Segnale](Segnale AS "1=↑/2=↓")

   

   

  1 user thanked author for this post.

  robertogozzi

  

  luxrun

  Participant

  Topics: 17

  Replies: 74

  Been thanked: 14 times
  03/26/2019 at 1:37 PM #94723
  nanniarc

  Buongiorno a tutti,

  nel we ho provato in maniera “fai da te” a trasformare lo screener HA smoothed di questo topic in strategia con buy e sell più altri filtri ma non sono addivenuto a nulla…
  Qualche anima pia avrebbe voglia di risolvere questo mio impasse?
  Grazie mille.

  Nanni

  

  nanniarc

  Participant

  Topics: 6

  Replies: 9

  Been thanked: 0 times
• Author
  Posts