Fibonacci e Pattern Armonici ABCD

• 09/26/2019 at 11:43 PM #108632
  robertogozzi

  Ho tolto i segmenti ed ho colorato i triangoli.

  Per lo screener, se vuoi che si attivi solo quando arriva al punto D, basta che togli le barre iniziali dei commenti alle righe 60 e 62.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17134

  Been thanked: 4031 times
  09/27/2019 at 12:03 AM #108640
  tatankayotanka

  Ciao grazie mille domani sera proverò

  

  tatankayotanka

  Participant

  Topics: 25

  Replies: 113

  Been thanked: 2 times
  09/27/2019 at 10:15 PM #108697
  tatankayotanka

  Ciao Roberto  ho scaricato i tuoi ultimi due file  .itf  ma non funzionano correttamente (magari  sbaglio qualcosa io)

  1° nell indicatore non disegna correttamente i punti del pattern ABCD

  2° nello screener mi hai detto che bisogna attivare le linee 60 e 62 ma bisogna anche attivare linea 29 e fin qui tutto ok , ma il problema e che nel risultato dello screener trova dei grafici che visualizzati nell’ indicatore non si vede la formazione del pattern ABCD, allego foto

  

  tatankayotanka

  Participant

  Topics: 25

  Replies: 113

  Been thanked: 2 times
  09/27/2019 at 10:24 PM #108700
  tatankayotanka

  dimenticavo

  

  tatankayotanka

  Participant

  Topics: 25

  Replies: 113

  Been thanked: 2 times
  09/28/2019 at 11:13 AM #108716
  robertogozzi

  Ho fatto delle correzioni, dovrebbe andare meglio.

  Allego i nuovi file da importare, sia per lo screener che per l’indicatore.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17134

  Been thanked: 4031 times
  09/29/2019 at 9:18 AM #108737
  tatankayotanka

  Ciao Roberto ho scaricato gli ultimi aggiornamenti ma non mi torna il disegno del pattern , guarda gli scren in entrambi i casi non raggiunge il target 1.27/1.68 del punto D ma lo trova nello screener e lo disegna nell’ indicatore. Grazie e buona domenica

  

  tatankayotanka

  Participant

  Topics: 25

  Replies: 113

  Been thanked: 2 times
  10/02/2019 at 10:31 AM #109074
  robertogozzi

  Ho fatto le modifiche e adesso non lo trova più.

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17134

  Been thanked: 4031 times
  10/28/2019 at 10:01 PM #111474
  Al

  Buonasera Robeto, ti chiedo ancora consigli per l’indicatore modello armonico, provo a codificare la figura ABCD, con la A in alto e la D dovrebbe essere sotto la B, il codice rileva ABC, ma non la D, Sono basato sul tuo codice ma devo invertire il modello e sono bloccato, dopo che vorrei creare lo sreener, grazie per il tuo aiuto
  Saluti

  // Pattern Armonico ABCD // // Bullish ABCD -PRC // DEFPARAM DrawOnLastBarOnly = true IF BarIndex = 0 OR (Barra > MaxBarre) THEN MaxBarre = 100 Distanza = 10 * pipsize PuntoA = high BarraA = BarIndex PuntoB = low BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 Barra = 0 ENDIF Barra = Barra + 1 //incrementare il passare delle barre per azzerare tutto quando arriva a 100 // // Determinare se il prezzo scende sotto A, in tal caso avremo una nuova A più bassa e ripartiremo daccapo con B,C e D PuntoA = max(PuntoA,high) IF PuntoA > PuntoA[1] THEN BarraA = BarIndex Barra = 0 PuntoB = low BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 ENDIF // // Determinare se il prezzo sale sopra B, in tal caso avremo una nuova B più alta e ripartiremo daccapo con C e D IF PuntoC = 0 THEN PuntoB = min(PuntoB,low) ENDIF IF PuntoB < PuntoB[1] THEN BarraB = BarIndex ENDIF // Calcolare la differenza tra i punti A e B e le due percentuali di fibonacci da usare per la verifica di C IF PuntoB = PuntoA THEN PuntoA = 0 PuntoB = 0 PuntoC = 0 PuntoD = 0 ENDIF DiffBA = PuntoB - PuntoA FibC1 = DiffBA * 0.618 FibC2 = DiffBA * 0.786 FibD1 = PuntoB + (DiffBA * -1.270) FibD2 = PUNTOb + (DiffBA * -1.618) IF close >= (PuntoB - FibC1) AND close <= (PuntoB - FibC2) THEN // se il MINIMO è tra 0.618 e 0.786 abbiamo trovato il punto C.... PuntoC = high BarraC = BarIndex PuntoD = 0 ELSIF close > (PuntoB - FibC2) THEN // ...altrimenti si riparte daccapo con un nuovo punto A ed un nuovo punto B PuntoA = high BarraA = BarIndex PuntoB = low BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 Barra = 0 ENDIF // IF PuntoC = PuntoA THEN PuntoC = 0 ENDIF // IF LOW <= FibD1 AND close >= FibD2 THEN IF PuntoD = 0 THEN PuntoD = low BarraD = BarIndex ELSE PuntoD = min(PuntoD,low) IF PuntoD < PuntoD[1] THEN BarraD = BarIndex ENDIF ENDIF ENDIF IF PuntoD >0 THEN IF close > PuntoB THEN PuntoD = 0 BarraD = 0 ENDIF ENDIF // // Una volta superato il 161.8 si riparte daccapo // IF close > FibD2 THEN PuntoA = high BarraA = BarIndex PuntoB = low BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 Barra = 0 ENDIF // IF PuntoB = PuntoA THEN PuntoA = 0 PuntoB = 0 PuntoC = 0 PuntoD = 0 ENDIF // // si stampano i punti trovati, ognuno dipendente dal precedente, si stampa A, poi B solo se A è stato stampato, poi C solo se B è stato stampato ed infine D se anche C è stato stampato IF PuntoA > 0 THEN //DRAWSEGMENT(BarraA,PuntoA,BarIndex,PuntoA) COLOURED(255,0,0,255) //Rosso DRAWTEXT("A",BarraA,PuntoA + Distanza,Dialog,Bold,20) coloured(205,0,205,255) IF PuntoB > 0 THEN //DRAWSEGMENT(BarraB,PuntoB,BarIndex,PuntoB) COLOURED(0,255,0,255) //Verde DRAWTEXT("B",BarraB,PuntoB - Distanza,Dialog,Bold,20) coloured(205,0,205,255) IF PuntoC > 0 THEN //DRAWSEGMENT(BarraC,PuntoC,BarIndex,PuntoC) COLOURED(0,0,255,255) //Blu DRAWTEXT("C",BarraC,PuntoC + Distanza,Dialog,Bold,20) coloured(205,0,205,255) IF PuntoD > 0 THEN // D //DRAWSEGMENT(BarraC,FibD1,BarIndex,FibD1) COLOURED(238,201,0,255) //Oro //DRAWSEGMENT(BarraC,FibD2,BarIndex,FibD2) COLOURED(238,201,0,255) //Oro DRAWTEXT("D",BarIndex,PuntoD - Distanza,Dialog,Bold,30) coloured(205,0,205,255) ENDIF // // stampa segmenti per Pattern Armonici //DRAWSEGMENT(BarraA,PuntoA,BarraB,PuntoB) COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraA,PuntoA,BarraC,PuntoC) COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraB,PuntoB,BarraC,PuntoC) COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraB,PuntoB,BarraC,PuntoC) COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraC,PuntoC,BarIndex,FibD1) COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarIndex,low,BarIndex,FibD1) COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraC,PuntoC,BarIndex,low) COLOURED(0,0,0,255) //Nero DRAWTRIANGLE(BarraA,PuntoA,BarraB,PuntoB,BarraC,PuntoC)coloured(200,120,120,255) IF PuntoD > 0 THEN DRAWTRIANGLE(BarraB,PuntoB,BarraC,PuntoC,BarraD,PuntoD)coloured(0,255,0,255) ENDIF ENDIF ENDIF ENDIF RETURN

  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 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142

  // Pattern Armonico ABCD // // Bullish ABCD -PRC // DEFPARAM DrawOnLastBarOnly = true IF BarIndex = 0 OR (Barra > MaxBarre) THEN MaxBarre = 100 Distanza = 10 * pipsize PuntoA   = high BarraA   = BarIndex PuntoB   = low BarraB   = BarIndex PuntoC   = 0 BarraC   = 0 PuntoD   = 0 Barra    = 0 ENDIF Barra = Barra + 1  //incrementare il passare delle barre per azzerare tutto quando arriva a 100 // // Determinare se il prezzo scende sotto A, in tal caso avremo una nuova A più bassa e ripartiremo daccapo con B,C e D PuntoA = max(PuntoA,high) IF PuntoA > PuntoA[1] THEN BarraA = BarIndex Barra  = 0 PuntoB = low BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 ENDIF // // Determinare se il prezzo sale sopra B, in tal caso avremo una nuova B più alta e ripartiremo daccapo con C e D IF PuntoC = 0 THEN PuntoB = min(PuntoB,low) ENDIF IF PuntoB < PuntoB[1] THEN BarraB = BarIndex ENDIF // Calcolare la differenza tra i punti A e B e le due percentuali di fibonacci da usare per la verifica di C IF PuntoB = PuntoA THEN PuntoA = 0 PuntoB = 0 PuntoC = 0 PuntoD = 0 ENDIF DiffBA = PuntoB - PuntoA FibC1  = DiffBA * 0.618 FibC2  = DiffBA * 0.786 FibD1  = PuntoB + (DiffBA * -1.270) FibD2  = PUNTOb + (DiffBA * -1.618) IF close >= (PuntoB - FibC1) AND close <= (PuntoB - FibC2) THEN // se il MINIMO è tra 0.618 e 0.786 abbiamo trovato il punto C.... PuntoC = high BarraC = BarIndex PuntoD = 0 ELSIF close > (PuntoB - FibC2) THEN // ...altrimenti si riparte daccapo con un nuovo punto A ed un nuovo punto B PuntoA = high BarraA = BarIndex PuntoB = low BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 Barra  = 0 ENDIF // IF PuntoC = PuntoA THEN PuntoC = 0 ENDIF // IF LOW <= FibD1 AND close >= FibD2 THEN IF PuntoD = 0 THEN PuntoD = low BarraD = BarIndex ELSE PuntoD = min(PuntoD,low) IF PuntoD < PuntoD[1] THEN BarraD = BarIndex ENDIF ENDIF ENDIF IF PuntoD >0 THEN IF close > PuntoB THEN PuntoD = 0 BarraD = 0 ENDIF ENDIF // // Una volta superato il 161.8 si riparte daccapo // IF close > FibD2 THEN PuntoA = high BarraA = BarIndex PuntoB = low BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 Barra  = 0 ENDIF // IF PuntoB = PuntoA THEN PuntoA = 0 PuntoB = 0 PuntoC = 0 PuntoD = 0 ENDIF // // si stampano i punti trovati, ognuno dipendente dal precedente, si stampa A, poi B solo se A è stato stampato, poi C solo se B è stato stampato ed infine D se anche C è stato stampato IF PuntoA > 0 THEN //DRAWSEGMENT(BarraA,PuntoA,BarIndex,PuntoA) COLOURED(255,0,0,255)            //Rosso DRAWTEXT("A",BarraA,PuntoA + Distanza,Dialog,Bold,20) coloured(205,0,205,255) IF PuntoB > 0 THEN //DRAWSEGMENT(BarraB,PuntoB,BarIndex,PuntoB) COLOURED(0,255,0,255)         //Verde DRAWTEXT("B",BarraB,PuntoB - Distanza,Dialog,Bold,20) coloured(205,0,205,255) IF PuntoC > 0 THEN //DRAWSEGMENT(BarraC,PuntoC,BarIndex,PuntoC) COLOURED(0,0,255,255)      //Blu DRAWTEXT("C",BarraC,PuntoC + Distanza,Dialog,Bold,20) coloured(205,0,205,255) IF PuntoD > 0 THEN // D //DRAWSEGMENT(BarraC,FibD1,BarIndex,FibD1) COLOURED(238,201,0,255) //Oro //DRAWSEGMENT(BarraC,FibD2,BarIndex,FibD2) COLOURED(238,201,0,255) //Oro DRAWTEXT("D",BarIndex,PuntoD - Distanza,Dialog,Bold,30) coloured(205,0,205,255) ENDIF // // stampa segmenti per Pattern Armonici //DRAWSEGMENT(BarraA,PuntoA,BarraB,PuntoB)  COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraA,PuntoA,BarraC,PuntoC)  COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraB,PuntoB,BarraC,PuntoC)  COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraB,PuntoB,BarraC,PuntoC)  COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraC,PuntoC,BarIndex,FibD1) COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarIndex,low,BarIndex,FibD1)  COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraC,PuntoC,BarIndex,low)   COLOURED(0,0,0,255) //Nero DRAWTRIANGLE(BarraA,PuntoA,BarraB,PuntoB,BarraC,PuntoC)coloured(200,120,120,255) IF PuntoD > 0 THEN DRAWTRIANGLE(BarraB,PuntoB,BarraC,PuntoC,BarraD,PuntoD)coloured(0,255,0,255) ENDIF ENDIF ENDIF ENDIF RETURN

   

  

  Al

  Participant

  Topics: 3

  Replies: 28

  Been thanked: 6 times
  10/29/2019 at 11:09 AM #111513
  robertogozzi

  L’ho riscritto partendo dall’ultimo che avevo postato, invertendo tutte le condizioni:

  // Pattern Armonico ABCD // // https://www.prorealcode.com/topic/fibonacci-2/page/4/#post-108394 // DEFPARAM DrawOnLastBarOnly = true IF BarIndex = 0 OR (Barra > MaxBarre) THEN MaxBarre = 100 Distanza = 2 * pipsize PuntoA = high BarraA = BarIndex PuntoB = low BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 Barra = 0 ENDIF Barra = Barra + 1 //incrementare il passare delle barre per azzerare tutto quando arriva a 100 // // Determinare se il prezzo scende sotto A, in tal caso avremo una nuova A più bassa e ripartiremo daccapo con B,C e D PuntoA = max(PuntoA,high) IF PuntoA > PuntoA[1] THEN BarraA = BarIndex Barra = 0 PuntoB = low BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 ENDIF // // Determinare se il prezzo sale sopra B, in tal caso avremo una nuova B più alta e ripartiremo daccapo con C e D PuntoB = min(PuntoB,low) IF PuntoB < PuntoB[1] THEN IF PuntoC = 0 THEN BarraB = BarIndex ENDIF ENDIF // Calcolare la differenza tra i punti A e B e le due percentuali di fibonacci da usare per la verifica di C DiffAB = PuntoA - PuntoB FibC1 = DiffAB * 0.618 FibC2 = DiffAB * 0.786 FibD1 = PuntoA - (DiffAB * 1.270) FibD2 = PuntoA - (DiffAB * 1.618) IF high >= (PuntoB + FibC1) AND high <= (PuntoB + FibC2) THEN // se il MINIMO è tra 0.618 e 0.786 abbiamo trovato il punto C.... PuntoC = high BarraC = BarIndex ELSIF close > (PuntoB + FibC2) THEN // ...altrimenti si riparte daccapo con un nuovo punto A ed un nuovo punto B PuntoA = high BarraA = BarIndex PuntoB = high BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 Barra = 0 ENDIF // // Una volta superato il 161.8 si riparte daccapo // IF close < FibD2 AND PuntoD > 0 THEN PuntoA = high BarraA = BarIndex PuntoB = low BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 Barra = 0 ENDIF IF PuntoC > 0 AND PuntoD = 0 THEN PuntoD = 1 ENDIF // si stampano i punti trovati, ognuno dipendente dal precedente, si stampa A, poi B solo se A è stato stampato, poi C solo se B è stato stampato ed infine D se anche C è stato stampato IF PuntoA > 0 THEN //DRAWSEGMENT(BarraA,PuntoA,BarIndex,PuntoA) COLOURED(255,0,0,255) //Rosso DRAWTEXT("A",BarraA,PuntoA - Distanza,Dialog,Bold,14) coloured(205,0,205,255) IF PuntoB > 0 THEN //DRAWSEGMENT(BarraB,PuntoB,BarIndex,PuntoB) COLOURED(0,255,0,255) //Verde DRAWTEXT("B",BarraB,PuntoB + Distanza,Dialog,Bold,14) coloured(205,0,205,255) IF PuntoC > 0 THEN //DRAWSEGMENT(BarraC,PuntoC,BarIndex,PuntoC) COLOURED(0,0,255,255) //Blu DRAWTEXT("C",BarraC,PuntoC - Distanza,Dialog,Bold,14) coloured(205,0,205,255) // D //DRAWSEGMENT(BarraC,FibD1,BarIndex,FibD1) COLOURED(238,201,0,255) //Oro //DRAWSEGMENT(BarraC,FibD2,BarIndex,FibD2) COLOURED(238,201,0,255) //Oro DRAWTEXT("D",BarIndex,FibD1 - Distanza,Dialog,Bold,14) coloured(205,0,205,255) // // stampa segmenti per Pattern Armonici //DRAWSEGMENT(BarraA,PuntoA,BarraB,PuntoB) COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraA,PuntoA,BarraC,PuntoC) COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraB,PuntoB,BarraC,PuntoC) COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraB,PuntoB,BarraC,PuntoC) COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraC,PuntoC,BarIndex,FibD1) COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarIndex,low,BarIndex,FibD1) COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraC,PuntoC,BarIndex,low) COLOURED(0,0,0,255) //Nero DRAWTRIANGLE(BarraA,PuntoA,BarraB,PuntoB,BarraC,PuntoC)coloured(200,120,120,255) DRAWTRIANGLE(BarraC,PuntoC,BarIndex,FibD1,BarIndex,low)coloured(200,120,120,255) ENDIF ENDIF ENDIF RETURN

  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 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104

  // Pattern Armonico ABCD // // https://www.prorealcode.com/topic/fibonacci-2/page/4/#post-108394 // DEFPARAM DrawOnLastBarOnly = true IF BarIndex = 0 OR (Barra > MaxBarre) THEN MaxBarre = 100 Distanza = 2 * pipsize PuntoA   = high BarraA   = BarIndex PuntoB   = low BarraB   = BarIndex PuntoC   = 0 BarraC   = 0 PuntoD   = 0 Barra    = 0 ENDIF Barra = Barra + 1  //incrementare il passare delle barre per azzerare tutto quando arriva a 100 // // Determinare se il prezzo scende sotto A, in tal caso avremo una nuova A più bassa e ripartiremo daccapo con B,C e D PuntoA = max(PuntoA,high) IF PuntoA > PuntoA[1] THEN BarraA = BarIndex Barra  = 0 PuntoB = low BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 ENDIF // // Determinare se il prezzo sale sopra B, in tal caso avremo una nuova B più alta e ripartiremo daccapo con C e D PuntoB = min(PuntoB,low) IF PuntoB < PuntoB[1] THEN IF PuntoC = 0 THEN BarraB = BarIndex ENDIF ENDIF // Calcolare la differenza tra i punti A e B e le due percentuali di fibonacci da usare per la verifica di C DiffAB = PuntoA - PuntoB FibC1  = DiffAB * 0.618 FibC2  = DiffAB * 0.786 FibD1  = PuntoA - (DiffAB * 1.270) FibD2  = PuntoA - (DiffAB * 1.618) IF high >= (PuntoB + FibC1) AND high <= (PuntoB + FibC2) THEN // se il MINIMO è tra 0.618 e 0.786 abbiamo trovato il punto C.... PuntoC = high BarraC = BarIndex ELSIF close > (PuntoB + FibC2) THEN // ...altrimenti si riparte daccapo con un nuovo punto A ed un nuovo punto B PuntoA = high BarraA = BarIndex PuntoB = high BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 Barra  = 0 ENDIF // // Una volta superato il 161.8 si riparte daccapo // IF close < FibD2 AND PuntoD > 0 THEN PuntoA = high BarraA = BarIndex PuntoB = low BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 Barra  = 0 ENDIF IF PuntoC > 0 AND PuntoD = 0 THEN PuntoD = 1 ENDIF // si stampano i punti trovati, ognuno dipendente dal precedente, si stampa A, poi B solo se A è stato stampato, poi C solo se B è stato stampato ed infine D se anche C è stato stampato IF PuntoA > 0 THEN //DRAWSEGMENT(BarraA,PuntoA,BarIndex,PuntoA) COLOURED(255,0,0,255)            //Rosso DRAWTEXT("A",BarraA,PuntoA - Distanza,Dialog,Bold,14) coloured(205,0,205,255) IF PuntoB > 0 THEN //DRAWSEGMENT(BarraB,PuntoB,BarIndex,PuntoB) COLOURED(0,255,0,255)         //Verde DRAWTEXT("B",BarraB,PuntoB + Distanza,Dialog,Bold,14) coloured(205,0,205,255) IF PuntoC > 0 THEN //DRAWSEGMENT(BarraC,PuntoC,BarIndex,PuntoC) COLOURED(0,0,255,255)      //Blu DRAWTEXT("C",BarraC,PuntoC - Distanza,Dialog,Bold,14) coloured(205,0,205,255) // D //DRAWSEGMENT(BarraC,FibD1,BarIndex,FibD1) COLOURED(238,201,0,255) //Oro //DRAWSEGMENT(BarraC,FibD2,BarIndex,FibD2) COLOURED(238,201,0,255) //Oro DRAWTEXT("D",BarIndex,FibD1 - Distanza,Dialog,Bold,14) coloured(205,0,205,255) // // stampa segmenti per Pattern Armonici //DRAWSEGMENT(BarraA,PuntoA,BarraB,PuntoB)  COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraA,PuntoA,BarraC,PuntoC)  COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraB,PuntoB,BarraC,PuntoC)  COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraB,PuntoB,BarraC,PuntoC)  COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraC,PuntoC,BarIndex,FibD1) COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarIndex,low,BarIndex,FibD1)  COLOURED(0,0,0,255) //Nero //DRAWSEGMENT(BarraC,PuntoC,BarIndex,low)   COLOURED(0,0,0,255) //Nero DRAWTRIANGLE(BarraA,PuntoA,BarraB,PuntoB,BarraC,PuntoC)coloured(200,120,120,255) DRAWTRIANGLE(BarraC,PuntoC,BarIndex,FibD1,BarIndex,low)coloured(200,120,120,255) ENDIF ENDIF ENDIF RETURN

  Mi sembra vada bene.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17134

  Been thanked: 4031 times
  10/29/2019 at 2:09 PM #111545
  Al

  Un grande ringraziamento Roberto, i tuoi indicatori Pattern Armonici  ABCD sono un buon lavoro, penso che si aprano possibilità
  Buona giornata

  

  Al

  Participant

  Topics: 3

  Replies: 28

  Been thanked: 6 times
  10/29/2019 at 3:03 PM #111554
  robertogozzi

  Grazie Al.

  Se fai anche lo screener pubblicalo qui, per favore, così tutti possono leggerlo.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17134

  Been thanked: 4031 times
  10/30/2019 at 10:35 AM #111627
  Al

  Ciao Roberto,
  Ecco una versione di screener da testare, è un’inversione di un screener della discution
  Ho notato che hai creato nuove interessanti versioni degli indicatori, modificando i codici.
  È interessante scoprire le possibili varianti.Ad esempio l’azione TOTAL, con il tuo nuovo indicatore (Dn) e una versione inversa acienne
  Grazie, buona giornata

  Screener ABCD dwn

  // Pattern Armonico ABCD // // Versione invertita di screener https://www.prorealcode.com/topic/fibonacci-2/page/4/#post-108399 //per testare IF BarIndex = 0 OR (Barra > MaxBarre) THEN MaxBarre = 100 PuntoA = high PuntoB = low PuntoC = 0 Barra = 0 ENDIF Barra = Barra + 1 //incrementare il passare delle barre per azzerare tutto quando arriva a 100 // // Determinare se il prezzo scende sotto A, in tal caso avremo una nuova A più bassa e ripartiremo daccapo con B,C e D PuntoA = max(PuntoA,high) IF PuntoA > PuntoA[1] THEN Barra = 0 PuntoB = low PuntoC = 0 PuntoD = 0 ENDIF // // Determinare se il prezzo sale sopra B, in tal caso avremo una nuova B più alta e ripartiremo daccapo con C e D IF PuntoC = 0 THEN PuntoB = min(PuntoB,low) ENDIF // Calcolare la differenza tra i punti A e B e le due percentuali di fibonacci da usare per la verifica di C DiffAB = PuntoA - PuntoB FibC1 = DiffAB * 0.618 FibC2 = DiffAB * 0.786 FibD1 = PuntoA - (DiffAB * 1.270) FibD2 = PuntoA - (DiffAB * 1.618) IF close>= (PuntoB + FibC1) AND close <= (PuntoB + FibC2) THEN // se il MINIMO è tra 0.618 e 0.786 abbiamo trovato il punto C.... PuntoC = high PuntoD = 0 ELSIF close > (PuntoB + FibC2) THEN // ...altrimenti si riparte daccapo con un nuovo punto A ed un nuovo punto B PuntoA = high PuntoB = low PuntoC = 0 PuntoD = 0 Barra = 0 endif IF PuntoC = PuntoA THEN PuntoC = 0 ENDIF // IF low <= FibD1 AND close >= FibD2 THEN IF PuntoD = 0 THEN PuntoD = low ELSE PuntoD = min(PuntoD,low) ENDIF ENDIF IF PuntoD > 0 THEN IF close < PuntoB THEN PuntoD = 0 ENDIF ENDIF // // Una volta superato il 161.8 si riparte daccapo IF close < FibD2 AND PuntoD> 0 THEN PuntoA = high PuntoB = low PuntoC = 0 PuntoD = 0 ENDIF // IF PuntoB = PuntoA THEN PuntoA = 0 PuntoB = 0 PuntoC = 0 PuntoD = 0 ENDIF // si stampano i punti trovati, ognuno dipendente dal precedente, si stampa A, poi B solo se A è stato stampato, poi C solo se B è stato stampato ed infine D se anche C è stato stampato //PuntoD = 0 IF PuntoC > 0 AND close <= FibD1 AND close >= FibD2 THEN PuntoD = low ENDIF SCREENER [PuntoD](Barra AS "0ld")

  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

  // Pattern Armonico ABCD // // Versione invertita di screener https://www.prorealcode.com/topic/fibonacci-2/page/4/#post-108399 //per testare IF BarIndex = 0 OR (Barra > MaxBarre) THEN MaxBarre = 100 PuntoA   = high PuntoB   = low PuntoC   = 0 Barra    = 0 ENDIF Barra = Barra + 1  //incrementare il passare delle barre per azzerare tutto quando arriva a 100 // // Determinare se il prezzo scende sotto A, in tal caso avremo una nuova A più bassa e ripartiremo daccapo con B,C e D PuntoA = max(PuntoA,high) IF PuntoA > PuntoA[1] THEN Barra  = 0 PuntoB = low PuntoC = 0 PuntoD = 0 ENDIF // // Determinare se il prezzo sale sopra B, in tal caso avremo una nuova B più alta e ripartiremo daccapo con C e D IF PuntoC = 0 THEN PuntoB = min(PuntoB,low) ENDIF   // Calcolare la differenza tra i punti A e B e le due percentuali di fibonacci da usare per la verifica di C DiffAB = PuntoA - PuntoB FibC1  = DiffAB * 0.618 FibC2  = DiffAB * 0.786 FibD1  = PuntoA - (DiffAB * 1.270) FibD2  = PuntoA - (DiffAB * 1.618) IF close>= (PuntoB + FibC1) AND close <= (PuntoB + FibC2) THEN // se il MINIMO è tra 0.618 e 0.786 abbiamo trovato il punto C.... PuntoC = high PuntoD = 0 ELSIF close > (PuntoB + FibC2) THEN // ...altrimenti si riparte daccapo con un nuovo punto A ed un nuovo punto B PuntoA = high PuntoB = low PuntoC = 0 PuntoD = 0 Barra  = 0 endif IF PuntoC = PuntoA THEN PuntoC = 0 ENDIF // IF low <= FibD1 AND close >= FibD2 THEN IF PuntoD = 0 THEN PuntoD = low ELSE PuntoD = min(PuntoD,low) ENDIF ENDIF IF PuntoD > 0 THEN IF close < PuntoB THEN PuntoD = 0 ENDIF ENDIF // // Una volta superato il 161.8 si riparte daccapo   IF close < FibD2 AND PuntoD> 0 THEN PuntoA = high PuntoB = low PuntoC = 0 PuntoD = 0 ENDIF // IF PuntoB = PuntoA THEN PuntoA = 0 PuntoB = 0 PuntoC = 0 PuntoD = 0 ENDIF // si stampano i punti trovati, ognuno dipendente dal precedente, si stampa A, poi B solo se A è stato stampato, poi C solo se B è stato stampato ed infine D se anche C è stato stampato //PuntoD = 0 IF PuntoC > 0 AND close <= FibD1 AND close  >= FibD2 THEN PuntoD = low ENDIF SCREENER [PuntoD](Barra AS "0ld")

   

  1 user thanked author for this post.

  robertogozzi

  

  Al

  Participant

  Topics: 3

  Replies: 28

  Been thanked: 6 times
  11/17/2019 at 12:31 AM #112956
  Gianluca

  Grazie a tutti per il fantastico lavoro!! e a Roberto soprattutto sempre gentile!

   

  

  Gianluca

  Participant

  Topics: 64

  Replies: 417

  Been thanked: 55 times
  11/20/2019 at 9:55 AM #113194
  robertogozzi

  Ho pubblicato uno screener ed un indicatore del Pattern ABCD;

  https://www.prorealcode.com/prorealtime-indicators/abcd-pattern-indicator

  https://www.prorealcode.com/prorealtime-market-screeners/abcd-pattern-screener/

  queste sono le novità introdotte rispetto ai codici pubblicati qui:

  • ho combinato insieme sia la versione Long che quella Short
  • ho migliorato il codice
  • ho introdotto una distanza minima tra i punti A-C e C-D, per evitare triangoli troppo piccoli
  • oltre a visualizzare il pattern corrente, se c’è, visualizza anche quello precedente

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17134

  Been thanked: 4031 times
  11/20/2019 at 6:57 PM #113251
  tatankayotanka

  Grazie mille Roberto appena riesco lo provo

  

  tatankayotanka

  Participant

  Topics: 25

  Replies: 113

  Been thanked: 2 times
• Author
  Posts