Gartley Reversal Auto

//+------------------------------------------------------------------+
//|                                        Gartley Reversal Auto.mq4 |
//|                      Copyright © 2006, MetaQuotes Software Corp. |
//|                                         http://forum.fxexpert.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, MetaQuotes Software Corp."
#property link      "http://forum.fxexpert.ru"

#property indicator_chart_window
#property indicator_buffers 1
#property indicator_color1 Yellow

extern int BarsCount=300;
extern int depth=16;
extern int deviation=5;
extern int backstep=3;
extern int maf=1;
extern int info=0;
extern int FontSize=8;
extern int DeleteType=0; /*0-delete all objects, 1-keet all*, 2-keep targets, 3-keep targets and reverses*/

double    PointX=0;
double    PointA=0;
double    PointB=0;
double    PointC=0;
double    PointD=0;

double ReversalRangeMax=0;
double ReversalRangeMin=0;

double D_Revers1=0;
double D_Revers3=0;
double D_Revers2=0;

double Target1=0;
double Target3=0;
double Target2=0;

double    zz=0;
double    zzp=0;

int shift=0, Bars_=200, k=0, cnt=0;
bool ft=true; 
bool ftp=true;

double RevPoint[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
   //IndicatorBuffers(1);
   SetIndexStyle(0,DRAW_ARROW,EMPTY,EMPTY,Yellow);
   SetIndexArrow(0, 159);
   SetIndexBuffer(0,RevPoint); 
   SetIndexLabel(0, "ZigZagE");  
   return(0);
  }
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//---- 
   if (DeleteType==0)
   {
    ObjectDelete("D_Revers1");
    ObjectDelete("D_Revers2");
    ObjectDelete("D_Revers3");
    ObjectDelete("D_Revers1_txt");
    ObjectDelete("D_Revers2_txt");
    ObjectDelete("D_Revers3_txt");
   
    ObjectDelete("ReversalRangeMax");
    ObjectDelete("ReversalRangeMin");
    ObjectDelete("ReversalRangeMax_txt");
    ObjectDelete("ReversalRangeMin_txt");
   
    ObjectDelete("Target1");
    ObjectDelete("Target2");
    ObjectDelete("Target3");
    ObjectDelete("Target1_txt");
    ObjectDelete("Target2_txt");
    ObjectDelete("Target3_txt");
   }
   if (DeleteType==2)
   {
    ObjectDelete("D_Revers1");
    ObjectDelete("D_Revers2");
    ObjectDelete("D_Revers3");
    ObjectDelete("D_Revers1_txt");
    ObjectDelete("D_Revers2_txt");
    ObjectDelete("D_Revers3_txt");
   
    ObjectDelete("ReversalRangeMax");
    ObjectDelete("ReversalRangeMin");
    ObjectDelete("ReversalRangeMax_txt");
    ObjectDelete("ReversalRangeMin_txt");
   
   }
if (DeleteType==3)
   {
    ObjectDelete("D_Revers1");
    ObjectDelete("D_Revers2");
    ObjectDelete("D_Revers3");
    ObjectDelete("D_Revers1_txt");
    ObjectDelete("D_Revers2_txt");
    ObjectDelete("D_Revers3_txt");
   }   
   
   
//----
   Comment("");
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
//---- 
   int    counted_bars=IndicatorCounted();
   int limit; // îãðàíè÷èòåëü ðàñ÷åòîâ
//---- 
   if (counted_bars==0)   limit=Bars-1; // ïîñ÷èòàííûõ áàðîâ åùå íåò, áóäåò ñ÷èòàòü ñ ñàìîãî íà÷àëà
   if (counted_bars>0)   limit=Bars-counted_bars-1; // âû÷òåì èç ÷èñëà äîñòóïíûõ áàðîâ êîëè÷åñòâî 
   //ïîñ÷èòàííûõ áàðîâ è óìåíüøèì íà åäèíèöó

   if (ftp) {Comment(" "); ftp=false; }
   
   for(shift=limit; shift>0; shift--)   
   {
      if (maf==0) {PointX=0;}
      zz=iCustom(NULL, 0, "ZigZag",depth,deviation,backstep,0,shift);
      if ((ft) || (zz!=0)) 
      {
         k=0;
         for(cnt = shift; cnt<BarsCount; cnt++)
         {
            zzp=iCustom(NULL, 0, "ZigZagE",depth,deviation,backstep,0,cnt);
            if ((zzp!=0) && (k==4) && (maf==1)) {PointX=zzp;RevPoint[cnt]=zzp;break;}
            if ((zzp!=0) && (k==3)) {k=k+1;PointA=zzp;RevPoint[cnt]=zzp;}
            if ((zzp!=0) && (k==2)) {k=k+1;PointB=zzp;RevPoint[cnt]=zzp;}
            if ((zzp!=0) && (k==1)) {k=k+1;PointC=zzp;RevPoint[cnt]=zzp;}
            if ((zzp!=0) && (k==0)) {k=k+1;PointD=zzp;RevPoint[cnt]=zzp;}
             
         }
       
      }
       
   }
  
ReversalRangeMax=NormalizeDouble(PointA+(PointX-PointA)*0.786,4);
ReversalRangeMin=NormalizeDouble(PointA+(PointX-PointA)*0.618,4);

D_Revers1=NormalizeDouble(PointC+(PointB-PointA),4);
D_Revers3=NormalizeDouble(PointC+(PointB-PointC)*1.618,4);
D_Revers2=NormalizeDouble(PointC+(PointB-PointC)*1.272,4);

Target1=NormalizeDouble(PointD-(PointD-PointC)*0.618,4);
Target3=PointD-(PointB-PointC);
Target2=NormalizeDouble(PointD-(PointD-PointC)*0.786,4);

if ((zz!=0) || (ft))
{

  if (ObjectFind("ReversalRangeMax") != 0) 
         {
            ObjectCreate("ReversalRangeMax",OBJ_HLINE,0,Time[25],ReversalRangeMax,Time[1],ReversalRangeMax);
            ObjectCreate("ReversalRangeMax_txt",OBJ_TEXT,0,Time[40],ReversalRangeMax,Time[1],ReversalRangeMax);
            ObjectSet("ReversalRangeMax",OBJPROP_COLOR,Red);
            ObjectSet("ReversalRangeMax",OBJPROP_WIDTH,1);
            ObjectSet("ReversalRangeMax",OBJPROP_STYLE,STYLE_SOLID);
            ObjectSetText("ReversalRangeMax_txt", "ReversalRangeMax "+DoubleToStr(ReversalRangeMax,4), FontSize, "Tahoma", Red);
         }
      else 
         {
            ObjectMove("ReversalRangeMax", 0,Time[1],ReversalRangeMax);
            ObjectMove("ReversalRangeMax_txt", 0,Time[40],ReversalRangeMax);
         }
      if (ObjectFind("ReversalRangeMin") != 0) 
         {
            ObjectCreate("ReversalRangeMin",OBJ_HLINE,0,Time[25],ReversalRangeMin,Time[1],ReversalRangeMin);
            ObjectCreate("ReversalRangeMin_txt",OBJ_TEXT,0,Time[40],ReversalRangeMin,Time[1],ReversalRangeMin);
            ObjectSet("ReversalRangeMin",OBJPROP_COLOR,Red);
            ObjectSet("ReversalRangeMin",OBJPROP_WIDTH,1);
            ObjectSet("ReversalRangeMin",OBJPROP_STYLE,STYLE_SOLID);
            ObjectSetText("ReversalRangeMin_txt", "ReversalRangeMin "+DoubleToStr(ReversalRangeMin,4), FontSize, "Tahoma", Red);
         }
      else 
         {
            ObjectMove("ReversalRangeMin", 0,Time[1],ReversalRangeMin);
            ObjectMove("ReversalRangeMin_txt", 0,Time[40],ReversalRangeMin);
         }
      if (ObjectFind("D_Revers1") != 0) 
         {
            ObjectCreate("D_Revers1",OBJ_HLINE,0,Time[25],D_Revers1,Time[1],D_Revers1);
            ObjectCreate("D_Revers1_txt",OBJ_TEXT,0,Time[25],D_Revers1,Time[1],D_Revers1);
            ObjectSet("D_Revers1",OBJPROP_COLOR,Blue);
            ObjectSet("D_Revers1",OBJPROP_WIDTH,1);
            ObjectSet("D_Revers1",OBJPROP_STYLE,STYLE_DOT);
            ObjectSetText("D_Revers1_txt", "D_Revers1 "+DoubleToStr(D_Revers1,4), FontSize, "Tahoma", Blue);
         }
      else 
         {
            ObjectMove("D_Revers1", 0,Time[1],D_Revers1);
            ObjectMove("D_Revers1_txt", 0,Time[25],D_Revers1);
         }
      if (ObjectFind("D_Revers2") != 0) 
         {
            ObjectCreate("D_Revers2",OBJ_HLINE,0,Time[25],D_Revers2,Time[1],D_Revers2);
            ObjectCreate("D_Revers2_txt",OBJ_TEXT,0,Time[25],D_Revers2,Time[1],D_Revers2);
            ObjectSet("D_Revers2",OBJPROP_COLOR,LimeGreen);
            ObjectSet("D_Revers2",OBJPROP_WIDTH,1);
            ObjectSet("D_Revers2",OBJPROP_STYLE,STYLE_DOT);
            ObjectSetText("D_Revers2_txt", "D_Revers2 "+DoubleToStr(D_Revers2,4), FontSize, "Tahoma", LimeGreen);
         }
      else 
         {
            ObjectMove("D_Revers2", 0,Time[1],D_Revers2);
            ObjectMove("D_Revers2_txt", 0,Time[25],D_Revers2);
         }
      if (ObjectFind("D_Revers3") != 0) 
         {
            ObjectCreate("D_Revers3",OBJ_HLINE,0,Time[25],D_Revers3,Time[1],D_Revers3);
            ObjectCreate("D_Revers3_txt",OBJ_TEXT,0,Time[25],D_Revers3,Time[1],D_Revers3);
            ObjectSet("D_Revers3",OBJPROP_COLOR,Yellow);
            ObjectSet("D_Revers3",OBJPROP_WIDTH,1);
            ObjectSet("D_Revers3",OBJPROP_STYLE,STYLE_DOT);
            ObjectSetText("D_Revers3_txt", "D_Revers3 "+DoubleToStr(D_Revers3,4), FontSize, "Tahoma", Yellow);
         }
      else 
         {
            ObjectMove("D_Revers3", 0,Time[1],D_Revers3);
            ObjectMove("D_Revers3_txt", 0,Time[25],D_Revers3);
         }
      if (ObjectFind("Target1") != 0) 
         {
            ObjectCreate("Target1",OBJ_HLINE,0,Time[25],Target1,Time[1],Target1);
            ObjectCreate("Target1_txt",OBJ_TEXT,0,Time[10],Target1,Time[1],Target1);
            ObjectSet("Target1",OBJPROP_COLOR,Goldenrod);
            ObjectSet("Target1",OBJPROP_WIDTH,2);
            ObjectSet("Target1",OBJPROP_STYLE,STYLE_SOLID);
            ObjectSetText("Target1_txt", "Target1 "+DoubleToStr(Target1,4), FontSize, "Tahoma", Goldenrod);
         }
      else 
         {
            ObjectMove("Target1", 0,Time[1],Target1);
            ObjectMove("Target1_txt", 0,Time[10],Target1);
         }
      if (ObjectFind("Target2") != 0) 
         {
            ObjectCreate("Target2",OBJ_HLINE,0,Time[25],Target2,Time[1],Target2);
            ObjectCreate("Target2_txt",OBJ_TEXT,0,Time[10],Target2,Time[1],Target2);
            ObjectSet("Target2",OBJPROP_COLOR,Goldenrod);
            ObjectSet("Target2",OBJPROP_WIDTH,2);
            ObjectSet("DTarget2",OBJPROP_STYLE,STYLE_SOLID);
            ObjectSetText("Target2_txt", "Target2 "+DoubleToStr(Target2,4), FontSize, "Tahoma", Goldenrod);
         }
      else 
         {
            ObjectMove("Target2", 0,Time[1],Target2);
            ObjectMove("Target2_txt", 0,Time[10],Target2);
         }
      if (ObjectFind("Target3") != 0) 
         {
            ObjectCreate("Target3",OBJ_HLINE,0,Time[25],Target3,Time[1],Target3);
            ObjectCreate("Target3_txt",OBJ_TEXT,0,Time[10],Target3,Time[1],Target3);
            ObjectSet("Target3",OBJPROP_COLOR,Goldenrod);
            ObjectSet("Target3",OBJPROP_WIDTH,2);
            ObjectSet("Target3",OBJPROP_STYLE,STYLE_SOLID);
            ObjectSetText("Target3_txt", "Target3 "+DoubleToStr(Target3,4), FontSize, "Tahoma", Goldenrod);
         }
      else 
         {
            ObjectMove("Target3", 0,Time[1],Target3);
            ObjectMove("Target3_txt", 0,Time[10],Target3);
         }
      Comment("Dot B retrace of X-A: ",(PointB-PointA)/(PointX-PointA),"\n",
              "Dot C retrace of X-A: ",(PointC-PointA)/(PointX-PointA),"\n",
              "Dot C retrace of A-B: ",(PointB-PointC)/(PointB-PointA));         
  
 
}
   return(0);
  }
//+------------------------------------------------------------------+