ABCD Pattern indicator for ProRealTime

ABCD Pattern indicator

Based on a request in the italian support forum, it plots both Bullish and Bearish ABCD patterns on the chart.

Variables that can be set with the indicator’s properties:

LmaxBars = 100 number of lookback bars
LMinBars = 5 minimun number of bars between points A-C and C-D
Ldistance = 15 offset to display letters on the chart

References:

https://www.prorealcode.com/topic/fibonacci-2/page/4/#post-108394

https://www.dailyfx.com/forex/education/trading_tips/post_of_the_day/2013/01/11/Learn_Forex_Trading_the_ABCD_Pattern.html

https://www.forex.com/en-uk/education/education-themes/technical-analysis/abcd-pattern/

DEFPARAM DrawOnLastBarOnly = true
//LmaxBars   = 100
//LMinBars  = 5
//Ldistance = 15
//------------------------------------------------------------------------------------
//                               Bullish pattern
//------------------------------------------------------------------------------------
IF BarIndex = 0 THEN
Ldistance = Ldistance * pipsize
LpointA   = high
LbarA     = BarIndex
LpointB   = low
LbarB     = BarIndex
LpointC   = 0
LbarC     = 0
LpointD   = 0
LbarD     = 0
Lcount    = 0
XLpointA  = 0
XLbarA    = 0
XLpointB  = 0
XLbarB    = 0
XLpointC  = 0
XLbarC    = 0
XLpointD  = 0
XLbarD    = 0
ENDIF
//
IF Lcount > LmaxBars  THEN
XLpointA  = LpointA
XLbarA    = LbarA
XLpointB  = LpointB
XLbarB    = LbarB
XLpointC  = LpointC
XLbarC    = LbarC
XLpointD  = LpointD
XLbarD    = LbarD
LpointA   = high
LbarA     = BarIndex
LpointB   = low
LbarB     = BarIndex
LpointC   = 0
LbarC     = 0
LpointD   = 0
LbarD     = 0
Lcount    = 0
ENDIF
Lcount = Lcount + 1  //incrementare il passare delle Bars  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
LpointA = max(LpointA,high)
IF LpointA > LpointA[1] THEN
LbarA   = BarIndex
Lcount  = 0
LpointB = low
LbarB   = BarIndex
LpointC = 0
LbarC   = 0
LpointD = 0
LbarD   = 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 LpointC = 0 THEN
LpointB = min(LpointB,low)
IF LpointB < LpointB[1] THEN
LbarB = 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
LdiffAB = LpointA - LpointB
LfibC1  = LdiffAB * 0.618
LfibC2  = LdiffAB * 0.786
LfibD1  = LpointC - (LfibC1 * 1.270)
LfibD2  = LpointC - (LfibC2 * 1.618)
IF high >= (LpointB + LfibC1) AND high <= (LpointB + LfibC2) THEN
// se il MINIMO è tra 0.618 e 0.786 abbiamo trovato il Lpoint C....
LpointC = high
LbarC   = BarIndex
IF LpointC < LpointC[1] THEN
LpointC = LpointC[1]
LbarC   = LbarC[1]
ENDIF
ELSIF close > (LpointB + LfibC2) THEN
// ...altrimenti si riparte daccapo con un nuovo Lpoint A ed un nuovo Lpoint B
LpointA = high
LbarA   = BarIndex
LpointB = low
LbarB   = BarIndex
LpointC = 0
LbarC   = 0
LbarD   = 0
LpointD = 0
Lcount  = 0
ENDIF
//
// Una volta superato il 161.8 si riparte daccapo
//
IF close < LfibD2 AND LpointD > 0 THEN
XLpointA= LpointA
XLbarA  = LbarA
XLpointB= LpointB
XLbarB  = LbarB
XLpointC= LpointC
XLbarC  = LbarC
XLpointD= LpointD
XLbarD  = LbarD
LpointA = high
LbarA   = BarIndex
LpointB = low
LbarB   = BarIndex
LpointC = 0
LbarC   = 0
LpointD = 0
LbarD   = 0
Lcount  = 0
ENDIF
IF LpointC > 0 THEN
IF LpointD = 0 THEN
IF close <= LfibD1 AND close >= LfibD2 THEN
LpointD = close
LbarD   = BarIndex
ELSIF close < LfibD2 THEN
LpointD = LfibD2
LbarD = BarIndex
ENDIF
ELSE
IF close <= LfibD1 AND close >= LfibD2 THEN
LpointD = close
IF LpointD < LpointD[1] THEN
LbarD   = BarIndex
ELSE
LpointD = LpointD[1]
ENDIF
ELSE
XLpointA= LpointA
XLbarA  = LbarA
XLpointB= LpointB
XLbarB  = LbarB
XLpointC= LpointC
XLbarC  = LbarC
XLpointD= LpointD
XLbarD  = LbarD
LpointA = high
LbarA   = BarIndex
Lcount  = 0
LpointB = 0
LbarB   = 0
LpointC = 0
LbarC   = 0
LpointD = 0
LbarD   = 0
ENDIF
ENDIF
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 LpointC > 0 THEN
IF ((LbarC - LbarA) < LminBars ) THEN
LpointC = 0
x = BarIndex - LbarB
FOR i = x DOWNTO 0
IF low[i] < LpointB THEN
LpointB = low[i]
LbarB   = BarIndex[i]
ENDIF
NEXT
ENDIF
ENDIF
//IF LpointD > 0 THEN
//IF ((LbarC - LbarA) < LminBars ) OR ((LbarD - LbarC) < LminBars ) THEN
//LpointD = 0
//ENDIF
//ENDIF
IF LpointA > 0 THEN
IF LpointB > 0 THEN
IF LpointC > 0 THEN
IF LpointD > 0 THEN
//IF LpointD[1] = 0 THEN
XLpointA  = LpointA
XLbarA    = LbarA
XLpointB  = LpointB
XLbarB    = LbarB
XLpointC  = LpointC
XLbarC    = LbarC
XLpointD  = LpointD
XLbarD    = LbarD
//ENDIF
DRAWTEXT("A",LbarA,LpointA - Ldistance,Dialog,Bold,14) coloured(205,0,205,255)
DRAWTEXT("B",LbarB,LpointB + Ldistance,Dialog,Bold,14) coloured(205,0,205,255)
DRAWTEXT("C",LbarC,LpointC - Ldistance,Dialog,Bold,14) coloured(205,0,205,255)
DRAWTEXT("D",LbarD,LpointD + Ldistance,Dialog,Bold,14) coloured(205,0,205,255)
DRAWTRIANGLE(LbarA,LpointA,LbarB,LpointB,LbarC,LpointC)coloured(50,205,50,255)
DRAWTRIANGLE(LbarC,LpointC,LbarD,LpointC,LbarD,LpointD)coloured(50,205,50,255)
ENDIF
ENDIF
ENDIF
ENDIF
IF LpointD = 0 AND XLpointD > 0 THEN
DRAWTEXT("A",XLbarA,XLpointA - Ldistance,Dialog,Bold,14) coloured(205,0,205,255)
DRAWTEXT("B",XLbarB,XLpointB + Ldistance,Dialog,Bold,14) coloured(205,0,205,255)
DRAWTEXT("C",XLbarC,XLpointC - Ldistance,Dialog,Bold,14) coloured(205,0,205,255)
DRAWTEXT("D",XLbarD,XLpointD + Ldistance,Dialog,Bold,14) coloured(205,0,205,255)
DRAWTRIANGLE(XLbarA,XLpointA,XLbarB,XLpointB,XLbarC,XLpointC)coloured(50,205,50,255)
DRAWTRIANGLE(XLbarC,XLpointC,XLbarD,XLpointC,XLbarD,XLpointD)coloured(50,205,50,255)
ENDIF
//------------------------------------------------------------------------------------
//                               Bearish pattern
//------------------------------------------------------------------------------------
SmaxBars  = LmaxBars
SminBars  = LminBars
Sdistance = Ldistance
IF BarIndex = 0 THEN
SpointA   = low
SbarA     = BarIndex
SpointB   = high
SbarB     = BarIndex
SpointC   = 0
SbarC     = 0
SpointD   = 0
SbarD     = 0
Scount    = 0
XSpointA  = low
XSbarA    = BarIndex
XSpointB  = high
XSbarB    = BarIndex
XSpointC  = 0
XSbarC    = 0
XSpointD  = 0
XSbarD    = 0
ENDIF
//
IF Scount > SmaxBars  THEN
XSpointA  = SpointA
XSbarA    = SbarA
XSpointB  = SpointB
XSbarB    = SbarB
XSpointC  = SpointC
XSbarC    = SbarC
XSpointD  = SpointD
XSbarD    = SbarD
SpointA   = low
SbarA     = BarIndex
SpointB   = high
SbarB     = BarIndex
SpointC   = 0
SbarC     = 0
SpointD   = 0
SbarD     = 0
Scount    = 0
ENDIF
Scount = Scount + 1  //incrementare il passare delle Bars  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
SpointA = min(SpointA,low)
IF SpointA < SpointA[1] THEN
SbarA   = BarIndex
Scount  = 0
SpointB = high
SbarB   = BarIndex
SpointC = 0
SbarC   = 0
SpointD = 0
SbarD   = 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 SpointC = 0 THEN
SpointB = max(SpointB,high)
IF SpointB > SpointB[1] THEN
SbarB = 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
SdiffAB = SpointB - SpointA
SfibC1  = SdiffAB * 0.618
SfibC2  = SdiffAB * 0.786
SfibD1  = SpointC + (SfibC1 * 1.270)
SfibD2  = SpointC + (SfibC2 * 1.618)
IF low <= (SpointB - SfibC1) AND low >= (SpointB - SfibC2) THEN
// se il MINIMO è tra 0.618 e 0.786 abbiamo trovato il Spoint C....
SpointC = low
SbarC = BarIndex
IF SpointC < SpointC[1] THEN
SpointC = SpointC[1]
SbarC   = SbarC[1]
ENDIF
ELSIF close < (SpointB - SfibC2) THEN
// ...altrimenti si riparte daccapo con un nuovo Spoint A ed un nuovo Spoint B
SpointA = low
SbarA   = BarIndex
SpointB = high
SbarB   = BarIndex
SpointC = 0
SbarC   = 0
SbarD   = 0
SpointD = 0
Scount  = 0
ELSIF close > SpointB THEN
//SpointB = high
//SbarB   = BarIndex
//SpointC = 0
//SbarC   = 0
//SbarD   = 0
//SpointD = 0
ENDIF
//
// Una volta superato il 161.8 si riparte daccapo
//
IF close > SfibD2 AND SpointD > 0 THEN
XSpointA= SpointA
XSbarA  = SbarA
XSpointB= SpointB
XSbarB  = SbarB
XSpointC= SpointC
XSbarC  = SbarC
XSpointD= SpointD
XSbarD  = SbarD
SpointA = low
SpointA = low
SbarA   = BarIndex
SpointB = high
SbarB   = BarIndex
SpointC = 0
SbarC   = 0
SpointD = 0
SbarD   = 0
Scount  = 0
ENDIF
IF SpointC > 0 THEN
IF SpointD = 0 THEN
IF close >= SfibD1 AND close <= SfibD2 THEN
SpointD = close
SbarD = BarIndex
ELSIF close > SfibD2 THEN
SpointD = SfibD2
SbarD = BarIndex
ENDIF
ELSE
IF close >= SfibD1 AND close <= SfibD2 THEN
SpointD = close
IF SpointD > SpointD[1] THEN
SbarD = BarIndex
ELSE
SpointD = SpointD[1]
ENDIF
ELSE
XSpointA= SpointA
XSbarA  = SbarA
XSpointB= SpointB
XSbarB  = SbarB
XSpointC= SpointC
XSbarC  = SbarC
XSpointD= SpointD
XSbarD  = SbarD
SpointA = low
SbarA   = BarIndex
Scount  = 0
SpointB = 0
SbarB   = 0
SpointC = 0
SbarC   = 0
SpointD = 0
SbarD   = 0
ENDIF
ENDIF
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 SpointC > 0 THEN
IF ((SbarC - SbarA) < SminBars ) THEN
SpointC = 0
x = BarIndex - SbarB
FOR i = x DOWNTO 0
IF high[i] > SpointB THEN
SpointB = high[i]
SbarB   = BarIndex[i]
ENDIF
NEXT
ENDIF
ENDIF
IF SpointD > 0 THEN
IF ((SbarD - SbarC) < SminBars ) THEN
//IF SpointD > 0 THEN
//IF ((SbarC - SbarA) < SminBars ) OR ((SbarD - SbarC) < SminBars ) THEN
//SpointD = 0
//ENDIF
//ENDIF
SpointD = 0
SbarD   = 0
ENDIF
ENDIF
IF SpointA > 0 THEN
IF SpointB > 0 THEN
IF SpointC > 0 THEN
IF SpointD > 0 THEN
//IF SpointD[1] = 0 THEN
XSpointA  = SpointA
XSbarA    = SbarA
XSpointB  = SpointB
XSbarB    = SbarB
XSpointC  = SpointC
XSbarC    = SbarC
XSpointD  = SpointD
XSbarD    = SbarD
//ENDIF
DRAWTEXT("A",SbarA,SpointA - Sdistance,Dialog,Bold,14) coloured(205,0,205,255)
DRAWTEXT("B",SbarB,SpointB + Sdistance,Dialog,Bold,14) coloured(205,0,205,255)
DRAWTEXT("C",SbarC,SpointC - Sdistance,Dialog,Bold,14) coloured(205,0,205,255)
DRAWTEXT("D",SbarD,SpointD + Sdistance,Dialog,Bold,14) coloured(205,0,205,255)
DRAWTRIANGLE(SbarA,SpointA,SbarB,SpointB,SbarC,SpointC)coloured(200,120,120,255)
DRAWTRIANGLE(SbarC,SpointC,SbarD,SpointC,SbarD,SpointD)coloured(200,120,120,255)
ENDIF
ENDIF
ENDIF
ENDIF
IF SpointD = 0 AND XSpointD > 0 THEN
DRAWTEXT("A",XSbarA,XSpointA - Sdistance,Dialog,Bold,14) coloured(205,0,205,255)
DRAWTEXT("B",XSbarB,XSpointB + Sdistance,Dialog,Bold,14) coloured(205,0,205,255)
DRAWTEXT("C",XSbarC,XSpointC - Sdistance,Dialog,Bold,14) coloured(205,0,205,255)
DRAWTEXT("D",XSbarD,XSpointD + Sdistance,Dialog,Bold,14) coloured(205,0,205,255)
DRAWTRIANGLE(XSbarA,XSpointA,XSbarB,XSpointB,XSbarC,XSpointC)coloured(200,120,120,255)
DRAWTRIANGLE(XSbarC,XSpointC,XSbarD,XSpointC,XSbarD,XSpointD)coloured(200,120,120,255)
ENDIF
RETURN

Download

Filename: ABCD-pattern-indicator.txt

Downloads: 402

Download

Filename: ABCD-pattern-indicator.itf

Downloads: 963

Download

Filename: y-2.jpg

Downloads: 231

Comments

You must be logged in to post a comment.

aldtrading

3 years ago

Thanks for your work. I'm using V11 and nothing is drawn on the chart, I believe this is a compatibility issue, so : What would it need to be compatible with V11?

robertogozzi

3 years ago

It works on v10.3, v11 and v12. You are likely to have added it BELOW your chart (like RSI), try adding it ON your chart (like a Moving Average).

Alby118

6 years ago

Thank you so much, appreciate alot. Can you explain witch symbol I use to set up in alerts? >, >=, => , = ....obviously not cross over or cross under. Thank you

robertogozzi

6 years ago

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

sksaha77

6 years ago

Hi Roberto, thanks for the codes. I have added the indicator in V10.3; I can see the triangles but the letters ABCD is plotting way far in the chart and not next to the angles. Any tricks how to tune this up. Thanks in advance.

Regan2020

6 years ago

Thank you Roberto. You have just changed my world! ha I have another question regarding the indicator, it only forms after the D has closed, is there a way to only have an ABC indicator, which will enable with DD a decision on the buy or sell direction for the D (from ABCD)?

robertogozzi

6 years ago

Comment out lines 394, 411, 408, 410, 419 and 421. This should do, but also try replacing line 15 with: "SpointC = 0 AND XSpointC > 0".

Regan2020

6 years ago

Hi Roberto, I have imported the file, but instead of overlaying my main price tab, I get a separate tab at the bottom of the window? how do I overlap the pattern indicator on to the price screen? thank you in advance

robertogozzi

6 years ago

Click the spanner on the upper left corner of your chart, then add an indicator from the list..

toby.tarczy

6 years ago

Thank you Roberto for the link. I will try to run it tomorrow. Toby

PEDRAM.JOKAR

7 years ago

Is this compatible with IBKR PRT platform? how can i get a tutorial of IBKR coding?

robertogozzi

7 years ago

I don't know, if you have a demo account on it you can try. I don't have it, sorry.

efahmy

7 years ago

I'm using V10.3 with IG and whenever I'm importing an indicator it doesnt overlay on the chart, but goes into a new panel. Do you know how to fix this?

robertogozzi

7 years ago

Crea un topic nel supporto ProOrder, per favore. Grazie

robertogozzi

7 years ago

Try uncommenting line 1, to see what happens.

Abz

7 years ago

hello , is it possible to see the patterns back in time? i tried to adjust the loockback value bit it dident draw anything in historical data.

ggolfet

7 years ago

Grazie mille per la risposta. Avrei un'altra domanda (un po' off topic). Quando su esaminano i risultati di un trading system (probacktest) è possibile plottare (nella finestrella curva guadagni-perdite) o, comunque, far apparire il ratio gain/loss, senza dover aprire la finestrella del rapporto dettagliato. Sarebbe comodo, ad esempio se si confrontano più trading system, avere il parametro gain/loss evidenziato nei relativi grafici (in modo da non avere troppe finestre aperte). Sai se c'è qualche comando da inserire nel trading system o settaggio di prorealtime che permetta di rendere immediatamente visibile il parametro gain/loss? - Grazie per l'attenzione

robertogozzi

7 years ago

https://www.prorealcode.com/blog/prorealtime-v11-new-instructions-and-improvements-in-calculation-speed/

robertogozzi

7 years ago

No, il colore interno non si può cambiare con la versione 10.3, si potrà dalla 11, per ora disponibile solo con PRT, che non ho, mentre IG ad anno nuovo, ma non so in che mese. Però dovresti vedere il colore di default, prova a scurire o schiarire il monitor.

ggolfet

7 years ago

Grazie per il riscontro, io per ora uso la versione beta 11.1. Che tu sappia, c'è qualche istruzione specifica da inserire nel codice per mettere il colore interno?

ggolfet

7 years ago

Ottimo lavoro, una sola curiosità: è possibile settare il riempimento dei triangoli? A me compaiono solo i segmenti che compongono il perimetro. Grazie

luxrun

7 years ago

Grazie anche per lo screener, mi studierò per bene questo pattern armonico.

robertogozzi

7 years ago

Ceecando su internet troverai molte spiegazioni. In due parole quando si forma la D di entra in direzione opposta, ovviamente valutando sempre anche altre condizioni. A parte ho pubblicato anche il relativo screener.

luxrun

7 years ago

Bellissimo lavoro, Roberto, congratulazioni. C'è un unico piccolo/grande problema: imparare a usare il pattern ABCD.

Mauro

7 years ago

Thanks Roberto, amazing job as your usual. Only one question is the final configuration when it is visible on the chart so to speak (C D).