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

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

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