Harmonic Patterns AFL Code for Amibroker

good88

_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorWhite ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();

_SECTION_BEGIN("Gartley");

GBmin = Param("Swing B Min.",0.55,0.3,1,0.01);
GBmax = Param("Swing B Max.",0.72,0.4,1,0.01);
GCmin = Param("Swing C Min.",0.38,0.3,1.27,0.01);
GCmax = Param("Swing C Max.",1.0,0.4,1.27,0.01);
GDmin = Param("Swing D Min.(XA)",0.55,0.3,1,0.01);
GDmax = Param("Swing D Max.(XA)",1.0,0.4,1.0,0.01);

_SECTION_END();

_SECTION_BEGIN("Bat");

BatBmin = Param("Swing B Min.",0.38,0.3,1,0.01);
BatBmax = Param("Swing B Max.",0.55,0.4,1,0.01);
BatCmin = Param("Swing C Min.",0.38,0.3,1.62,0.01);
BatCmax = Param("Swing C Max.",1.27,0.4,1.62,0.01);
BatDmin = Param("Swing D Min.(XA)",0.5,0.3,1,0.01);
BatDmax = Param("Swing D Max.(XA)",1.0,0.4,1.0,0.01);

_SECTION_END();

_SECTION_BEGIN("Butterfly");

BtBmin = Param("Swing B Min.",0.55,0.3,1,0.01);
BtBmax = Param("Swing B Max.",0.9,0.4,1,0.01);
BtCmin = Param("Swing C Min.",0.38,0.3,1.62,0.01);
BtCmax = Param("Swing C Max.",1.27,0.4,1.62,0.01);
BtDmin = Param("Swing D Min.(XA)",1,1,1.8,0.01);
BtDmax = Param("Swing D Max.(XA)",1.8,1,1.8,0.01);                                                // Max XA of Butterfly = (1.0 - 1.618)

_SECTION_END();

_SECTION_BEGIN("Crab");

CBmin = Param("Swing B Min.",0.38,0.3,1,0.01);
CBmax = Param("Swing B Max.",0.65,0.4,1,0.01);
CCmin = Param("Swing C Min.",0.38,0.3,1.62,0.01);
CCmax = Param("Swing C Max.",1.270,0.4,1.62,0.01);
CDmin = Param("Swing D Min.(XA)",1.25,1,1.8,0.01);
CDmax = Param("Swing D Max.(XA)",1.8,1,2,0.01);

_SECTION_END();

_SECTION_BEGIN("AB=CD");

abcd_Cmin = Param("Swing C Min.",0.3,                0.3        ,        1,                0.01);
abcd_Cmax = Param("Swing C Max.",0.8,                0.8        ,        1,                0.01);
abcd_Dmin = Param("Swing D Min.",1.2,                1,                2.7,        0.01);
abcd_Dmax = Param("Swing D Max.",3.7,                1,                4,                0.01);

_SECTION_END();

_SECTION_BEGIN("Patterns");
       
//strength = Param("Strength",5,2,15,1);                                                                        // Best use: 3, 4, 5
strength = Param("BARS of each LINE",5,2,15,1);                                                        // So luong bar cho moi duong XA, AB, BC,
bu = ParamToggle("Bullish Pattern","Off|On",1);                                                        // So bar/lines se quyet dinh. mo^ hinh` duoc ve the' nao`
be = ParamToggle("Bearish Pattern","Off|On",1);

bi = Cum(1)-1;

function GetTop(bars)                                                                                                                 // Lay' gia' tri cao nhat' = di?nh
        {
                Top = H == HHV(H,2*bars) AND Ref(HHV(H,bars),bars) < H;
                Top = Top AND LastValue(bi)-ValueWhen(Top,bi) > bars;
                return Top;
        }

function GetValley(bars)                                                                                                        // La'y gia tri thap' nhat' = day'
        {
                Valley = L == LLV(L,2*bars) AND Ref(LLV(L,bars),bars) > L;
                Valley = Valley AND LastValue(bi)-ValueWhen(Valley,bi) > bars;
                return Valley;
        }


// Build fractals array

P1 = GetTop(strength);                                                                                // so' bar cho 1 duong` XA, AB, BC, CD
V1 = GetValley(Strength);

P1 = IIf(P1,IIf(ValueWhen(P1,bi,2) < ValueWhen(V1,bi),P1,IIf(ValueWhen(P1,H,2) > H,False,P1)),P1);
P1 = IIf(P1 AND ValueWhen(P1,bi,0) > bi,IIf(ValueWhen(P1,bi,0) < ValueWhen(V1,bi,0),IIf(ValueWhen(P1,H,0) >= H,False,P1),P1),P1);
V1 = IIf(V1,IIf(ValueWhen(V1,bi,2) < ValueWhen(P1,bi),V1,IIf(ValueWhen(V1,L,2)<L,False,V1)),V1);
V1 = IIf(V1 AND ValueWhen(V1,bi,0) > bi ,IIf(ValueWhen(V1,bi,0) < ValueWhen(P1,bi,0),IIf(ValueWhen(V1,L,0) <= L, False,V1),V1),V1);


P1H1 = ValueWhen(P1,H);
P1Bar1 = ValueWhen(P1,bi);
P1H2 = ValueWhen(P1,H,2);
P1Bar2 = ValueWhen(P1,bi,2);
V1L1 = ValueWhen(V1,L);
V1Bar1 = ValueWhen(V1,bi);
V1L2 = ValueWhen(V1,L,2);
V1Bar2 = ValueWhen(V1,bi,2);


//============================================
//                                BULLISH PATTERNS
//============================================
/*
        Mo hinh Bullish:
        A        =        P1H2
        B        =        V1L1
        C        =        P1H1
        X        =        V1L2

*/

PTvalid = (P1Bar1 > V1Bar1 AND V1Bar1 > P1Bar2 AND P1bar2 > V1Bar2) AND P1; // Peaks and troughs are in order

myAX                        =        P1H2-V1L2;
myAB                        =        P1H2-V1L1;
myBC                        =        P1H1-V1L1;

myAB_AX                =        myAB/ myAX;
myBC_AB                =        myBC/ myAB;       

BullGartley4                 = PTvalid         AND         (        myAB_AX > GBmin        )                 AND (        myAB_AX < GBmax        )
                                                                AND          (        myBC_AB > GCMin         )                 AND (        myBC_AB < GCMax        );

BullBat4                         = PTvalid         AND         (        myAB_AX > BatBmin )                 AND (        myAB_AX < BatBmax        )
                                                                AND         (        myBC_AB > BatCMin )                 AND (        myBC_AB < BatCMax        );

BullButterfly4         = PTvalid         AND         (        myAB_AX > BtBmin )                 AND (        myAB_AX < BtBMax        )
                                                                AND          (        myBC_AB > BtCmin )                 AND (        myBC_AB < BtCmin         );

BullCrab4                         = PTvalid         AND         (        myAB_AX > CBmin )                          AND (        myAB_AX < CBmax         )
                                                                AND          (        myBC_AB > CCmin )                 AND (        myBC_AB < CCmax        );

BullABCD4                        = PTvalid AND         (        myBC_AB > abcd_Cmin)         AND (        myBC_AB < abcd_Cmax        );

strPattern = "";

//==================================================
//                                 BULLISH ABCD
//         Bullish pattern found. D retracement level is not evaluated
//==================================================
        dHigh                =                HighestSince(BullABCD4,H);                                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
        dLow                 =                 LowestSince(BullABCD4,L);
       
        myC                        =                ValueWhen(BullABCD4,P1H1);
        myB                        =                ValueWhen(BullABCD4,V1L1);
        myA                        =                ValueWhen(BullABCD4,P1H2);
        myX                        =                ValueWhen(BullABCD4,V1L2);
        myCB                =                myC - myB;

        my_d_min        =                myCB        *        abcd_DMin ;                                        // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
        my_d_max        =                myCB        *        abcd_DMax ;
        my_Cd_min        =                myC - my_d_min;                                           // Khoang dich chuyen cua duong Ad con.
        my_Cd_max        =                myC - my_d_max;

BullABCD                 =                 IIf(                ( dLow  <        my_Cd_min        )        AND                ( dLow        > my_Cd_max )       
                                                                AND        ( dHigh        <=        myC                )        AND                ( dLow        ==        L),
                                                                True, False
                                                        );

BullABCD                =                BullABCD        AND (dLow                <        myB);


//==================================================
//                                 BULLISH GARTLEY
//==================================================
        dHigh                =                HighestSince(BullGartley4,H);                                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
        dLow                 =                 LowestSince(BullGartley4,L);

        myC                        =                ValueWhen(BullGartley4,P1H1);
        myB                        =                ValueWhen(BullGartley4,V1L1);
        myA                        =                ValueWhen(BullGartley4,P1H2);
        myX                        =                ValueWhen(BullGartley4,V1L2);
        myAX                =                myA - myX;

        my_d_min        =                myAX        *        GDmin;                                                        // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
        my_d_max        =                myAX        *        GDMax;
        my_Ad_min        =                myA - my_d_min;                                                        // Khoang dich chuyen cua duong Ad con.
        my_Ad_max        =                myA - my_d_max;

BullGartley         =                 IIf(                ( dLow  <        my_Ad_min        )        AND                ( dLow        > my_Ad_max )       
                                                                AND        ( dHigh        <=        myC                )        AND                ( dLow        ==        L),
                                                                True, False
                                                        );
BullGartley         =                BullGartley         AND (dLow                <        myB);                                                // diem D thap' hon B
strPattern         =                WriteIf(BullGartley,"BULLISH GARTLEY",strPattern);



//==================================================
//                                 BULLISH BAT
//==================================================
        dHigh                =                HighestSince(BullBat4,H);                                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
        dLow                 =                 LowestSince(BullBat4,L);       

        myC                        =                ValueWhen(BullBat4,P1H1);
        myB                        =                ValueWhen(BullBat4,V1L1);
        myA                        =                ValueWhen(BullBat4,P1H2);
        myX                        =                ValueWhen(BullBat4,V1L2);
        myAX                =                myA - myX;

        my_d_min        =                myAX        *        BatDmin;                                                // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
        my_d_max        =                myAX        *        BatDmax ;
        my_Ad_min        =                myA - my_d_min;                                                        // Khoang dich chuyen cua duong Ad con.
        my_Ad_max        =                myA - my_d_max;

BullBat                 =                 IIf(                ( dLow  <        my_Ad_min        )        AND                ( dLow        > my_Ad_max )       
                                                                AND        ( dHigh        <=        myC                )        AND                ( dLow        ==        L),
                                                                True, False
                                                        );
BullBat                 =                BullBat         AND (dLow                <        myB);                        // diem d thap hon diem B
strPattern         =                WriteIf(BullBat,"BULLISH BAT",strPattern);


//==================================================
//                                 BULLISH CRAB - CUA
//==================================================
        dHigh                =                HighestSince(BullCrab4,H);                                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
        dLow                 =                 LowestSince(BullCrab4,L);

        myC                        =                ValueWhen(BullCrab4,P1H1);
        myB                        =                ValueWhen(BullCrab4,V1L1);
        myA                        =                ValueWhen(BullCrab4,P1H2);
        myX                        =                ValueWhen(BullCrab4,V1L2);
        myAX                =                myA - myX;

        my_d_min        =                myAX        *        CDmin ;                                        // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
        my_d_max        =                myAX        *        CDmax ;
        my_Ad_min        =                myA - my_d_min;                                                // Khoang dich chuyen cua duong Ad con.
        my_Ad_max        =                myA - my_d_max;

BullCrab                 =                 IIf(                ( dLow  <        my_Ad_min        )        AND                ( dLow        > my_Ad_max )       
                                                                AND        ( dHigh        <=        myC                )        AND                ( dLow        ==        L),
                                                                True, False
                                                        );
BullCrab                 =                BullCrab         AND (dLow                <        myX);                                        // diem D thap' hon X
strPattern         =                WriteIf(BullCrab ,"BULLISH CRAB",strPattern);


//==================================================
//                                 BULLISH  BUTTTERFLY
//==================================================
        dHigh                =                HighestSince(BullButterfly4,H);                                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
        dLow                 =                 LowestSince(BullButterfly4,L);

        myC                        =                ValueWhen(BullButterfly4,P1H1);
        myB                        =                ValueWhen(BullButterfly4,V1L1);
        myA                        =                ValueWhen(BullButterfly4,P1H2);
        myX                        =                ValueWhen(BullButterfly4,V1L2);
        myAX                =                myA - myX;

        my_d_min        =                myAX        *        BtDmin ;                                                                // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
        my_d_max        =                myAX        *        BtDmax ;
        my_Ad_min        =                myA - my_d_min;                                                                        // Khoang dich chuyen cua duong Ad con.
        my_Ad_max        =                myA - my_d_max;

BullButterfly         =                 IIf(                ( dLow  <        my_Ad_min        )        AND                ( dLow        > my_Ad_max )       
                                                                        AND        ( dHigh        <=        myC                )        AND                ( dLow        ==        L),
                                                                True, False
                                                                );
BullButterfly         =                BullButterfly         AND (dLow                <        myX);                                        // diem D thap' hon X
strPattern                 =                WriteIf(BullButterfly ,"BULLISH BUTTERFLY",strPattern);



//==========================================================
//   VE DUONG CHO MO HINH BULLISH ABCB
//==========================================================
BullHar4         =  BullABCD4;
BullHar         =  BullABCD;

Point4 = IIf(BullHar,ValueWhen(BullHar4,bi),Null);
BullHar = IIf(BullHar, IIf(Point4 == ValueWhen(BullHar,point4,0) AND ValueWhen(BullHar,bi,0) > bi ,False,BullHar),BullHar);

A = ValueWhen(BullHar4,P1H2);
Abar = ValueWhen(BullHar4,P1bar2);
B = ValueWhen(BullHar4,V1L1);
Bbar = ValueWhen(BullHar4,V1bar1);
C1 = ValueWhen(BullHar4,P1H1);
C1bar = ValueWhen(BullHar4,P1bar1);
D = ValueWhen(BullHar,L);
Dbar = ValueWhen(BullHar,bi);

BCdAB = (C1-B)/(A-B);
BCdCD = (C1-D)/(C1-B);

PlotPattern = Dbar > C1bar;

if(LastValue(PlotPattern) AND bu)
{
                ColorX = colorGreen;
        // Ve cac duong AB, BC, CD
                Plot(LineArray(LastValue(Abar),LastValue(A),LastValue(Bbar),LastValue(B)),"",ColorX ,styleThick);
                Plot(LineArray(LastValue(Bbar),LastValue(B),LastValue(C1bar),LastValue(C1)),"",ColorX ,styleThick);
                Plot(LineArray(LastValue(C1bar),LastValue(C1),LastValue(Dbar),LastValue(D)),"",ColorX ,styleThick);
                Plot(LineArray(LastValue(Abar),LastValue(A),LastValue(C1bar),LastValue(C1)),"",ColorX ,styleDashed);
                Plot(LineArray(LastValue(Bbar),LastValue(B),LastValue(Dbar),LastValue(D)),"",ColorX ,styleDashed);

        // Ve cac gia tri Fibo
                PlotText(NumToStr(LastValue(BCdAB),1.2),(LastValue(C1bar)+LastValue(Abar))/2,(LastValue(C1)+LastValue(A))/2,ColorX );
                PlotText(NumToStr(LastValue(BCdCD),1.2),(LastValue(Bbar)+LastValue(Dbar))/2,(LastValue(B)+LastValue(D))/2,ColorX );

        //---------- Viet cac diem X, A, B, C, D: by binhnd---------------------
                xlech                =        0;
                ylech                 =         2;
                PlotText("A",LastValue(Abar)        +         xlech,        LastValue(A)        +        ylech,        ColorX );
                PlotText("B",LastValue(Bbar)        +         xlech,        LastValue(B)        -        ylech,        ColorX );
                PlotText("C",LastValue(C1bar)        +         xlech,        LastValue(C1)        +        ylech,        ColorX );
                PlotText("D",LastValue(Dbar)        +         xlech,        LastValue(D)        -        ylech,        ColorX );

        //--------- Viet thuyet minh mo hinh: by binhnd--------------
                if (strPattern!="")  
                {
                        myStr                        =        "Pattern: BULLISH AB=CD";
                        toadoX                        =        LastValue(Abar);
                        toadoY                        =        LastValue(D);

                        PlotText(myStr,toadoX,toadoY,ColorX );
                }

}                        //        end of Ve duong` bullish abcd



//==========================================================
//   VE DUONG CHO MO HINH BULLISH BAT, GARTLEY, BUTTERFLY, CRAB
//==========================================================


BullHar4 = BullGartley4 OR BullButterfly4 OR BullBat4 OR BullCrab4 ;
BullHar = BullGartley OR BullButterfly OR BullBat OR BullCrab;

Point4 = IIf(BullHar,ValueWhen(BullHar4,bi),Null);
BullHar = IIf(BullHar, IIf(Point4 == ValueWhen(BullHar,point4,0) AND ValueWhen(BullHar,bi,0) > bi ,False,BullHar),BullHar);

X = ValueWhen(BullHar4,V1L2);
Xbar = ValueWhen(BullHar4,V1Bar2);
A = ValueWhen(BullHar4,P1H2);
Abar = ValueWhen(BullHar4,P1bar2);
B = ValueWhen(BullHar4,V1L1);
Bbar = ValueWhen(BullHar4,V1bar1);
C1 = ValueWhen(BullHar4,P1H1);
C1bar = ValueWhen(BullHar4,P1bar1);
D = ValueWhen(BullHar,L);
Dbar = ValueWhen(BullHar,bi);

ABdXA = (A-B)/(A-X);
BCdAB = (C1-B)/(A-B);
ADdXA = (A-D)/(A-X);
BCdCD = (C1-D)/(C1-B);

PlotPattern = Dbar > C1bar;

if(LastValue(PlotPattern) AND bu)
{
                        ColorX        = colorBlue;
                // Ve cac duong XA, AB, BC, CD
                        Plot( LineArray(LastValue(Xbar),LastValue(X),LastValue(Abar),LastValue(A)),"",ColorX,styleThick);
                        Plot(LineArray(LastValue(Abar),LastValue(A),LastValue(Bbar),LastValue(B)),"",ColorX,styleThick);
                        Plot(LineArray(LastValue(Bbar),LastValue(B),LastValue(C1bar),LastValue(C1)),"",ColorX,styleThick);
                        Plot(LineArray(LastValue(C1bar),LastValue(C1),LastValue(Dbar),LastValue(D)),"",ColorX,styleThick);
                        Plot(LineArray(LastValue(Xbar),LastValue(X),LastValue(Bbar),LastValue(B)),"",ColorX,styleDashed);
                        Plot(LineArray(LastValue(Xbar),LastValue(X),LastValue(Abar),LastValue(A)),"",ColorX,styleThick);
                        Plot(LineArray(LastValue(Abar),LastValue(A),LastValue(C1bar),LastValue(C1)),"",ColorX,styleDashed);
                        Plot(LineArray(LastValue(Bbar),LastValue(B),LastValue(Dbar),LastValue(D)),"",ColorX,styleDashed);
                        Plot(LineArray(LastValue(Xbar),LastValue(X),LastValue(Dbar),LastValue(D)),"",ColorX,styleDashed);

                // Ve cac gia tri Fibo
                        PlotText(NumToStr(LastValue(ABdXA),1.2),(LastValue(Bbar)+LastValue(Xbar))/2,(LastValue(B)+LastValue(X))/2,ColorX);
                        PlotText(NumToStr(LastValue(BCdAB),1.2),(LastValue(C1bar)+LastValue(Abar))/2,(LastValue(C1)+LastValue(A))/2,ColorX);
                        PlotText(NumToStr(LastValue(ADdXA),1.2) ,(LastValue(Dbar)+LastValue(Xbar))/2,(LastValue(D)+LastValue(X))/2,ColorX);
                        PlotText(NumToStr(LastValue(BCdCD),1.2),(LastValue(Bbar)+LastValue(Dbar))/2,(LastValue(B)+LastValue(D))/2,ColorX);

                //---------- Viet cac diem X, A, B, C, D: by binhnd---------------------
                        xlech                =        0;
                        ylech                 =         2;
                        PlotText("X",LastValue(Xbar)        +         xlech,        LastValue(X)        -        ylech,        ColorX);
                        PlotText("A",LastValue(Abar)        +         xlech,        LastValue(A)        +        ylech,        ColorX);
                        PlotText("B",LastValue(Bbar)        +         xlech,        LastValue(B)        -        ylech,        ColorX);
                        PlotText("C",LastValue(C1bar)        +         xlech,        LastValue(C1)        +        ylech,        ColorX);
                        PlotText("D",LastValue(Dbar)        +         xlech,        LastValue(D)        -        ylech,        ColorX);

                //--------- Viet thuyet minh mo hinh: by binhnd--------------
                        if (strPattern!="")  
                        {
                                strPattern         =         "Pattern: " + strPattern;
                                toadoX                        =        (LastValue(Dbar)+LastValue(Xbar))/2;
                                toadoY                        =        (LastValue(D)+LastValue(X))/2;

                                PlotText(strPattern,toadoX,toadoY-2,ColorX);
                        }

}                        // end of Ve duong cho cac mo hinh Crab, Butterfly, Bat


//=============================================================
//                                BEARISH PATTERNS
//=============================================================

PTvalid = (V1Bar1 > P1Bar1 AND P1Bar1 > V1Bar2 AND V1Bar2 > P1Bar2) AND V1;

/*=====================
                X         =         P1H2                                         Trong mo hinh` bear: Die^m X cao hon diem A. MyAX = X-> A
                A        =        V1L2
                B        =        P1H1
                C        =        V1L1

=======================*/
myAX                        =        P1H2-V1L2;                               
myAB                        =        P1H1-V1L2;
myBC                        =        P1H1-V1L1;

myAB_AX                =        myAB/ myAX;
myBC_AB                =        myBC/ myAB;       

BearGartley4                 = PTvalid         AND         (        myAB_AX > GBmin        )                 AND (        myAB_AX < GBmax        )
                                                                AND          (        myBC_AB > GCMin         )                 AND (        myBC_AB < GCMax        );

BearBat4                         = PTvalid         AND         (        myAB_AX > BatBmin )                 AND (        myAB_AX < BatBmax        )
                                                                AND         (        myBC_AB > BatCMin )                 AND (        myBC_AB < BatCMax        );

BearButterfly4         = PTvalid         AND         (        myAB_AX > BtBmin )                 AND (        myAB_AX < BtBMax        )
                                                                AND          (        myBC_AB > BtCmin )                 AND (        myBC_AB < BtCmin         );

BearCrab4                         = PTvalid         AND         (        myAB_AX > CBmin )                          AND (        myAB_AX < CBmax         )
                                                                AND          (        myBC_AB > CCmin )                 AND (        myBC_AB < CCmax        );

BearABCD4                        = PTvalid AND         (        myBC_AB > abcd_Cmin)         AND (        myBC_AB < abcd_Cmax        );

strPattern = "";



//==========================================================
//                                 BEARISH ABCD
//         Bearish pattern found. D retracement level is not evaluated
//==========================================================
        dHigh                =                HighestSince(BearABCD4,H);                                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
        dLow                 =                 LowestSince(BearABCD4,L);
       
        myA                        =                ValueWhen(BearABCD4,V1L2);
        myB                        =                ValueWhen(BearABCD4,P1H1);
        myC                        =                ValueWhen(BearABCD4,V1L1);
        myCB                =                myB - myC;

        my_d_min        =                myCB        *        abcd_DMin ;                                        // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
        my_d_max        =                myCB        *        abcd_DMax ;
        my_Cd_min        =                myC + my_d_min;                                           // Khoang dich chuyen cua duong Ad con.
        my_Cd_max        =                myC + my_d_max;

BearABCD                 =                 IIf(                ( dHigh          >        my_Cd_min        )        AND                ( dHigh        < my_Cd_max )       
                                                                AND        ( dLow                >=        myC                        )        AND                ( dHigh        ==        H),
                                                                True, False
                                                        );

BearABCD                =                BearABCD        AND (dHigh                >        myB);

//=============================================================
//                                BEARISH GARTLEY
//=============================================================
        dHigh                =                HighestSince(BearGartley4,H);                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
        dLow                 =                 LowestSince(BearGartley4,L);

        myX                        =                ValueWhen(BearGartley4,P1H2);
        myA                        =                ValueWhen(BearGartley4,V1L2);
        myAX                =                myX - myA;

        myB                        =                ValueWhen(BearGartley4,P1H1);
        myC                        =                ValueWhen(BearGartley4,V1L1);


        my_d_min        =                myAX        *        GDmin;                                                // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
        my_d_max        =                myAX        *        GDMax;
        my_Ad_min        =                myA         +         my_d_min;                                        // Khoang dich chuyen cua duong Ad con.
        my_Ad_max        =                myA         +         my_d_max;

BearGartley         =                 IIf(                ( dHigh        >        my_Ad_min        )        AND                ( dHigh        < my_Ad_max )       
                                                                AND        ( dLow                >=        myC                        )        AND                ( dHigh        ==        H),
                                                                True, False
                                                        );
BearGartley         =                BearGartley         AND (dHigh                >        myB);                                                // diem D cao hon B
strPattern         =                WriteIf(BearGartley ,"BEARISH GARTLEY",strPattern);

//=============================================================
//                                BEARISH BAT
//=============================================================
        dHigh                =                HighestSince(BearBat4,H);                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
        dLow                 =                 LowestSince(BearBat4,L);

        myX                        =                ValueWhen(BearBat4,P1H2);
        myA                        =                ValueWhen(BearBat4,V1L2);
        myAX                =                myX - myA;

        myB                        =                ValueWhen(BearBat4,P1H1);
        myC                        =                ValueWhen(BearBat4,V1L1);


        my_d_min        =                myAX        *        BatDmin ;                                                // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
        my_d_max        =                myAX        *        BatDMax ;
        my_Ad_min        =                myA         +         my_d_min;                                        // Khoang dich chuyen cua duong Ad con.
        my_Ad_max        =                myA         +         my_d_max;

BearBat                 =                 IIf(                ( dHigh        >        my_Ad_min        )        AND                ( dHigh        < my_Ad_max )       
                                                                AND        ( dLow                >=        myC                        )        AND                ( dHigh        ==        H),
                                                                True, False
                                                        );
BearBat                 =                BearBat         AND (dHigh                >        myB);                                                // diem D cao hon B
strPattern         =                WriteIf(BearBat ,"BEARISH BAT",strPattern);


//=============================================================
//                                BEARISH BUTTERFLY
//=============================================================
        dHigh                =                HighestSince(BearButterfly4,H);                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
        dLow                 =                 LowestSince(BearButterfly4,L);

        myX                        =                ValueWhen(BearButterfly4,P1H2);
        myA                        =                ValueWhen(BearButterfly4,V1L2);
        myAX                =                myX - myA;

        myB                        =                ValueWhen(BearButterfly4,P1H1);
        myC                        =                ValueWhen(BearButterfly4,V1L1);


        my_d_min        =                myAX        *        BtDmin ;                                                // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
        my_d_max        =                myAX        *        BtDmax ;
        my_Ad_min        =                myA         +         my_d_min;                                                // Khoang dich chuyen cua duong Ad con.
        my_Ad_max        =                myA         +         my_d_max;

BearButterfly =                 IIf(                ( dHigh        >        my_Ad_min        )        AND                ( dHigh        < my_Ad_max )       
                                                                AND        ( dLow                >=        myC                        )        AND                ( dHigh        ==        H),
                                                                True, False
                                                        );
BearButterfly        =                BearButterfly         AND (dHigh                >        myX);                                                // diem D cao hon X
strPattern                =                WriteIf(BearButterfly ,"BEARISH BUTTERFLY",strPattern);



//=============================================================
//                                BEARISH CRAB
//=============================================================
        dHigh                =                HighestSince(BearCrab4,H);                                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
        dLow                 =                 LowestSince(BearCrab4,L);

        myX                        =                ValueWhen(BearCrab4,P1H2);
        myA                        =                ValueWhen(BearCrab4,V1L2);
        myAX                =                myX - myA;

        myB                        =                ValueWhen(BearCrab4,P1H1);
        myC                        =                ValueWhen(BearCrab4,V1L1);


        my_d_min        =                myAX        *        CDmin ;                                                // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
        my_d_max        =                myAX        *        CDmax ;
        my_Ad_min        =                myA         +         my_d_min;                                                // Khoang dich chuyen cua duong Ad con.
        my_Ad_max        =                myA         +         my_d_max;

BearCrab                 =                 IIf(                ( dHigh        >        my_Ad_min        )        AND                ( dHigh        < my_Ad_max )       
                                                                AND        ( dLow                >=        myC                        )        AND                ( dHigh        ==        H),
                                                                True, False
                                                        );
BearCrab                 =                BearCrab         AND (dHigh                >        myX);                                                // diem D cao hon X
strPattern         =                WriteIf(BearCrab ,"BEARISH CRAB",strPattern);



//==========================================================
//   VE DUONG CHO MO HINH BEARISH ABCD
//==========================================================


BearHar4 = BearABCD4;
BearHar = BearABCD;

Point4 = IIf(BearHar,ValueWhen(BearHar4,bi),Null);
BearHar = IIf(BearHar, IIf(Point4 == ValueWhen(BearHar,point4,0) AND ValueWhen(BearHar,bi,0) > bi ,False,BearHar),BearHar);

A = ValueWhen(BearHar4,V1L2);
Abar = ValueWhen( BearHar4,V1bar2);
B = ValueWhen(BearHar4,P1H1);
Bbar = ValueWhen(BearHar4,P1bar1);
C1 = ValueWhen(BearHar4,V1L1);
C1bar = ValueWhen(BearHar4,V1bar1);
D = ValueWhen(BearHar,H);
Dbar = ValueWhen(BearHar,bi);

BCdAB = (B-C1)/(B-A);
BCdCD = (D-C1)/(B-C1);

PlotPattern = Dbar > C1bar;

//--------- Ve duong ------------------
if(LastValue(Plotpattern) AND be)
{
                ColorX = colorYellow;
        // Ve duong AB, BC
                Plot(LineArray(LastValue(Abar),LastValue(A),LastValue(Bbar),LastValue(B)),"",ColorX ,styleThick);
                Plot(LineArray(LastValue(Bbar),LastValue(B),LastValue(C1bar),LastValue(C1)),"",ColorX ,styleThick);
                Plot(LineArray(LastValue(C1bar),LastValue(C1),LastValue(Dbar),LastValue(D)),"",ColorX ,styleThick);
                Plot(LineArray(LastValue(Abar),LastValue(A),LastValue(C1bar),LastValue(C1)),"",ColorX ,styleDashed);
                Plot(LineArray(LastValue(Bbar),LastValue(B),LastValue(Dbar),LastValue(D)),"",ColorX ,styleDashed);

        // Viet cac gia tri Fibo tren duong AB, BC
                PlotText(NumToStr(LastValue(BCdAB),1.2),(LastValue(C1bar)+LastValue(Abar))/2,(LastValue(C1)+LastValue(A))/2,ColorX );
                PlotText(NumToStr(LastValue(BCdCD),1.2) ,(LastValue(Dbar)+LastValue(Bbar))/2,(LastValue(D)+LastValue(B))/2,ColorX );

        //---------- Viet cac diem A, B, C, D: by binhnd---------------------
                xlech                =        -1;
                ylech                 =         1;
                PlotText("A",LastValue(Abar)        +         xlech,        LastValue(A)        -        ylech,        ColorX );
                PlotText("B",LastValue(Bbar)        +         xlech,        LastValue(B)        +        ylech,        ColorX );
                PlotText("C",LastValue(C1bar)        +         xlech,        LastValue(C1)        -        ylech,        ColorX );
                PlotText("D",LastValue(Dbar)        +         xlech,        LastValue(D)        +        ylech,        ColorX );

        //--------- Viet thuyet minh mo hinh: by binhnd--------------
                if (strPattern!="")
                        {
                                myStr                        =        "Pattern: BEARISH AB=CD";
                                toadoaX                =        LastValue(Abar);
                                toadoY                        =        LastValue(D);

                                PlotText(myStr,toadoaX,toadoY+1,ColorX );
                        }
       
}                        // end of VE DUONG CHO MO HINH BEARISH ABCD


//==========================================================
//   VE DUONG CHO MO HINH BEARISH BAT, GARTLEY, BUTTERFLY, CRAB
//==========================================================

BearHar4 = BearGartley4 OR BearButterfly4 OR BearBat4 OR BearCrab4 ;
BearHar = BearGartley OR BearButterfly OR BearBat OR BearCrab ;

Point4 = IIf(BearHar,ValueWhen(BearHar4,bi),Null);
BearHar = IIf(BearHar, IIf(Point4 == ValueWhen(BearHar,point4,0) AND ValueWhen(BearHar,bi,0) > bi ,False,BearHar),BearHar);

X = ValueWhen(BearHar4,P1H2);
Xbar = ValueWhen(BearHar4,P1Bar2);
A = ValueWhen(BearHar4,V1L2);
Abar = ValueWhen( BearHar4,V1bar2);
B = ValueWhen(BearHar4,P1H1);
Bbar = ValueWhen(BearHar4,P1bar1);
C1 = ValueWhen(BearHar4,V1L1);
C1bar = ValueWhen(BearHar4,V1bar1);
D = ValueWhen(BearHar,H);
Dbar = ValueWhen(BearHar,bi);

ABdXA = (B-A)/(X-A);
BCdAB = (B-C1)/(B-A);
ADdXA = (D-A)/(X-A);
BCdCD = (D-C1)/(B-C1);

PlotPattern = Dbar > C1bar;

//--------- Ve duong ------------------
if(LastValue(Plotpattern) AND be)
{
                ColorX = colorRed;
        // Ve duong XA, AB, BC
                Plot( LineArray(LastValue(Xbar),LastValue(X),LastValue(Abar),LastValue(A)),"",ColorX ,styleThick);
                Plot(LineArray(LastValue(Abar),LastValue(A),LastValue(Bbar),LastValue(B)),"",ColorX ,styleThick);
                Plot(LineArray(LastValue(Bbar),LastValue(B),LastValue(C1bar),LastValue(C1)),"",ColorX ,styleThick);
                Plot(LineArray(LastValue(C1bar),LastValue(C1),LastValue(Dbar),LastValue(D)),"",ColorX ,styleThick);
                Plot(LineArray(LastValue(Xbar),LastValue(X),LastValue(Bbar),LastValue(B)),"",ColorX ,styleDashed);
                Plot(LineArray(LastValue(Xbar),LastValue(X),LastValue(Abar),LastValue(A)),"",ColorX ,styleThick);
                Plot(LineArray(LastValue(Abar),LastValue(A),LastValue(C1bar),LastValue(C1)),"",ColorX ,styleDashed);
                Plot(LineArray(LastValue(Bbar),LastValue(B),LastValue(Dbar),LastValue(D)),"",ColorX ,styleDashed);
                Plot(LineArray(LastValue(Xbar),LastValue(X),LastValue(Dbar),LastValue(D)),"",ColorX ,styleDashed);

        // Viet cac gia tri Fibo tren duong XA, AB, BC
                PlotText(NumToStr(LastValue(ABdXA),1.2),(LastValue(Bbar)+LastValue(Xbar))/2,(LastValue(B)+LastValue(X))/2,ColorX );
                PlotText(NumToStr(LastValue(BCdAB),1.2),(LastValue(C1bar)+LastValue(Abar))/2,(LastValue(C1)+LastValue(A))/2,ColorX );
                PlotText(NumToStr(LastValue(BCdCD),1.2) ,(LastValue(Dbar)+LastValue(Bbar))/2,(LastValue(D)+LastValue(B))/2,ColorX );
                PlotText(NumToStr(LastValue(ADdXA),1.2) ,(LastValue(Dbar)+LastValue(Xbar))/2,(LastValue(D)+LastValue(X))/2,ColorX );

        //---------- Viet cac diem X, A, B, C, D: by binhnd---------------------
                xlech                =        -1;
                ylech                 =         1;
                PlotText("X",LastValue(Xbar)        +         xlech,        LastValue(X)        +        ylech,        ColorX );
                PlotText("A",LastValue(Abar)        +         xlech,        LastValue(A)        -        ylech,        ColorX );
                PlotText("B",LastValue(Bbar)        +         xlech,        LastValue(B)        +        ylech,        ColorX );
                PlotText("C",LastValue(C1bar)        +         xlech,        LastValue(C1)        -        ylech,        ColorX );
                PlotText("D",LastValue(Dbar)        +         xlech,        LastValue(D)        +        ylech,        ColorX );

        //--------- Viet thuyet minh mo hinh: by binhnd--------------
                if (strPattern!="")
                        {
                                strPattern         =         "Pattern: " + strPattern;
                                toadoaX                =        (LastValue(Dbar)+LastValue(Xbar))/2;
                                toadoY                        =        (LastValue(D)+LastValue(X))/2;

                                PlotText(strPattern,toadoaX,toadoY+1,ColorX );
                        }
       
}                        // end of VE DUONG CHO MO HINH BEARISH BAT, GARTLEY, BUTTERFLY, CRAB




//=================================
// Show diem ho^~ tro. va` khang' cu. ko?
//=================================

plotFractals = ParamToggle("Plot Fractals","Off|On",1);                               
if(PlotFractals)
{
        PlotShapes(shapeSmallCircle*P1,colorRed,0,H,10);
        PlotShapes(shapeSmallCircle*V1,colorBlue,0,L,-10);
}



//==============================================
// DAT DIEU KIEN cho TIM KIEM BULL
//==============================================
dkBull = False;
ListBull                 =         ParamList("Type of Bullish", "None|AB=CD|Gartley|Butterfly|Bat|Crab|All Patterns", 6);
        if         (        ListBull == "None"                )                dkBull =         True;
        if (        ListBull =="AB=CD"                )                 dkBull        =        BullABCD ;
        if (        ListBull =="Gartley"                )                 dkBull        =        BullGartley ;
        if (        ListBull =="Butterfly"        )                 dkBull        =        BullButterfly ;
        if (        ListBull =="Bat"                        )                 dkBull        =        BullBat ;
        if (        ListBull =="Crab"                        )                 dkBull        =        BullCrab ;
        if (        ListBull =="All Patterns")                 dkBull        =        (BullABCD) OR (BullGartley) OR (BullButterfly ) OR (BullBat ) OR (BullCrab);

//==============================================
// DAT DIEU KIEN cho TIM KIEM BEAR
//==============================================
dkBear = False;
ListBear                 =         ParamList("Type of Bearish", "None|AB=CD|Gartley|Butterfly|Bat|Crab|All Patterns", 0);
        if         (        ListBear == "None"                )                dkBear =         True;
        if (        ListBear =="AB=CD"                )                 dkBear        =        BearABCD ;
        if (        ListBear =="Gartley"                )                 dkBear        =        BearGartley ;
        if (        ListBear =="Butterfly"        )                 dkBear        =        BearButterfly ;
        if (        ListBear =="Bat"                        )                 dkBear        =        BearBat ;
        if (        ListBear =="Crab"                        )                 dkBear =        BearCrab ;
        if (        ListBear =="All Patterns")                 dkBear =        (BearABCD ) OR (BearGartley ) OR (BearButterfly ) OR (BearBat ) OR (BearCrab );
//===============================

AddColumn(V,"Volume",1.0);
Filter = (dkBull) AND (dkBear);

good88

這程式碼有啥用途呢???

aaqqww93

試了以後會劃線

謝謝分享好東西

晚上再來把這些機馬都打包一下

_SECTION_BEGIN("Harmonic Patterns");

雞馬

_SECTION_END();

打包一下~阿不然要刪會很麻煩

偶想請問GOOD大~這兩組機馬差異點在哪裡?
因為我RUN來的結果都一樣~所以在想說那是有版本之分嗎?(我的有些上版本號碼)

1. 
   
2. 
   
3. _SECTION_BEGIN("Harmonic_binhnd_v1.4");
   
4. 
   
5. /*                     HARMONIC PATTERN DETECTION                        
   
6. 
   
7. 
   
8. Automatic Detection of Harmonic Patterns - Gartley, Bat, Butterfly and Crab.
   
9. 
   
10. Zig Zag is not used in this AFL. It is based on fractals
    
11. 
    
12. Contact - joy.edakad@gmail.com
    
13. 
    
14. */
    
15. 
    
16. 
    
17. 
    
18. _SECTION_BEGIN("Gartley");
    
19. 
    
20. GBmin = Param("Swing B Min.",0.55,0.3,1,0.01);
    
21. GBmax = Param("Swing B Max.",0.72,0.4,1,0.01);
    
22. GCmin = Param("Swing C Min.",0.38,0.3,1.27,0.01);
    
23. GCmax = Param("Swing C Max.",1.0,0.4,1.27,0.01);
    
24. GDmin = Param("Swing D Min.(XA)",0.55,0.3,1,0.01);
    
25. GDmax = Param("Swing D Max.(XA)",1.0,0.4,1.0,0.01);
    
26. 
    
27. _SECTION_END();
    
28. 
    
29. _SECTION_BEGIN("Bat");
    
30. 
    
31. BatBmin = Param("Swing B Min.",0.38,0.3,1,0.01);
    
32. BatBmax = Param("Swing B Max.",0.55,0.4,1,0.01);
    
33. BatCmin = Param("Swing C Min.",0.38,0.3,1.62,0.01);
    
34. BatCmax = Param("Swing C Max.",1.27,0.4,1.62,0.01);
    
35. BatDmin = Param("Swing D Min.(XA)",0.5,0.3,1,0.01);
    
36. BatDmax = Param("Swing D Max.(XA)",1.0,0.4,1.0,0.01);
    
37. 
    
38. _SECTION_END();
    
39. 
    
40. _SECTION_BEGIN("Butterfly");
    
41. 
    
42. BtBmin = Param("Swing B Min.",0.55,0.3,1,0.01);
    
43. BtBmax = Param("Swing B Max.",0.9,0.4,1,0.01);
    
44. BtCmin = Param("Swing C Min.",0.38,0.3,1.62,0.01);
    
45. BtCmax = Param("Swing C Max.",1.27,0.4,1.62,0.01);
    
46. BtDmin = Param("Swing D Min.(XA)",1,1,1.8,0.01);
    
47. BtDmax = Param("Swing D Max.(XA)",1.8,1,1.8,0.01);                                                // Max XA of Butterfly = (1.0 - 1.618)
    
48. 
    
49. _SECTION_END();
    
50. 
    
51. _SECTION_BEGIN("Crab");
    
52. 
    
53. CBmin = Param("Swing B Min.",0.38,0.3,1,0.01);
    
54. CBmax = Param("Swing B Max.",0.65,0.4,1,0.01);
    
55. CCmin = Param("Swing C Min.",0.38,0.3,1.62,0.01);
    
56. CCmax = Param("Swing C Max.",1.270,0.4,1.62,0.01);
    
57. CDmin = Param("Swing D Min.(XA)",1.25,1,1.8,0.01);
    
58. CDmax = Param("Swing D Max.(XA)",1.8,1,2,0.01);
    
59. 
    
60. _SECTION_END();
    
61. 
    
62. _SECTION_BEGIN("AB=CD");
    
63. 
    
64. abcd_Cmin = Param("Swing C Min.",0.3,                0.3        ,        1,                0.01);
    
65. abcd_Cmax = Param("Swing C Max.",0.8,                0.8        ,        1,                0.01);
    
66. abcd_Dmin = Param("Swing D Min.",1.2,                1,                2.7,        0.01);
    
67. abcd_Dmax = Param("Swing D Max.",3.7,                1,                4,                0.01);
    
68. 
    
69. _SECTION_END();
    
70. 
    
71. _SECTION_BEGIN("Patterns");
    
72.        
    
73. //strength = Param("Strength",5,2,15,1);                                                                        // Best use: 3, 4, 5
    
74. strength = Param("BARS of each LINE",5,2,15,1);                                                        // So luong bar cho moi duong XA, AB, BC,
    
75. bu = ParamToggle("Bullish Pattern","Off|On",1);                                                        // So bar/lines se quyet dinh. mo^ hinh` duoc ve the' nao`
    
76. be = ParamToggle("Bearish Pattern","Off|On",1);
    
77. 
    
78. bi = Cum(1)-1;
    
79. 
    
80. function GetTop(bars)                                                                                                                 // Lay' gia' tri cao nhat' = di?nh
    
81.         {
    
82.                 Top = H == HHV(H,2*bars) AND Ref(HHV(H,bars),bars) < H;
    
83.                 Top = Top AND LastValue(bi)-ValueWhen(Top,bi) > bars;
    
84.                 return Top;
    
85.         }
    
86. 
    
87. function GetValley(bars)                                                                                                        // La'y gia tri thap' nhat' = day'
    
88.         {
    
89.                 Valley = L == LLV(L,2*bars) AND Ref(LLV(L,bars),bars) > L;
    
90.                 Valley = Valley AND LastValue(bi)-ValueWhen(Valley,bi) > bars;
    
91.                 return Valley;
    
92.         }
    
93. 
    
94. 
    
95. // Build fractals array
    
96. 
    
97. P1 = GetTop(strength);                                                                                // so' bar cho 1 duong` XA, AB, BC, CD
    
98. V1 = GetValley(Strength);
    
99. 
    
100. P1 = IIf(P1,IIf(ValueWhen(P1,bi,2) < ValueWhen(V1,bi),P1,IIf(ValueWhen(P1,H,2) > H,False,P1)),P1);
     
101. P1 = IIf(P1 AND ValueWhen(P1,bi,0) > bi,IIf(ValueWhen(P1,bi,0) < ValueWhen(V1,bi,0),IIf(ValueWhen(P1,H,0) >= H,False,P1),P1),P1);
     
102. V1 = IIf(V1,IIf(ValueWhen(V1,bi,2) < ValueWhen(P1,bi),V1,IIf(ValueWhen(V1,L,2)<L,False,V1)),V1);
     
103. V1 = IIf(V1 AND ValueWhen(V1,bi,0) > bi ,IIf(ValueWhen(V1,bi,0) < ValueWhen(P1,bi,0),IIf(ValueWhen(V1,L,0) <= L, False,V1),V1),V1);
     
104. 
     
105. 
     
106. P1H1 = ValueWhen(P1,H);
     
107. P1Bar1 = ValueWhen(P1,bi);
     
108. P1H2 = ValueWhen(P1,H,2);
     
109. P1Bar2 = ValueWhen(P1,bi,2);
     
110. V1L1 = ValueWhen(V1,L);
     
111. V1Bar1 = ValueWhen(V1,bi);
     
112. V1L2 = ValueWhen(V1,L,2);
     
113. V1Bar2 = ValueWhen(V1,bi,2);
     
114. 
     
115. 
     
116. //============================================
     
117. //                                BULLISH PATTERNS
     
118. //============================================
     
119. /*
     
120.         Mo hinh Bullish:
     
121.         A        =        P1H2
     
122.         B        =        V1L1
     
123.         C        =        P1H1
     
124.         X        =        V1L2
     
125. 
     
126. */
     
127. 
     
128. PTvalid = (P1Bar1 > V1Bar1 AND V1Bar1 > P1Bar2 AND P1bar2 > V1Bar2) AND P1; // Peaks and troughs are in order
     
129. 
     
130. myAX                        =        P1H2-V1L2;
     
131. myAB                        =        P1H2-V1L1;
     
132. myBC                        =        P1H1-V1L1;
     
133. 
     
134. myAB_AX                =        myAB/ myAX;
     
135. myBC_AB                =        myBC/ myAB;       
     
136. 
     
137. BullGartley4                 = PTvalid         AND         (        myAB_AX > GBmin        )                 AND (        myAB_AX < GBmax        )
     
138.                                                                 AND          (        myBC_AB > GCMin         )                 AND (        myBC_AB < GCMax        );
     
139. 
     
140. BullBat4                         = PTvalid         AND         (        myAB_AX > BatBmin )                 AND (        myAB_AX < BatBmax        )
     
141.                                                                 AND         (        myBC_AB > BatCMin )                 AND (        myBC_AB < BatCMax        );
     
142. 
     
143. BullButterfly4         = PTvalid         AND         (        myAB_AX > BtBmin )                 AND (        myAB_AX < BtBMax        )
     
144.                                                                 AND          (        myBC_AB > BtCmin )                 AND (        myBC_AB < BtCmin         );
     
145. 
     
146. BullCrab4                         = PTvalid         AND         (        myAB_AX > CBmin )                          AND (        myAB_AX < CBmax         )
     
147.                                                                 AND          (        myBC_AB > CCmin )                 AND (        myBC_AB < CCmax        );
     
148. 
     
149. BullABCD4                        = PTvalid AND         (        myBC_AB > abcd_Cmin)         AND (        myBC_AB < abcd_Cmax        );
     
150. 
     
151. strPattern = "";
     
152. 
     
153. //==================================================
     
154. //                                 BULLISH ABCD
     
155. //         Bullish pattern found. D retracement level is not evaluated
     
156. //==================================================
     
157.         dHigh                =                HighestSince(BullABCD4,H);                                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
     
158.         dLow                 =                 LowestSince(BullABCD4,L);
     
159.        
     
160.         myC                        =                ValueWhen(BullABCD4,P1H1);
     
161.         myB                        =                ValueWhen(BullABCD4,V1L1);
     
162.         myA                        =                ValueWhen(BullABCD4,P1H2);
     
163.         myX                        =                ValueWhen(BullABCD4,V1L2);
     
164.         myCB                =                myC - myB;
     
165. 
     
166.         my_d_min        =                myCB        *        abcd_DMin ;                                        // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
     
167.         my_d_max        =                myCB        *        abcd_DMax ;
     
168.         my_Cd_min        =                myC - my_d_min;                                           // Khoang dich chuyen cua duong Ad con.
     
169.         my_Cd_max        =                myC - my_d_max;
     
170. 
     
171. BullABCD                 =                 IIf(                ( dLow  <        my_Cd_min        )        AND                ( dLow        > my_Cd_max )       
     
172.                                                                 AND        ( dHigh        <=        myC                )        AND                ( dLow        ==        L),
     
173.                                                                 True, False
     
174.                                                         );
     
175. 
     
176. BullABCD                =                BullABCD        AND (dLow                <        myB);
     
177. 
     
178. 
     
179. //==================================================
     
180. //                                 BULLISH GARTLEY
     
181. //==================================================
     
182.         dHigh                =                HighestSince(BullGartley4,H);                                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
     
183.         dLow                 =                 LowestSince(BullGartley4,L);
     
184. 
     
185.         myC                        =                ValueWhen(BullGartley4,P1H1);
     
186.         myB                        =                ValueWhen(BullGartley4,V1L1);
     
187.         myA                        =                ValueWhen(BullGartley4,P1H2);
     
188.         myX                        =                ValueWhen(BullGartley4,V1L2);
     
189.         myAX                =                myA - myX;
     
190. 
     
191.         my_d_min        =                myAX        *        GDmin;                                                        // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
     
192.         my_d_max        =                myAX        *        GDMax;
     
193.         my_Ad_min        =                myA - my_d_min;                                                        // Khoang dich chuyen cua duong Ad con.
     
194.         my_Ad_max        =                myA - my_d_max;
     
195. 
     
196. BullGartley         =                 IIf(                ( dLow  <        my_Ad_min        )        AND                ( dLow        > my_Ad_max )       
     
197.                                                                 AND        ( dHigh        <=        myC                )        AND                ( dLow        ==        L),
     
198.                                                                 True, False
     
199.                                                         );
     
200. BullGartley         =                BullGartley         AND (dLow                <        myB);                                                // diem D thap' hon B
     
201. strPattern         =                WriteIf(BullGartley,"BULLISH GARTLEY",strPattern);
     
202. 
     
203. 
     
204. 
     
205. //==================================================
     
206. //                                 BULLISH BAT
     
207. //==================================================
     
208.         dHigh                =                HighestSince(BullBat4,H);                                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
     
209.         dLow                 =                 LowestSince(BullBat4,L);       
     
210. 
     
211.         myC                        =                ValueWhen(BullBat4,P1H1);
     
212.         myB                        =                ValueWhen(BullBat4,V1L1);
     
213.         myA                        =                ValueWhen(BullBat4,P1H2);
     
214.         myX                        =                ValueWhen(BullBat4,V1L2);
     
215.         myAX                =                myA - myX;
     
216. 
     
217.         my_d_min        =                myAX        *        BatDmin;                                                // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
     
218.         my_d_max        =                myAX        *        BatDmax ;
     
219.         my_Ad_min        =                myA - my_d_min;                                                        // Khoang dich chuyen cua duong Ad con.
     
220.         my_Ad_max        =                myA - my_d_max;
     
221. 
     
222. BullBat                 =                 IIf(                ( dLow  <        my_Ad_min        )        AND                ( dLow        > my_Ad_max )       
     
223.                                                                 AND        ( dHigh        <=        myC                )        AND                ( dLow        ==        L),
     
224.                                                                 True, False
     
225.                                                         );
     
226. BullBat                 =                BullBat         AND (dLow                <        myB);                        // diem d thap hon diem B
     
227. strPattern         =                WriteIf(BullBat,"BULLISH BAT",strPattern);
     
228. 
     
229. 
     
230. //==================================================
     
231. //                                 BULLISH CRAB - CUA
     
232. //==================================================
     
233.         dHigh                =                HighestSince(BullCrab4,H);                                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
     
234.         dLow                 =                 LowestSince(BullCrab4,L);
     
235. 
     
236.         myC                        =                ValueWhen(BullCrab4,P1H1);
     
237.         myB                        =                ValueWhen(BullCrab4,V1L1);
     
238.         myA                        =                ValueWhen(BullCrab4,P1H2);
     
239.         myX                        =                ValueWhen(BullCrab4,V1L2);
     
240.         myAX                =                myA - myX;
     
241. 
     
242.         my_d_min        =                myAX        *        CDmin ;                                        // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
     
243.         my_d_max        =                myAX        *        CDmax ;
     
244.         my_Ad_min        =                myA - my_d_min;                                                // Khoang dich chuyen cua duong Ad con.
     
245.         my_Ad_max        =                myA - my_d_max;
     
246. 
     
247. BullCrab                 =                 IIf(                ( dLow  <        my_Ad_min        )        AND                ( dLow        > my_Ad_max )       
     
248.                                                                 AND        ( dHigh        <=        myC                )        AND                ( dLow        ==        L),
     
249.                                                                 True, False
     
250.                                                         );
     
251. BullCrab                 =                BullCrab         AND (dLow                <        myX);                                        // diem D thap' hon X
     
252. strPattern         =                WriteIf(BullCrab ,"BULLISH CRAB",strPattern);
     
253. 
     
254. 
     
255. //==================================================
     
256. //                                 BULLISH  BUTTTERFLY
     
257. //==================================================
     
258.         dHigh                =                HighestSince(BullButterfly4,H);                                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
     
259.         dLow                 =                 LowestSince(BullButterfly4,L);
     
260. 
     
261.         myC                        =                ValueWhen(BullButterfly4,P1H1);
     
262.         myB                        =                ValueWhen(BullButterfly4,V1L1);
     
263.         myA                        =                ValueWhen(BullButterfly4,P1H2);
     
264.         myX                        =                ValueWhen(BullButterfly4,V1L2);
     
265.         myAX                =                myA - myX;
     
266. 
     
267.         my_d_min        =                myAX        *        BtDmin ;                                                                // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
     
268.         my_d_max        =                myAX        *        BtDmax ;
     
269.         my_Ad_min        =                myA - my_d_min;                                                                        // Khoang dich chuyen cua duong Ad con.
     
270.         my_Ad_max        =                myA - my_d_max;
     
271. 
     
272. BullButterfly         =                 IIf(                ( dLow  <        my_Ad_min        )        AND                ( dLow        > my_Ad_max )       
     
273.                                                                         AND        ( dHigh        <=        myC                )        AND                ( dLow        ==        L),
     
274.                                                                 True, False
     
275.                                                                 );
     
276. BullButterfly         =                BullButterfly         AND (dLow                <        myX);                                        // diem D thap' hon X
     
277. strPattern                 =                WriteIf(BullButterfly ,"BULLISH BUTTERFLY",strPattern);
     
278. 
     
279. 
     
280. 
     
281. //==========================================================
     
282. //   VE DUONG CHO MO HINH BULLISH ABCB
     
283. //==========================================================
     
284. BullHar4         =  BullABCD4;
     
285. BullHar         =  BullABCD;
     
286. 
     
287. Point4 = IIf(BullHar,ValueWhen(BullHar4,bi),Null);
     
288. BullHar = IIf(BullHar, IIf(Point4 == ValueWhen(BullHar,point4,0) AND ValueWhen(BullHar,bi,0) > bi ,False,BullHar),BullHar);
     
289. 
     
290. A = ValueWhen(BullHar4,P1H2);
     
291. Abar = ValueWhen(BullHar4,P1bar2);
     
292. B = ValueWhen(BullHar4,V1L1);
     
293. Bbar = ValueWhen(BullHar4,V1bar1);
     
294. C1 = ValueWhen(BullHar4,P1H1);
     
295. C1bar = ValueWhen(BullHar4,P1bar1);
     
296. D = ValueWhen(BullHar,L);
     
297. Dbar = ValueWhen(BullHar,bi);
     
298. 
     
299. BCdAB = (C1-B)/(A-B);
     
300. BCdCD = (C1-D)/(C1-B);
     
301. 
     
302. PlotPattern = Dbar > C1bar;
     
303. 
     
304. if(LastValue(PlotPattern) AND bu)
     
305. {
     
306.                 ColorX = colorGreen;
     
307.         // Ve cac duong AB, BC, CD
     
308.                 Plot(LineArray(LastValue(Abar),LastValue(A),LastValue(Bbar),LastValue(B)),"",ColorX ,styleThick);
     
309.                 Plot(LineArray(LastValue(Bbar),LastValue(B),LastValue(C1bar),LastValue(C1)),"",ColorX ,styleThick);
     
310.                 Plot(LineArray(LastValue(C1bar),LastValue(C1),LastValue(Dbar),LastValue(D)),"",ColorX ,styleThick);
     
311.                 Plot(LineArray(LastValue(Abar),LastValue(A),LastValue(C1bar),LastValue(C1)),"",ColorX ,styleDashed);
     
312.                 Plot(LineArray(LastValue(Bbar),LastValue(B),LastValue(Dbar),LastValue(D)),"",ColorX ,styleDashed);
     
313. 
     
314.         // Ve cac gia tri Fibo
     
315.                 PlotText(NumToStr(LastValue(BCdAB),1.2),(LastValue(C1bar)+LastValue(Abar))/2,(LastValue(C1)+LastValue(A))/2,ColorX );
     
316.                 PlotText(NumToStr(LastValue(BCdCD),1.2),(LastValue(Bbar)+LastValue(Dbar))/2,(LastValue(B)+LastValue(D))/2,ColorX );
     
317. 
     
318.         //---------- Viet cac diem X, A, B, C, D: by binhnd---------------------
     
319.                 xlech                =        0;
     
320.                 ylech                 =         2;
     
321.                 PlotText("A",LastValue(Abar)        +         xlech,        LastValue(A)        +        ylech,        ColorX );
     
322.                 PlotText("B",LastValue(Bbar)        +         xlech,        LastValue(B)        -        ylech,        ColorX );
     
323.                 PlotText("C",LastValue(C1bar)        +         xlech,        LastValue(C1)        +        ylech,        ColorX );
     
324.                 PlotText("D",LastValue(Dbar)        +         xlech,        LastValue(D)        -        ylech,        ColorX );
     
325. 
     
326.         //--------- Viet thuyet minh mo hinh: by binhnd--------------
     
327.                 if (strPattern!="")  
     
328.                 {
     
329.                         myStr                        =        "Pattern: BULLISH AB=CD";
     
330.                         toadoX                        =        LastValue(Abar);
     
331.                         toadoY                        =        LastValue(D);
     
332. 
     
333.                         PlotText(myStr,toadoX,toadoY,ColorX );
     
334.                 }
     
335. 
     
336. }                        //        end of Ve duong` bullish abcd
     
337. 
     
338. 
     
339. 
     
340. //==========================================================
     
341. //   VE DUONG CHO MO HINH BULLISH BAT, GARTLEY, BUTTERFLY, CRAB
     
342. //==========================================================
     
343. 
     
344. 
     
345. BullHar4 = BullGartley4 OR BullButterfly4 OR BullBat4 OR BullCrab4 ;
     
346. BullHar = BullGartley OR BullButterfly OR BullBat OR BullCrab;
     
347. 
     
348. Point4 = IIf(BullHar,ValueWhen(BullHar4,bi),Null);
     
349. BullHar = IIf(BullHar, IIf(Point4 == ValueWhen(BullHar,point4,0) AND ValueWhen(BullHar,bi,0) > bi ,False,BullHar),BullHar);
     
350. 
     
351. X = ValueWhen(BullHar4,V1L2);
     
352. Xbar = ValueWhen(BullHar4,V1Bar2);
     
353. A = ValueWhen(BullHar4,P1H2);
     
354. Abar = ValueWhen(BullHar4,P1bar2);
     
355. B = ValueWhen(BullHar4,V1L1);
     
356. Bbar = ValueWhen(BullHar4,V1bar1);
     
357. C1 = ValueWhen(BullHar4,P1H1);
     
358. C1bar = ValueWhen(BullHar4,P1bar1);
     
359. D = ValueWhen(BullHar,L);
     
360. Dbar = ValueWhen(BullHar,bi);
     
361. 
     
362. ABdXA = (A-B)/(A-X);
     
363. BCdAB = (C1-B)/(A-B);
     
364. ADdXA = (A-D)/(A-X);
     
365. BCdCD = (C1-D)/(C1-B);
     
366. 
     
367. PlotPattern = Dbar > C1bar;
     
368. 
     
369. if(LastValue(PlotPattern) AND bu)
     
370. {
     
371.                         ColorX        = colorBlue;
     
372.                 // Ve cac duong XA, AB, BC, CD
     
373.                         Plot( LineArray(LastValue(Xbar),LastValue(X),LastValue(Abar),LastValue(A)),"",ColorX,styleThick);
     
374.                         Plot(LineArray(LastValue(Abar),LastValue(A),LastValue(Bbar),LastValue(B)),"",ColorX,styleThick);
     
375.                         Plot(LineArray(LastValue(Bbar),LastValue(B),LastValue(C1bar),LastValue(C1)),"",ColorX,styleThick);
     
376.                         Plot(LineArray(LastValue(C1bar),LastValue(C1),LastValue(Dbar),LastValue(D)),"",ColorX,styleThick);
     
377.                         Plot(LineArray(LastValue(Xbar),LastValue(X),LastValue(Bbar),LastValue(B)),"",ColorX,styleDashed);
     
378.                         Plot(LineArray(LastValue(Xbar),LastValue(X),LastValue(Abar),LastValue(A)),"",ColorX,styleThick);
     
379.                         Plot(LineArray(LastValue(Abar),LastValue(A),LastValue(C1bar),LastValue(C1)),"",ColorX,styleDashed);
     
380.                         Plot(LineArray(LastValue(Bbar),LastValue(B),LastValue(Dbar),LastValue(D)),"",ColorX,styleDashed);
     
381.                         Plot(LineArray(LastValue(Xbar),LastValue(X),LastValue(Dbar),LastValue(D)),"",ColorX,styleDashed);
     
382. 
     
383.                 // Ve cac gia tri Fibo
     
384.                         PlotText(NumToStr(LastValue(ABdXA),1.2),(LastValue(Bbar)+LastValue(Xbar))/2,(LastValue(B)+LastValue(X))/2,ColorX);
     
385.                         PlotText(NumToStr(LastValue(BCdAB),1.2),(LastValue(C1bar)+LastValue(Abar))/2,(LastValue(C1)+LastValue(A))/2,ColorX);
     
386.                         PlotText(NumToStr(LastValue(ADdXA),1.2) ,(LastValue(Dbar)+LastValue(Xbar))/2,(LastValue(D)+LastValue(X))/2,ColorX);
     
387.                         PlotText(NumToStr(LastValue(BCdCD),1.2),(LastValue(Bbar)+LastValue(Dbar))/2,(LastValue(B)+LastValue(D))/2,ColorX);
     
388. 
     
389.                 //---------- Viet cac diem X, A, B, C, D: by binhnd---------------------
     
390.                         xlech                =        0;
     
391.                         ylech                 =         2;
     
392.                         PlotText("X",LastValue(Xbar)        +         xlech,        LastValue(X)        -        ylech,        ColorX);
     
393.                         PlotText("A",LastValue(Abar)        +         xlech,        LastValue(A)        +        ylech,        ColorX);
     
394.                         PlotText("B",LastValue(Bbar)        +         xlech,        LastValue(B)        -        ylech,        ColorX);
     
395.                         PlotText("C",LastValue(C1bar)        +         xlech,        LastValue(C1)        +        ylech,        ColorX);
     
396.                         PlotText("D",LastValue(Dbar)        +         xlech,        LastValue(D)        -        ylech,        ColorX);
     
397. 
     
398.                 //--------- Viet thuyet minh mo hinh: by binhnd--------------
     
399.                         if (strPattern!="")  
     
400.                         {
     
401.                                 strPattern         =         "Pattern: " + strPattern;
     
402.                                 toadoX                        =        (LastValue(Dbar)+LastValue(Xbar))/2;
     
403.                                 toadoY                        =        (LastValue(D)+LastValue(X))/2;
     
404. 
     
405.                                 PlotText(strPattern,toadoX,toadoY-2,ColorX);
     
406.                         }
     
407. 
     
408. }                        // end of Ve duong cho cac mo hinh Crab, Butterfly, Bat
     
409. 
     
410. 
     
411. //=============================================================
     
412. //                                BEARISH PATTERNS
     
413. //=============================================================
     
414. 
     
415. PTvalid = (V1Bar1 > P1Bar1 AND P1Bar1 > V1Bar2 AND V1Bar2 > P1Bar2) AND V1;
     
416. 
     
417. /*=====================
     
418.                 X         =         P1H2                                         Trong mo hinh` bear: Die^m X cao hon diem A. MyAX = X-> A
     
419.                 A        =        V1L2
     
420.                 B        =        P1H1
     
421.                 C        =        V1L1
     
422. 
     
423. =======================*/
     
424. myAX                        =        P1H2-V1L2;                               
     
425. myAB                        =        P1H1-V1L2;
     
426. myBC                        =        P1H1-V1L1;
     
427. 
     
428. myAB_AX                =        myAB/ myAX;
     
429. myBC_AB                =        myBC/ myAB;       
     
430. 
     
431. BearGartley4                 = PTvalid         AND         (        myAB_AX > GBmin        )                 AND (        myAB_AX < GBmax        )
     
432.                                                                 AND          (        myBC_AB > GCMin         )                 AND (        myBC_AB < GCMax        );
     
433. 
     
434. BearBat4                         = PTvalid         AND         (        myAB_AX > BatBmin )                 AND (        myAB_AX < BatBmax        )
     
435.                                                                 AND         (        myBC_AB > BatCMin )                 AND (        myBC_AB < BatCMax        );
     
436. 
     
437. BearButterfly4         = PTvalid         AND         (        myAB_AX > BtBmin )                 AND (        myAB_AX < BtBMax        )
     
438.                                                                 AND          (        myBC_AB > BtCmin )                 AND (        myBC_AB < BtCmin         );
     
439. 
     
440. BearCrab4                         = PTvalid         AND         (        myAB_AX > CBmin )                          AND (        myAB_AX < CBmax         )
     
441.                                                                 AND          (        myBC_AB > CCmin )                 AND (        myBC_AB < CCmax        );
     
442. 
     
443. BearABCD4                        = PTvalid AND         (        myBC_AB > abcd_Cmin)         AND (        myBC_AB < abcd_Cmax        );
     
444. 
     
445. strPattern = "";
     
446. 
     
447. 
     
448. 
     
449. //==========================================================
     
450. //                                 BEARISH ABCD
     
451. //         Bearish pattern found. D retracement level is not evaluated
     
452. //==========================================================
     
453.         dHigh                =                HighestSince(BearABCD4,H);                                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
     
454.         dLow                 =                 LowestSince(BearABCD4,L);
     
455.        
     
456.         myA                        =                ValueWhen(BearABCD4,V1L2);
     
457.         myB                        =                ValueWhen(BearABCD4,P1H1);
     
458.         myC                        =                ValueWhen(BearABCD4,V1L1);
     
459.         myCB                =                myB - myC;
     
460. 
     
461.         my_d_min        =                myCB        *        abcd_DMin ;                                        // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
     
462.         my_d_max        =                myCB        *        abcd_DMax ;
     
463.         my_Cd_min        =                myC + my_d_min;                                           // Khoang dich chuyen cua duong Ad con.
     
464.         my_Cd_max        =                myC + my_d_max;
     
465. 
     
466. BearABCD                 =                 IIf(                ( dHigh          >        my_Cd_min        )        AND                ( dHigh        < my_Cd_max )       
     
467.                                                                 AND        ( dLow                >=        myC                        )        AND                ( dHigh        ==        H),
     
468.                                                                 True, False
     
469.                                                         );
     
470. 
     
471. BearABCD                =                BearABCD        AND (dHigh                >        myB);
     
472. 
     
473. //=============================================================
     
474. //                                BEARISH GARTLEY
     
475. //=============================================================
     
476.         dHigh                =                HighestSince(BearGartley4,H);                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
     
477.         dLow                 =                 LowestSince(BearGartley4,L);
     
478. 
     
479.         myX                        =                ValueWhen(BearGartley4,P1H2);
     
480.         myA                        =                ValueWhen(BearGartley4,V1L2);
     
481.         myAX                =                myX - myA;
     
482. 
     
483.         myB                        =                ValueWhen(BearGartley4,P1H1);
     
484.         myC                        =                ValueWhen(BearGartley4,V1L1);
     
485. 
     
486. 
     
487.         my_d_min        =                myAX        *        GDmin;                                                // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
     
488.         my_d_max        =                myAX        *        GDMax;
     
489.         my_Ad_min        =                myA         +         my_d_min;                                        // Khoang dich chuyen cua duong Ad con.
     
490.         my_Ad_max        =                myA         +         my_d_max;
     
491. 
     
492. BearGartley         =                 IIf(                ( dHigh        >        my_Ad_min        )        AND                ( dHigh        < my_Ad_max )       
     
493.                                                                 AND        ( dLow                >=        myC                        )        AND                ( dHigh        ==        H),
     
494.                                                                 True, False
     
495.                                                         );
     
496. BearGartley         =                BearGartley         AND (dHigh                >        myB);                                                // diem D cao hon B
     
497. strPattern         =                WriteIf(BearGartley ,"BEARISH GARTLEY",strPattern);
     
498. 
     
499. //=============================================================
     
500. //                                BEARISH BAT
     
501. //=============================================================
     
502.         dHigh                =                HighestSince(BearBat4,H);                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
     
503.         dLow                 =                 LowestSince(BearBat4,L);
     
504. 
     
505.         myX                        =                ValueWhen(BearBat4,P1H2);
     
506.         myA                        =                ValueWhen(BearBat4,V1L2);
     
507.         myAX                =                myX - myA;
     
508. 
     
509.         myB                        =                ValueWhen(BearBat4,P1H1);
     
510.         myC                        =                ValueWhen(BearBat4,V1L1);
     
511. 
     
512. 
     
513.         my_d_min        =                myAX        *        BatDmin ;                                                // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
     
514.         my_d_max        =                myAX        *        BatDMax ;
     
515.         my_Ad_min        =                myA         +         my_d_min;                                        // Khoang dich chuyen cua duong Ad con.
     
516.         my_Ad_max        =                myA         +         my_d_max;
     
517. 
     
518. BearBat                 =                 IIf(                ( dHigh        >        my_Ad_min        )        AND                ( dHigh        < my_Ad_max )       
     
519.                                                                 AND        ( dLow                >=        myC                        )        AND                ( dHigh        ==        H),
     
520.                                                                 True, False
     
521.                                                         );
     
522. BearBat                 =                BearBat         AND (dHigh                >        myB);                                                // diem D cao hon B
     
523. strPattern         =                WriteIf(BearBat ,"BEARISH BAT",strPattern);
     
524. 
     
525. 
     
526. //=============================================================
     
527. //                                BEARISH BUTTERFLY
     
528. //=============================================================
     
529.         dHigh                =                HighestSince(BearButterfly4,H);                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
     
530.         dLow                 =                 LowestSince(BearButterfly4,L);
     
531. 
     
532.         myX                        =                ValueWhen(BearButterfly4,P1H2);
     
533.         myA                        =                ValueWhen(BearButterfly4,V1L2);
     
534.         myAX                =                myX - myA;
     
535. 
     
536.         myB                        =                ValueWhen(BearButterfly4,P1H1);
     
537.         myC                        =                ValueWhen(BearButterfly4,V1L1);
     
538. 
     
539. 
     
540.         my_d_min        =                myAX        *        BtDmin ;                                                // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
     
541.         my_d_max        =                myAX        *        BtDmax ;
     
542.         my_Ad_min        =                myA         +         my_d_min;                                                // Khoang dich chuyen cua duong Ad con.
     
543.         my_Ad_max        =                myA         +         my_d_max;
     
544. 
     
545. BearButterfly =                 IIf(                ( dHigh        >        my_Ad_min        )        AND                ( dHigh        < my_Ad_max )       
     
546.                                                                 AND        ( dLow                >=        myC                        )        AND                ( dHigh        ==        H),
     
547.                                                                 True, False
     
548.                                                         );
     
549. BearButterfly        =                BearButterfly         AND (dHigh                >        myX);                                                // diem D cao hon X
     
550. strPattern                =                WriteIf(BearButterfly ,"BEARISH BUTTERFLY",strPattern);
     
551. 
     
552. 
     
553. 
     
554. //=============================================================
     
555. //                                BEARISH CRAB
     
556. //=============================================================
     
557.         dHigh                =                HighestSince(BearCrab4,H);                                // Tinh' gia' tri min, max cua duong Ad. Duong Ad la duong con cua AD
     
558.         dLow                 =                 LowestSince(BearCrab4,L);
     
559. 
     
560.         myX                        =                ValueWhen(BearCrab4,P1H2);
     
561.         myA                        =                ValueWhen(BearCrab4,V1L2);
     
562.         myAX                =                myX - myA;
     
563. 
     
564.         myB                        =                ValueWhen(BearCrab4,P1H1);
     
565.         myC                        =                ValueWhen(BearCrab4,V1L1);
     
566. 
     
567. 
     
568.         my_d_min        =                myAX        *        CDmin ;                                                // Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min
     
569.         my_d_max        =                myAX        *        CDmax ;
     
570.         my_Ad_min        =                myA         +         my_d_min;                                                // Khoang dich chuyen cua duong Ad con.
     
571.         my_Ad_max        =                myA         +         my_d_max;
     
572. 
     
573. BearCrab                 =                 IIf(                ( dHigh        >        my_Ad_min        )        AND                ( dHigh        < my_Ad_max )       
     
574.                                                                 AND        ( dLow                >=        myC                        )        AND                ( dHigh        ==        H),
     
575.                                                                 True, False
     
576.                                                         );
     
577. BearCrab                 =                BearCrab         AND (dHigh                >        myX);                                                // diem D cao hon X
     
578. strPattern         =                WriteIf(BearCrab ,"BEARISH CRAB",strPattern);
     
579. 
     
580. 
     
581. 
     
582. //==========================================================
     
583. //   VE DUONG CHO MO HINH BEARISH ABCD
     
584. //==========================================================
     
585. 
     
586. 
     
587. BearHar4 = BearABCD4;
     
588. BearHar = BearABCD;
     
589. 
     
590. Point4 = IIf(BearHar,ValueWhen(BearHar4,bi),Null);
     
591. BearHar = IIf(BearHar, IIf(Point4 == ValueWhen(BearHar,point4,0) AND ValueWhen(BearHar,bi,0) > bi ,False,BearHar),BearHar);
     
592. 
     
593. A = ValueWhen(BearHar4,V1L2);
     
594. Abar = ValueWhen( BearHar4,V1bar2);
     
595. B = ValueWhen(BearHar4,P1H1);
     
596. Bbar = ValueWhen(BearHar4,P1bar1);
     
597. C1 = ValueWhen(BearHar4,V1L1);
     
598. C1bar = ValueWhen(BearHar4,V1bar1);
     
599. D = ValueWhen(BearHar,H);
     
600. Dbar = ValueWhen(BearHar,bi);
     
601. 
     
602. BCdAB = (B-C1)/(B-A);
     
603. BCdCD = (D-C1)/(B-C1);
     
604. 
     
605. PlotPattern = Dbar > C1bar;
     
606. 
     
607. //--------- Ve duong ------------------
     
608. if(LastValue(Plotpattern) AND be)
     
609. {
     
610.                 ColorX = colorYellow;
     
611.         // Ve duong AB, BC
     
612.                 Plot(LineArray(LastValue(Abar),LastValue(A),LastValue(Bbar),LastValue(B)),"",ColorX ,styleThick);
     
613.                 Plot(LineArray(LastValue(Bbar),LastValue(B),LastValue(C1bar),LastValue(C1)),"",ColorX ,styleThick);
     
614.                 Plot(LineArray(LastValue(C1bar),LastValue(C1),LastValue(Dbar),LastValue(D)),"",ColorX ,styleThick);
     
615.                 Plot(LineArray(LastValue(Abar),LastValue(A),LastValue(C1bar),LastValue(C1)),"",ColorX ,styleDashed);
     
616.                 Plot(LineArray(LastValue(Bbar),LastValue(B),LastValue(Dbar),LastValue(D)),"",ColorX ,styleDashed);
     
617. 
     
618.         // Viet cac gia tri Fibo tren duong AB, BC
     
619.                 PlotText(NumToStr(LastValue(BCdAB),1.2),(LastValue(C1bar)+LastValue(Abar))/2,(LastValue(C1)+LastValue(A))/2,ColorX );
     
620.                 PlotText(NumToStr(LastValue(BCdCD),1.2) ,(LastValue(Dbar)+LastValue(Bbar))/2,(LastValue(D)+LastValue(B))/2,ColorX );
     
621. 
     
622.         //---------- Viet cac diem A, B, C, D: by binhnd---------------------
     
623.                 xlech                =        -1;
     
624.                 ylech                 =         1;
     
625.                 PlotText("A",LastValue(Abar)        +         xlech,        LastValue(A)        -        ylech,        ColorX );
     
626.                 PlotText("B",LastValue(Bbar)        +         xlech,        LastValue(B)        +        ylech,        ColorX );
     
627.                 PlotText("C",LastValue(C1bar)        +         xlech,        LastValue(C1)        -        ylech,        ColorX );
     
628.                 PlotText("D",LastValue(Dbar)        +         xlech,        LastValue(D)        +        ylech,        ColorX );
     
629. 
     
630.         //--------- Viet thuyet minh mo hinh: by binhnd--------------
     
631.                 if (strPattern!="")
     
632.                         {
     
633.                                 myStr                        =        "Pattern: BEARISH AB=CD";
     
634.                                 toadoaX                =        LastValue(Abar);
     
635.                                 toadoY                        =        LastValue(D);
     
636. 
     
637.                                 PlotText(myStr,toadoaX,toadoY+1,ColorX );
     
638.                         }
     
639.        
     
640. }                        // end of VE DUONG CHO MO HINH BEARISH ABCD
     
641. 
     
642. 
     
643. //==========================================================
     
644. //   VE DUONG CHO MO HINH BEARISH BAT, GARTLEY, BUTTERFLY, CRAB
     
645. //==========================================================
     
646. 
     
647. BearHar4 = BearGartley4 OR BearButterfly4 OR BearBat4 OR BearCrab4 ;
     
648. BearHar = BearGartley OR BearButterfly OR BearBat OR BearCrab ;
     
649. 
     
650. Point4 = IIf(BearHar,ValueWhen(BearHar4,bi),Null);
     
651. BearHar = IIf(BearHar, IIf(Point4 == ValueWhen(BearHar,point4,0) AND ValueWhen(BearHar,bi,0) > bi ,False,BearHar),BearHar);
     
652. 
     
653. X = ValueWhen(BearHar4,P1H2);
     
654. Xbar = ValueWhen(BearHar4,P1Bar2);
     
655. A = ValueWhen(BearHar4,V1L2);
     
656. Abar = ValueWhen( BearHar4,V1bar2);
     
657. B = ValueWhen(BearHar4,P1H1);
     
658. Bbar = ValueWhen(BearHar4,P1bar1);
     
659. C1 = ValueWhen(BearHar4,V1L1);
     
660. C1bar = ValueWhen(BearHar4,V1bar1);
     
661. D = ValueWhen(BearHar,H);
     
662. Dbar = ValueWhen(BearHar,bi);
     
663. 
     
664. ABdXA = (B-A)/(X-A);
     
665. BCdAB = (B-C1)/(B-A);
     
666. ADdXA = (D-A)/(X-A);
     
667. BCdCD = (D-C1)/(B-C1);
     
668. 
     
669. PlotPattern = Dbar > C1bar;
     
670. 
     
671. //--------- Ve duong ------------------
     
672. if(LastValue(Plotpattern) AND be)
     
673. {
     
674.                 ColorX = colorRed;
     
675.         // Ve duong XA, AB, BC
     
676.                 Plot( LineArray(LastValue(Xbar),LastValue(X),LastValue(Abar),LastValue(A)),"",ColorX ,styleThick);
     
677.                 Plot(LineArray(LastValue(Abar),LastValue(A),LastValue(Bbar),LastValue(B)),"",ColorX ,styleThick);
     
678.                 Plot(LineArray(LastValue(Bbar),LastValue(B),LastValue(C1bar),LastValue(C1)),"",ColorX ,styleThick);
     
679.                 Plot(LineArray(LastValue(C1bar),LastValue(C1),LastValue(Dbar),LastValue(D)),"",ColorX ,styleThick);
     
680.                 Plot(LineArray(LastValue(Xbar),LastValue(X),LastValue(Bbar),LastValue(B)),"",ColorX ,styleDashed);
     
681.                 Plot(LineArray(LastValue(Xbar),LastValue(X),LastValue(Abar),LastValue(A)),"",ColorX ,styleThick);
     
682.                 Plot(LineArray(LastValue(Abar),LastValue(A),LastValue(C1bar),LastValue(C1)),"",ColorX ,styleDashed);
     
683.                 Plot(LineArray(LastValue(Bbar),LastValue(B),LastValue(Dbar),LastValue(D)),"",ColorX ,styleDashed);
     
684.                 Plot(LineArray(LastValue(Xbar),LastValue(X),LastValue(Dbar),LastValue(D)),"",ColorX ,styleDashed);
     
685. 
     
686.         // Viet cac gia tri Fibo tren duong XA, AB, BC
     
687.                 PlotText(NumToStr(LastValue(ABdXA),1.2),(LastValue(Bbar)+LastValue(Xbar))/2,(LastValue(B)+LastValue(X))/2,ColorX );
     
688.                 PlotText(NumToStr(LastValue(BCdAB),1.2),(LastValue(C1bar)+LastValue(Abar))/2,(LastValue(C1)+LastValue(A))/2,ColorX );
     
689.                 PlotText(NumToStr(LastValue(BCdCD),1.2) ,(LastValue(Dbar)+LastValue(Bbar))/2,(LastValue(D)+LastValue(B))/2,ColorX );
     
690.                 PlotText(NumToStr(LastValue(ADdXA),1.2) ,(LastValue(Dbar)+LastValue(Xbar))/2,(LastValue(D)+LastValue(X))/2,ColorX );
     
691. 
     
692.         //---------- Viet cac diem X, A, B, C, D: by binhnd---------------------
     
693.                 xlech                =        -1;
     
694.                 ylech                 =         1;
     
695.                 PlotText("X",LastValue(Xbar)        +         xlech,        LastValue(X)        +        ylech,        ColorX );
     
696.                 PlotText("A",LastValue(Abar)        +         xlech,        LastValue(A)        -        ylech,        ColorX );
     
697.                 PlotText("B",LastValue(Bbar)        +         xlech,        LastValue(B)        +        ylech,        ColorX );
     
698.                 PlotText("C",LastValue(C1bar)        +         xlech,        LastValue(C1)        -        ylech,        ColorX );
     
699.                 PlotText("D",LastValue(Dbar)        +         xlech,        LastValue(D)        +        ylech,        ColorX );
     
700. 
     
701.         //--------- Viet thuyet minh mo hinh: by binhnd--------------
     
702.                 if (strPattern!="")
     
703.                         {
     
704.                                 strPattern         =         "Pattern: " + strPattern;
     
705.                                 toadoaX                =        (LastValue(Dbar)+LastValue(Xbar))/2;
     
706.                                 toadoY                        =        (LastValue(D)+LastValue(X))/2;
     
707. 
     
708.                                 PlotText(strPattern,toadoaX,toadoY+1,ColorX );
     
709.                         }
     
710.        
     
711. }                        // end of VE DUONG CHO MO HINH BEARISH BAT, GARTLEY, BUTTERFLY, CRAB
     
712. 
     
713. 
     
714. 
     
715. 
     
716. //=================================
     
717. // Show diem ho^~ tro. va` khang' cu. ko?
     
718. //=================================
     
719. 
     
720. plotFractals = ParamToggle("Plot Fractals","Off|On",1);                               
     
721. if(PlotFractals)
     
722. {
     
723.         PlotShapes(shapeSmallCircle*P1,colorRed,0,H,10);
     
724.         PlotShapes(shapeSmallCircle*V1,colorBlue,0,L,-10);
     
725. }
     
726. 
     
727. 
     
728. 
     
729. //==============================================
     
730. // DAT DIEU KIEN cho TIM KIEM BULL
     
731. //==============================================
     
732. dkBull = False;
     
733. ListBull                 =         ParamList("Type of Bullish", "None|AB=CD|Gartley|Butterfly|Bat|Crab|All Patterns", 6);
     
734.         if         (        ListBull == "None"                )                dkBull =         True;
     
735.         if (        ListBull =="AB=CD"                )                 dkBull        =        BullABCD ;
     
736.         if (        ListBull =="Gartley"                )                 dkBull        =        BullGartley ;
     
737.         if (        ListBull =="Butterfly"        )                 dkBull        =        BullButterfly ;
     
738.         if (        ListBull =="Bat"                        )                 dkBull        =        BullBat ;
     
739.         if (        ListBull =="Crab"                        )                 dkBull        =        BullCrab ;
     
740.         if (        ListBull =="All Patterns")                 dkBull        =        (BullABCD) OR (BullGartley) OR (BullButterfly ) OR (BullBat ) OR (BullCrab);
     
741. 
     
742. //==============================================
     
743. // DAT DIEU KIEN cho TIM KIEM BEAR
     
744. //==============================================
     
745. dkBear = False;
     
746. ListBear                 =         ParamList("Type of Bearish", "None|AB=CD|Gartley|Butterfly|Bat|Crab|All Patterns", 0);
     
747.         if         (        ListBear == "None"                )                dkBear =         True;
     
748.         if (        ListBear =="AB=CD"                )                 dkBear        =        BearABCD ;
     
749.         if (        ListBear =="Gartley"                )                 dkBear        =        BearGartley ;
     
750.         if (        ListBear =="Butterfly"        )                 dkBear        =        BearButterfly ;
     
751.         if (        ListBear =="Bat"                        )                 dkBear        =        BearBat ;
     
752.         if (        ListBear =="Crab"                        )                 dkBear =        BearCrab ;
     
753.         if (        ListBear =="All Patterns")                 dkBear =        (BearABCD ) OR (BearGartley ) OR (BearButterfly ) OR (BearBat ) OR (BearCrab );
     
754. //===============================
     
755. 
     
756. AddColumn(V,"Volume",1.0);
     
757. Filter = (dkBull) AND (dkBear);
     
758. 
     
759. _SECTION_END();
     

複製代碼

alexwang7777

請問Good大,紅茶大......
這圖要怎麼看阿!  這是屬於型態辨識嗎!
有看沒懂,可否說明一下如何應用.....

回復 7# alexwang7777


   

綠茶妹

類似ZigZag嗎？

good88

回復 8# 我愛紅茶
我想產生的圖型就是要參考這張的型態!

   

good88

不知小娃站長,可以把第一帖的程式碼(太亂了)刪除嗎?因為跟紅茶大提供的是一樣的!

回復 11# good88


    @@~你可以更改內容就好了~不必刪阿

good88

超過120分鐘後就不能編輯了!

auvitin

我看到Fomulas裡,內容有越南字:mô hình(模形),tính giá trị min max của đường AD(計算AD線的最大値,最小値),Tinh' gia' tri cua duong Ad con. Khi gia' giam? tu` tre^n xuong' thi` max -> min 原文:Khi giá giảm từ trên xuống thì Mã -> min(計算Ad附線的値.當價從上下跌則max -> min )