// ABCD Pattern indicator
//
//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