Three Candles Pattern mt4

ÿþ//+------------------------------------------------------------------+

//|                                        Three Candles Pattern.mq4 |

//|                                               Yuriy Tokman (YTG) |

//|                       https://www.mql5.com/ru/users/satop/seller |

//+------------------------------------------------------------------+

#property copyright "Yuriy Tokman (YTG)"

#property link      "https://www.mql5.com/ru/users/satop/seller"

#property version   "1.00"

#property strict

#property indicator_chart_window

 

input color           InpColorH=clrLime;           // &25B B@5C3>;L=8:0 4;O 1DGL8E A25G59

input color           InpColorL=clrRed;           // &25B B@5C3>;L=8:0 4;O <54256L8E A25G59

input ENUM_LINE_STYLE InpStyle=STYLE_DASHDOTDOT;  // !B8;L ;8=89 B@5C3>;L=8:0 

input int             InpWidth=1;                 // ">;I8=0 ;8=89 B@5C3>;L=8:0 

input bool            InpFill=true;               // 0;82:0 B@5C3>;L=8:0 F25B>< 

input bool            InpBack=true;               // "@5C3>;L=8:0 =0 704=5< ?;0=5 



//+------------------------------------------------------------------+

//| Custom indicator initialization function                         |

//+------------------------------------------------------------------+

int OnInit()

  {

//--- indicator buffers mapping

   

//---

   return(INIT_SUCCEEDED);

  }

//+------------------------------------------------------------------+

//| Expert deinitialization function                                 |

//+------------------------------------------------------------------+

void OnDeinit(const int reason)

  {

//---

   GetDell("Triangl");

//---   

  }

//+------------------------------------------------------------------+

//| Custom indicator iteration function                              |

//+------------------------------------------------------------------+

int OnCalculate(const int rates_total,

                const int prev_calculated,

                const datetime &time[],

                const double &open[],

                const double &high[],

                const double &low[],

                const double &close[],

                const long &tick_volume[],

                const long &volume[],

                const int &spread[])

  {

//---

   int limit=rates_total-prev_calculated;

   if(prev_calculated==0)limit--;

   else  limit++;

   if(limit>rates_total-5)limit=rates_total-5;



   for(int i=limit;i>=0 && !IsStopped();i--)

     {

      if(Close[i+4]<Open[i+4] && Close[i+3]>Open[i+3] && Close[i+2]>Open[i+2] && Close[i+1]>Open[i+1])

       {

        TriangleCreate(0,"Triangle"+TimeToStr(Time[i]),0,

        Time[i+3],_Low(i),Time[i+2],_High(i),Time[i+1],_Low(i),InpColorH,InpStyle,InpWidth,InpFill,InpBack); 

        RectangleCreate(0,"Trianglq"+TimeToStr(Time[i]),0,Time[i+3],_High(i),Time[i+1],_Low(i),InpColorL);               

       }

      if(Close[i+4]>Open[i+4] && Close[i+3]<Open[i+3] && Close[i+2]<Open[i+2] && Close[i+1]<Open[i+1])

       {

        TriangleCreate(0,"Triangla"+TimeToStr(Time[i]),0,

        Time[i+3],_High(i),Time[i+2],_Low(i),Time[i+1],_High(i),InpColorL,InpStyle,InpWidth,InpFill,InpBack);

        RectangleCreate(0,"Trianglw"+TimeToStr(Time[i]),0,Time[i+3],_High(i),Time[i+1],_Low(i),InpColorH);        

       }

     }    

//--- return value of prev_calculated for next call

   return(rates_total);

  }

//+------------------------------------------------------------------+

//+------------------------------------------------------------------+ 

//| C>7405B B@5C3>;L=8: ?> 7040==K< :>>@48=0B0<                      | 

//+------------------------------------------------------------------+ 

bool TriangleCreate(const long            chart_ID=0,        // ID 3@0D8:0 

                    const string          name="Triangle",   // 8<O B@5C3>;L=8:0 

                    const int             sub_window=0,      // =><5@ ?>4>:=0  

                    datetime              time1=0,           // 2@5<O ?5@2>9 B>G:8 

                    double                price1=0,          // F5=0 ?5@2>9 B>G:8 

                    datetime              time2=0,           // 2@5<O 2B>@>9 B>G:8 

                    double                price2=0,          // F5=0 2B>@>9 B>G:8 

                    datetime              time3=0,           // 2@5<O B@5BL59 B>G:8 

                    double                price3=0,          // F5=0 B@5BL59 B>G:8 

                    const color           clr=clrRed,        // F25B B@5C3>;L=8:0 

                    const ENUM_LINE_STYLE style=STYLE_SOLID, // AB8;L ;8=89 B@5C3>;L=8:0 

                    const int             width=1,           // B>;I8=0 ;8=89 B@5C3>;L=8:0 

                    const bool            fill=false,        // 70;82:0 B@5C3>;L=8:0 F25B>< 

                    const bool            back=false,        // =0 704=5< ?;0=5 

                    const bool            selection=false,    // 2K45;8BL 4;O ?5@5<5I5=89 

                    const bool            hidden=true,       // A:@KB 2 A?8A:5 >1J5:B>2 

                    const long            z_order=0)         // ?@8>@8B5B =0 =060B85 <KHLN 

  { 

//--- CAB0=>28< :>>@48=0BK B>G5: ?@82O7:8, 5A;8 >=8 =5 7040=K 

   if(ObjectFind(chart_ID,name)>-1)ObjectDelete(chart_ID,name);

//--- A1@>A8< 7=0G5=85 >H81:8 

   ResetLastError(); 

//--- A>74048< B@5C3>;L=8: ?> 7040==K< :>>@48=0B0< 

   if(!ObjectCreate(chart_ID,name,OBJ_TRIANGLE,sub_window,time1,price1,time2,price2,time3,price3)) 

     { 

      Print(__FUNCTION__, 

            ": =5 C40;>AL A>740BL B@5C3>;L=8:! >4 >H81:8 = ",GetLastError()); 

      return(false); 

     } 

//--- CAB0=>28< F25B B@5C3>;L=8:0 

   ObjectSetInteger(chart_ID,name,OBJPROP_COLOR,clr); 

//--- CAB0=>28< AB8;L ;8=89 B@5C3>;L=8:0 

   ObjectSetInteger(chart_ID,name,OBJPROP_STYLE,style); 

//--- CAB0=>28< B>;I8=C ;8=89 B@5C3>;L=8:0 

   ObjectSetInteger(chart_ID,name,OBJPROP_WIDTH,width); 

//--- >B>1@078< =0 ?5@54=5< (false) 8;8 704=5< (true) ?;0=5 

   ObjectSetInteger(chart_ID,name,OBJPROP_BACK,back); 

//--- 2:;NG8< (true) 8;8 >B:;NG8< (false) @568< 2K45;5=8O B@5C3>;L=8: 4;O ?5@5<5I5=89 

//--- ?@8 A>740=88 3@0D8G5A:>3> >1J5:B0 DC=:F859 ObjectCreate, ?> C<>;G0=8N >1J5:B 

//--- =5;L7O 2K45;8BL 8 ?5@5<5I0BL. =CB@8 65 MB>3> <5B>40 ?0@0<5B@ selection 

//--- ?> C<>;G0=8N @025= true, GB> ?>72>;O5B 2K45;OBL 8 ?5@5<5I0BL MB>B >1J5:B 

   ObjectSetInteger(chart_ID,name,OBJPROP_SELECTABLE,selection); 

   ObjectSetInteger(chart_ID,name,OBJPROP_SELECTED,selection); 

//--- A:@>5< (true) 8;8 >B>1@078< (false) 8<O 3@0D8G5A:>3> >1J5:B0 2 A?8A:5 >1J5:B>2 

   ObjectSetInteger(chart_ID,name,OBJPROP_HIDDEN,hidden); 

//--- CAB0=>28< ?@8>@8B5B =0 ?>;CG5=85 A>1KB8O =060B8O <KH8 =0 3@0D8:5 

   ObjectSetInteger(chart_ID,name,OBJPROP_ZORDER,z_order); 

//--- CA?5H=>5 2K?>;=5=85 

   return(true); 

  } 

//----

//----

void GetDell(string name="ytg")

  {

   string vName;

   for(int i=ObjectsTotal()-1; i>=0;i--)

     {

      vName=ObjectName(i);

      if(StringFind(vName,name)!=-1) ObjectDelete(vName);

     }

  }

//----

double _Low (int i=0)

 {

  double lo =0;

  lo = MathMin(Low[i+3],MathMin(Low[i+2],Low[i+1]));

  return(lo);

 }

//----

double _High (int i=0)

 {

  double hi =0;

  hi = MathMax(High[i+3],MathMax(High[i+2],High[i+1]));

  return(hi);

 }

//----

//+------------------------------------------------------------------+ 

//| C>7405B ?@O<>C3>;L=8: ?> 7040==K< :>>@48=0B0<                    | 

//+------------------------------------------------------------------+ 

bool RectangleCreate(const long            chart_ID=0,        // ID 3@0D8:0 

                     const string          name="Rectangle",  // 8<O ?@O<>C3>;L=8:0 

                     const int             sub_window=0,      // =><5@ ?>4>:=0  

                     datetime              time1=0,           // 2@5<O ?5@2>9 B>G:8 

                     double                price1=0,          // F5=0 ?5@2>9 B>G:8 

                     datetime              time2=0,           // 2@5<O 2B>@>9 B>G:8 

                     double                price2=0,          // F5=0 2B>@>9 B>G:8 

                     const color           clr=clrRed,        // F25B ?@O<>C3>;L=8:0 

                     const ENUM_LINE_STYLE style=STYLE_SOLID, // AB8;L ;8=89 ?@O<>C3>;L=8:0 

                     const int             width=1,           // B>;I8=0 ;8=89 ?@O<>C3>;L=8:0 

                     const bool            fill=true,        // 70;82:0 ?@O<>C3>;L=8:0 F25B>< 

                     const bool            back=true,        // =0 704=5< ?;0=5 

                     const bool            selection=false,    // 2K45;8BL 4;O ?5@5<5I5=89 

                     const bool            hidden=true,       // A:@KB 2 A?8A:5 >1J5:B>2 

                     const long            z_order=0)         // ?@8>@8B5B =0 =060B85 <KHLN 

  { 

//--- CAB0=>28< :>>@48=0BK B>G5: ?@82O7:8, 5A;8 >=8 =5 7040=K 

   if(ObjectFind(chart_ID,name)>-1)ObjectDelete(chart_ID,name); 

//--- A1@>A8< 7=0G5=85 >H81:8 

   ResetLastError(); 

//--- A>74048< ?@O<>C3>;L=8: ?> 7040==K< :>>@48=0B0< 

   if(!ObjectCreate(chart_ID,name,OBJ_RECTANGLE,sub_window,time1,price1,time2,price2)) 

     { 

      Print(__FUNCTION__, 

            ": =5 C40;>AL A>740BL ?@O<>C3>;L=8:! >4 >H81:8 = ",GetLastError()); 

      return(false); 

     } 

//--- CAB0=>28< F25B ?@O<>C3>;L=8:0 

   ObjectSetInteger(chart_ID,name,OBJPROP_COLOR,clr); 

//--- CAB0=>28< AB8;L ;8=89 ?@O<>C3>;L=8:0 

   ObjectSetInteger(chart_ID,name,OBJPROP_STYLE,style); 

//--- CAB0=>28< B>;I8=C ;8=89 ?@O<>C3>;L=8:0 

   ObjectSetInteger(chart_ID,name,OBJPROP_WIDTH,width); 

//--- 2:;NG8< (true) 8;8 >B:;NG8< (false) @568< 70;82:8 ?@O<>C3>;L=8:0 

   ObjectSetInteger(chart_ID,name,OBJPROP_FILL,fill); 

//--- >B>1@078< =0 ?5@54=5< (false) 8;8 704=5< (true) ?;0=5 

   ObjectSetInteger(chart_ID,name,OBJPROP_BACK,back); 

//--- 2:;NG8< (true) 8;8 >B:;NG8< (false) @568< 2K45;5=8O ?@O<>C3>;L=8:0 4;O ?5@5<5I5=89 

//--- ?@8 A>740=88 3@0D8G5A:>3> >1J5:B0 DC=:F859 ObjectCreate, ?> C<>;G0=8N >1J5:B 

//--- =5;L7O 2K45;8BL 8 ?5@5<5I0BL. =CB@8 65 MB>3> <5B>40 ?0@0<5B@ selection 

//--- ?> C<>;G0=8N @025= true, GB> ?>72>;O5B 2K45;OBL 8 ?5@5<5I0BL MB>B >1J5:B 

   ObjectSetInteger(chart_ID,name,OBJPROP_SELECTABLE,selection); 

   ObjectSetInteger(chart_ID,name,OBJPROP_SELECTED,selection); 

//--- A:@>5< (true) 8;8 >B>1@078< (false) 8<O 3@0D8G5A:>3> >1J5:B0 2 A?8A:5 >1J5:B>2 

   ObjectSetInteger(chart_ID,name,OBJPROP_HIDDEN,hidden); 

//--- CAB0=>28< ?@8>@8B5B =0 ?>;CG5=85 A>1KB8O =060B8O <KH8 =0 3@0D8:5 

   ObjectSetInteger(chart_ID,name,OBJPROP_ZORDER,z_order); 

//--- CA?5H=>5 2K?>;=5=85 

   return(true); 

  } 

//----