Fibonacci e Pattern Armonici ABCD

• 08/01/2019 at 10:12 AM #103952
  robertogozzi

  Le avevi già definite te nel tuo codice, quello che gho scritto io devi aggiungerlo dopo la riga 8 (togliendo, o meglio, commentando le tue).

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16464

  Been thanked: 3640 times
  08/01/2019 at 10:38 AM #103953
  Alexsio89

  defparam drawonlastbaronly = true defparam calculateonlastbars = 1000 P = 200 X= highest[P](high) A= lowest[P](low) RangeMax = (X - A) * 0.618 RangeMin = (X - A) * 0.500 BarraA = 0 BarraB = 0 For i = 1 To 1000 If high <= RangeMax Then BarraB = BarIndex[i] Endif If low = A Then BarraA = BarIndex[i] Endif If BarraA and BarraB Then Break Endif Next DRAWSEGMENT(BarraA,A,BarraB,RangeMax) return

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

  defparam drawonlastbaronly   = true defparam calculateonlastbars = 1000 P = 200 X= highest[P](high) A= lowest[P](low) RangeMax = (X - A) * 0.618 RangeMin = (X - A) * 0.500 BarraA = 0 BarraB = 0 For i = 1 To 1000 If high <= RangeMax  Then BarraB = BarIndex[i] Endif If low = A Then BarraA = BarIndex[i] Endif If BarraA and BarraB Then Break Endif Next DRAWSEGMENT(BarraA,A,BarraB,RangeMax) return

  scusami ma non avevo capito…allora ho unito il tutto ma mi dice comunque di definire il “rangemin”

  (forse sono io che non riesco nemmeno ad unire le due cose insieme…)

  

  Alexsio89

  Participant

  Topics: 1

  Replies: 15

  Been thanked: 0 times
  08/01/2019 at 11:33 AM #103964
  robertogozzi

  No, dovrebbe dirti che non staimusando la variabile RANGEMIN.

  Quando una variabile non viene usata devi commentarla.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16464

  Been thanked: 3640 times
  09/11/2019 at 9:57 PM #107287
  tatankayotanka

  Buona sera  allego un disegno dove cerco spiegare quello che voglio e oltre alle info sul disegno vorrei anche altre condizioni

  1=che il punto D sia al massimo di 2/3 candele precedenti all ultima barra

  2=mi piacerebbe  un programma per lo screener con quelle condizioni sopra citata

  3=  un indicatore dove disegni  il pattern trovato

  Grazie in anticipo per il vostro interessamento e tempo

   

  

  tatankayotanka

  Participant

  Topics: 24

  Replies: 112

  Been thanked: 2 times
  09/22/2019 at 10:26 AM #108143
  Alexsio89

  ci sto impazzendo da mesi ormai…io sono sicuramente troppo ignorante in materia..alla fine mi sa che tocca comprarlo..tatanka se ti va ci possiamo sentire in privato..(vedo che abbiamo idee simili)

  

  Alexsio89

  Participant

  Topics: 1

  Replies: 15

  Been thanked: 0 times
  09/23/2019 at 3:37 PM #108279
  robertogozzi

  Capisco la vostra attesa, ma è abbastanza macchinoso riuscire a fare quello che chiedi.

  Prendere un Massimo ed un Minimo e visualizzare i livelli di Fibonacci è di una semplicità estrema e ce ne sono di codici qui sul forum.

  Partire da un minimo A, poi individuare B (se nel frattempo il prezzo scende sotto A, questo diventa la nuova A), se poi il prezzo supera B questo diventa la nuova B, se poi il prezzo scende occorre individuare C che sia tra le due percentuali indicate, se scende sotto 76.4 occorre riazzerare tutto e ricominciare nuovamente a trovare A, ecc…. è una cosa difficile, non tanto concettualmente, quanto nella scrittura del codice perché prevede molti intrecci.

  Io ho scritto intanto i punti A e B, sto cercando di mettere a punto C, ma devo fare ancora delle prove.

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16464

  Been thanked: 3640 times
  09/23/2019 at 5:08 PM #108288
  tatankayotanka

  Ciao Roberto , figurati non e un problema il tempo , riesci a a postare la prima parte del programma?

   

  

  tatankayotanka

  Participant

  Topics: 24

  Replies: 112

  Been thanked: 2 times
  09/24/2019 at 11:53 AM #108337
  robertogozzi

  Qusto è il codice, fino al punto C. Nella foto del DAX h1 di adesso il punto C non è stato ancora raggiunto, ma spero lo faccia per vedere se viene stampato correttamente, dopodiché diventa semplice fare la proiezione per il punto D:

  DEFPARAM DrawOnLastBarOnly = true IF BarIndex = 0 OR (Barra > MaxBarre) THEN MaxBarre = 100 Distanza = 5 * pipsize PuntoA = low BarraA = BarIndex PuntoB = high BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 BarraD = 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 = min(PuntoA,low) IF PuntoA < PuntoA[1] THEN BarraA = BarIndex Barra = 0 PuntoB = high BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 BarraD = 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 = max(PuntoB,high) IF PuntoB > PuntoB[1] THEN PuntoC = 0 BarraC = 0 PuntoD = 0 BarraD = 0 ENDIF // Calcolare la differenza tra i punti A e B e le due percentuali di fibonacci da usare per la verifica di C DiffAB = PuntoB - PuntoA FibC1 = DiffAB * 0.618 FibC2 = DiffAB * 0.786 IF low <= (PuntoB - FibC1) AND low >= (PuntoB - FibC2) THEN // se il MINIMO è tra 0.618 e 0.786 abbiamo trovato il punto C.... PuntoC = low BarraC = BarIndex ELSIF low < (PuntoB - FibC2) THEN // ...altrimenti si riparte daccapo con un nuovo punto A ed un nuovo punto B PuntoA = low BarraA = BarIndex PuntoB = high BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 BarraD = 0 Barra = 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,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)) IF PuntoD > 0 THEN DRAWSEGMENT(BarraD,PuntoD,BarIndex,PuntoD) COLOURED(238,201,0,255) //Oro DRAWTEXT("D",BarraD,PuntoD + Distanza,Dialog,Bold,14) coloured(205,0,205,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

  DEFPARAM DrawOnLastBarOnly = true IF BarIndex = 0 OR (Barra > MaxBarre) THEN    MaxBarre = 100    Distanza = 5 * pipsize    PuntoA   = low    BarraA   = BarIndex    PuntoB   = high    BarraB   = BarIndex    PuntoC   = 0    BarraC   = 0    PuntoD   = 0    BarraD   = 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 = min(PuntoA,low) IF PuntoA < PuntoA[1] THEN    BarraA = BarIndex    Barra  = 0    PuntoB = high    BarraB = BarIndex    PuntoC = 0    BarraC = 0    PuntoD = 0    BarraD = 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 = max(PuntoB,high) IF PuntoB > PuntoB[1] THEN    PuntoC = 0    BarraC = 0    PuntoD = 0    BarraD = 0 ENDIF // Calcolare la differenza tra i punti A e B e le due percentuali di fibonacci da usare per la verifica di C DiffAB = PuntoB - PuntoA FibC1  = DiffAB * 0.618 FibC2  = DiffAB * 0.786 IF low <= (PuntoB - FibC1) AND low >= (PuntoB - FibC2) THEN    // se il MINIMO è tra 0.618 e 0.786 abbiamo trovato il punto C....    PuntoC = low    BarraC = BarIndex ELSIF low < (PuntoB - FibC2) THEN    // ...altrimenti si riparte daccapo con un nuovo punto A ed un nuovo punto B    PuntoA = low    BarraA = BarIndex    PuntoB = high    BarraB = BarIndex    PuntoC = 0    BarraC = 0    PuntoD = 0    BarraD = 0    Barra  = 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,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))          IF PuntoD > 0 THEN             DRAWSEGMENT(BarraD,PuntoD,BarIndex,PuntoD) COLOURED(238,201,0,255) //Oro             DRAWTEXT("D",BarraD,PuntoD + Distanza,Dialog,Bold,14) coloured(205,0,205,255))          ENDIF       ENDIF    ENDIF ENDIF RETURN

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16464

  Been thanked: 3640 times
  09/24/2019 at 4:21 PM #108366
  robertogozzi

  Eccolo finito e funzionante (almeno sul DAX, h1):

  DEFPARAM DrawOnLastBarOnly = true IF BarIndex = 0 OR (Barra > MaxBarre) THEN MaxBarre = 100 Distanza = 5 * pipsize PuntoA = low BarraA = BarIndex PuntoB = high BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 BarraD = 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 = min(PuntoA,low) IF PuntoA < PuntoA[1] THEN BarraA = BarIndex Barra = 0 PuntoB = high BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 BarraD = 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 = max(PuntoB,high) IF PuntoB > PuntoB[1] THEN IF PuntoC = 0 THEN PuntoC = 0 BarraC = 0 PuntoD = 0 BarraD = 0 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 = PuntoB - PuntoA FibC1 = DiffAB * 0.618 FibC2 = DiffAB * 0.786 FibD1 = PuntoA + (DiffAB * 1.270) FibD2 = PuntoA + (DiffAB * 1.618) IF low <= (PuntoB - FibC1) AND low >= (PuntoB - FibC2) THEN // se il MINIMO è tra 0.618 e 0.786 abbiamo trovato il punto C.... PuntoC = low BarraC = BarIndex ELSIF close < (PuntoB - FibC2) THEN // ...altrimenti si riparte daccapo con un nuovo punto A ed un nuovo punto B PuntoA = low BarraA = BarIndex PuntoB = high BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 BarraD = 0 Barra = 0 ENDIF // // Una volta superato il 161.8 si riparte daccapo // IF close > FibD2 AND PuntoD > 0 THEN PuntoA = low BarraA = BarIndex PuntoB = high BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 BarraD = 0 Barra = 0 ENDIF IF PuntoC > 0 AND PuntoD = 0 THEN PuntoD = 1 BarraD = BarIndex 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(BarraD,FibD1,BarIndex,FibD1) COLOURED(238,201,0,255) //Oro DRAWSEGMENT(BarraD,FibD2,BarIndex,FibD2) COLOURED(238,201,0,255) //Oro DRAWTEXT("D",BarraD,FibD1 - Distanza,Dialog,Bold,14) coloured(205,0,205,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

  DEFPARAM DrawOnLastBarOnly = true IF BarIndex = 0 OR (Barra > MaxBarre) THEN MaxBarre = 100 Distanza = 5 * pipsize PuntoA   = low BarraA   = BarIndex PuntoB   = high BarraB   = BarIndex PuntoC   = 0 BarraC   = 0 PuntoD   = 0 BarraD   = 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 = min(PuntoA,low) IF PuntoA < PuntoA[1] THEN BarraA = BarIndex Barra  = 0 PuntoB = high BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 BarraD = 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 = max(PuntoB,high) IF PuntoB > PuntoB[1] THEN IF PuntoC = 0 THEN PuntoC = 0 BarraC = 0 PuntoD = 0 BarraD = 0 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 = PuntoB - PuntoA FibC1  = DiffAB * 0.618 FibC2  = DiffAB * 0.786 FibD1  = PuntoA + (DiffAB * 1.270) FibD2  = PuntoA + (DiffAB * 1.618) IF low <= (PuntoB - FibC1) AND low >= (PuntoB - FibC2) THEN // se il MINIMO è tra 0.618 e 0.786 abbiamo trovato il punto C.... PuntoC = low BarraC = BarIndex ELSIF close < (PuntoB - FibC2) THEN // ...altrimenti si riparte daccapo con un nuovo punto A ed un nuovo punto B PuntoA = low BarraA = BarIndex PuntoB = high BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 BarraD = 0 Barra  = 0 ENDIF // // Una volta superato il 161.8 si riparte daccapo // IF close > FibD2 AND PuntoD > 0 THEN PuntoA = low BarraA = BarIndex PuntoB = high BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 BarraD = 0 Barra  = 0 ENDIF IF PuntoC > 0 AND PuntoD = 0 THEN PuntoD = 1 BarraD = BarIndex 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(BarraD,FibD1,BarIndex,FibD1) COLOURED(238,201,0,255) //Oro DRAWSEGMENT(BarraD,FibD2,BarIndex,FibD2) COLOURED(238,201,0,255) //Oro DRAWTEXT("D",BarraD,FibD1 - Distanza,Dialog,Bold,14) coloured(205,0,205,255) ENDIF ENDIF ENDIF RETURN

  nelle foto ho allegato anche quella dove si vede solo C, mentre in realtà questa non si vedrà, perché appena rileva il puntoC automaticamente proietterà in alto anche il D con i due segmenti.

  Questo è l’indicatore, se è quello che volevi e ti va bene ti farò lo screener.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16464

  Been thanked: 3640 times
  09/24/2019 at 5:10 PM #108372
  tatankayotanka

  Grazie Roberto , se riesco lo provo oggi stesso

   

  

  tatankayotanka

  Participant

  Topics: 24

  Replies: 112

  Been thanked: 2 times
  09/24/2019 at 7:21 PM #108383
  tatankayotanka

  Si proprio cosi , ed abbiamo (hai) creato  l indicatore del pattern armonico ABCD , se possibile puoi tracciare dei segmenti e le lettere al loro vertice corrispondenti come immagine che allego , si se puoi creare lo screener  sarebbe grandioso

  

  tatankayotanka

  Participant

  Topics: 24

  Replies: 112

  Been thanked: 2 times
  09/24/2019 at 11:11 PM #108394
  robertogozzi

  Allego la nuova versione dell’indicatore, di cui allego immagine e file .ITF per l’importazione:

  Pattern Armonici ABCD e Fibonacci

  DEFPARAM DrawOnLastBarOnly = true IF BarIndex = 0 OR (Barra > MaxBarre) THEN MaxBarre = 100 Distanza = 2 * pipsize PuntoA = low BarraA = BarIndex PuntoB = high 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 = min(PuntoA,low) IF PuntoA < PuntoA[1] THEN BarraA = BarIndex Barra = 0 PuntoB = high 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 = max(PuntoB,high) IF PuntoB > PuntoB[1] THEN BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 ENDIF // Calcolare la differenza tra i punti A e B e le due percentuali di fibonacci da usare per la verifica di C DiffAB = PuntoB - PuntoA FibC1 = DiffAB * 0.618 FibC2 = DiffAB * 0.786 FibD1 = PuntoA + (DiffAB * 1.270) FibD2 = PuntoA + (DiffAB * 1.618) IF low <= (PuntoB - FibC1) AND low >= (PuntoB - FibC2) THEN // se il MINIMO è tra 0.618 e 0.786 abbiamo trovato il punto C.... PuntoC = low BarraC = BarIndex ELSIF close < (PuntoB - FibC2) THEN // ...altrimenti si riparte daccapo con un nuovo punto A ed un nuovo punto B PuntoA = low 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 = low BarraA = BarIndex PuntoB = high 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 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

  DEFPARAM DrawOnLastBarOnly = true IF BarIndex = 0 OR (Barra > MaxBarre) THEN MaxBarre = 100 Distanza = 2 * pipsize PuntoA   = low BarraA   = BarIndex PuntoB   = high 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 = min(PuntoA,low) IF PuntoA < PuntoA[1] THEN BarraA = BarIndex Barra  = 0 PuntoB = high 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 = max(PuntoB,high) IF PuntoB > PuntoB[1] THEN BarraB = BarIndex PuntoC = 0 BarraC = 0 PuntoD = 0 ENDIF // Calcolare la differenza tra i punti A e B e le due percentuali di fibonacci da usare per la verifica di C DiffAB = PuntoB - PuntoA FibC1  = DiffAB * 0.618 FibC2  = DiffAB * 0.786 FibD1  = PuntoA + (DiffAB * 1.270) FibD2  = PuntoA + (DiffAB * 1.618) IF low <= (PuntoB - FibC1) AND low >= (PuntoB - FibC2) THEN // se il MINIMO è tra 0.618 e 0.786 abbiamo trovato il punto C.... PuntoC = low BarraC = BarIndex ELSIF close < (PuntoB - FibC2) THEN // ...altrimenti si riparte daccapo con un nuovo punto A ed un nuovo punto B PuntoA = low 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 = low BarraA = BarIndex PuntoB = high 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 ENDIF ENDIF ENDIF RETURN

  Resta da fare la colorazione dell’interno dei pattern, abbiate un pò di pazienza ancora.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16464

  Been thanked: 3640 times
  09/24/2019 at 11:17 PM #108399
  robertogozzi

  E questo è lo screener, anchesso con allegato file .ITF per l’importazione.

  Pattern Armonici ABCD screener

  IF BarIndex = 0 OR (Barra > MaxBarre) THEN MaxBarre = 100 //Distanza = 5 * pipsize PuntoA = low //BarraA = BarIndex PuntoB = high //BarraB = BarIndex PuntoC = 0 //BarraC = 0 PuntoD = 0 //BarraD = 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 = min(PuntoA,low) IF PuntoA < PuntoA[1] THEN //BarraA = BarIndex Barra = 0 PuntoB = high //BarraB = BarIndex PuntoC = 0 //BarraC = 0 PuntoD = 0 //BarraD = 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 = max(PuntoB,high) IF PuntoB > PuntoB[1] THEN PuntoC = 0 //BarraC = 0 PuntoD = 0 //BarraD = 0 ENDIF // Calcolare la differenza tra i punti A e B e le due percentuali di fibonacci da usare per la verifica di C DiffAB = PuntoB - PuntoA FibC1 = DiffAB * 0.618 FibC2 = DiffAB * 0.786 //FibD1 = PuntoA + (DiffAB * 1.270) //FibD2 = PuntoA + (DiffAB * 1.618) IF low <= (PuntoB - FibC1) AND low >= (PuntoB - FibC2) THEN // se il MINIMO è tra 0.618 e 0.786 abbiamo trovato il punto C.... PuntoC = low //BarraC = BarIndex ELSIF close < (PuntoB - FibC2) THEN // ...altrimenti si riparte daccapo con un nuovo punto A ed un nuovo punto B PuntoA = low //BarraA = BarIndex PuntoB = high //BarraB = BarIndex PuntoC = 0 //BarraC = 0 PuntoD = 0 //BarraD = 0 Barra = 0 ENDIF // // Una volta superato il 161.8 si riparte daccapo // //IF close > FibD2 AND PuntoD > 0 THEN //PuntoA = low //BarraA = BarIndex //PuntoB = high //BarraB = BarIndex //PuntoC = 0 //BarraC = 0 //PuntoD = 0 //BarraD = 0 //Barra = 0 //ENDIF IF PuntoC > 0 AND PuntoD = 0 THEN PuntoD = 1 //BarraD = BarIndex ENDIF SCREENER [PuntoC](Barra AS "Old")

  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

  IF BarIndex = 0 OR (Barra > MaxBarre) THEN MaxBarre = 100 //Distanza = 5 * pipsize PuntoA   = low //BarraA   = BarIndex PuntoB   = high //BarraB   = BarIndex PuntoC   = 0 //BarraC   = 0 PuntoD   = 0 //BarraD   = 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 = min(PuntoA,low) IF PuntoA < PuntoA[1] THEN //BarraA = BarIndex Barra  = 0 PuntoB = high //BarraB = BarIndex PuntoC = 0 //BarraC = 0 PuntoD = 0 //BarraD = 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 = max(PuntoB,high) IF PuntoB > PuntoB[1] THEN PuntoC = 0 //BarraC = 0 PuntoD = 0 //BarraD = 0 ENDIF // Calcolare la differenza tra i punti A e B e le due percentuali di fibonacci da usare per la verifica di C DiffAB = PuntoB - PuntoA FibC1  = DiffAB * 0.618 FibC2  = DiffAB * 0.786 //FibD1  = PuntoA + (DiffAB * 1.270) //FibD2  = PuntoA + (DiffAB * 1.618) IF low <= (PuntoB - FibC1) AND low >= (PuntoB - FibC2) THEN // se il MINIMO è tra 0.618 e 0.786 abbiamo trovato il punto C.... PuntoC = low //BarraC = BarIndex ELSIF close < (PuntoB - FibC2) THEN // ...altrimenti si riparte daccapo con un nuovo punto A ed un nuovo punto B PuntoA = low //BarraA = BarIndex PuntoB = high //BarraB = BarIndex PuntoC = 0 //BarraC = 0 PuntoD = 0 //BarraD = 0 Barra  = 0 ENDIF // // Una volta superato il 161.8 si riparte daccapo // //IF close > FibD2 AND PuntoD > 0 THEN //PuntoA = low //BarraA = BarIndex //PuntoB = high //BarraB = BarIndex //PuntoC = 0 //BarraC = 0 //PuntoD = 0 //BarraD = 0 //Barra  = 0 //ENDIF IF PuntoC > 0 AND PuntoD = 0 THEN PuntoD = 1 //BarraD = BarIndex ENDIF SCREENER [PuntoC](Barra AS "Old")

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16464

  Been thanked: 3640 times
  09/25/2019 at 6:19 PM #108471
  tatankayotanka

  Ciao Roberto non preoccuparti per il tempo che devo attendere per la colorazione , ho scaricato ultima versione e anche lo screener  ti chiedo ancora due cose 1° puoi togliere linee orizzontali colorate che segnano i livelli di fibo  ( ho provato  a modificarlo ma mi da errore)

  2° nello screener mi deve trovare solo i grafici che esaudiscano tutti e 4 i punti

  

  tatankayotanka

  Participant

  Topics: 24

  Replies: 112

  Been thanked: 2 times
  09/25/2019 at 9:12 PM #108484
  Alexsio89

  complimenti Roberto…e grazie infinite per il tempo che ci hai dedicato…..sei veramente bravo…

  

  Alexsio89

  Participant

  Topics: 1

  Replies: 15

  Been thanked: 0 times
• Author
  Posts