ZZtl

//+--------------------------------------------------------------------------------------------+
//|HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH|
//+--------------------------------------------------------------------------------------------+
//|\           \                             JS-FIBOFAN.V2.mq4                      /           / |
//| )----)------)---------------------------------------------------------------(------(----(  |
//|/           /     Ïèøó òîðãîâûå ñèñòåìû  js_sergey@list.ru  Ñåðãåé  © 2009    \           \ |
//+--------------------------------------------------------------------------------------------+
//|HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH|
//+--------------------------------------------------------------------------------------------+
 
#property copyright " js_sergey@list.ru "
#property link      " http://multiexperts.ru/ "
 
#property indicator_chart_window
extern int   ExtDepth      = 5;
extern int   ExtDeviation  = 5;
extern int   ExtBackstep   = 5;
//---
extern string _______      = "ñìåùåíèå ïî çèãçàãó";
extern int    zz           = 1;
//---
extern bool  fibour        = true;//ðèñîâàòü ôèáî-óðîâíè
extern bool  ëó÷           = true;//ðèñîâàòü ëó÷
extern bool  fon           = false;//ðèñîâàòü ëèíèè êàê ôîí
//---
extern int   Ñòèëü.f0.0    = 0;
extern int   øèð.f0.0      = 1;
extern color öâåò.f0.0     = DarkSeaGreen;
//---
extern int   Ñòèëü.f100    = 0;
extern int   øèð.f100      = 1;
extern color öâåò.f100     = DarkSeaGreen;
//---
int rg,rd,rg1,rd1;
double ext1, ext0,ext11, ext01;
//+------------------------------------------------------------------+
int deinit()
  {
//----
   ObjectDelete("Fib0");
   ObjectDelete("Fib1");
//----
   return(0);
  }
//+------------------------------------------------------------------+ 
int start()
  {
//----
   int zg=zz+1;
   rd=GetExtremumZZBar(zz);
   rg=GetExtremumZZBar(zg); 
//---- 
   ext0=GetExtremumZZPrice(zz);
   ext1=GetExtremumZZPrice(zg);
//----
   rd1=GetExtremumZZBar1(zz);
   rg1=GetExtremumZZBar1(zg); 
//---- 
   ext01=GetExtremumZZPrice1(zz);
   ext11=GetExtremumZZPrice1(zg);
//----   
   if(fibour==true){
//----
   ObjectDelete("Fib0");
   ObjectCreate("Fib0", OBJ_TREND, 0, Time[rg1], ext11, Time[rg], ext1);
   ObjectSet("Fib0", OBJPROP_STYLE, Ñòèëü.f0.0);
   ObjectSet("Fib0", OBJPROP_WIDTH, øèð.f0.0); 
   ObjectSet("Fib0", OBJPROP_COLOR, öâåò.f0.0);
   ObjectSet("Fib0", OBJPROP_BACK,  fon);
   ObjectSet("Fib0", OBJPROP_RAY,   ëó÷); // Ëó÷
//----   
   ObjectDelete("Fib1");
   ObjectCreate("Fib1", OBJ_TREND, 0, Time[rd1], ext01, Time[rd], ext0);
   ObjectSet("Fib1", OBJPROP_STYLE, Ñòèëü.f100);
   ObjectSet("Fib1", OBJPROP_WIDTH, øèð.f100); 
   ObjectSet("Fib1", OBJPROP_COLOR, öâåò.f100);
   ObjectSet("Fib1", OBJPROP_BACK,  fon);
   ObjectSet("Fib1", OBJPROP_RAY,   ëó÷); // Ëó÷
   } 
 
   return(0);
  }
//+------------------------------------------------------------------+
int GetExtremumZZBar(int ne) {
  double zz;
  int i, k=iBars(Symbol(), 0), ke=0;
  for (i=0; i<k; i++) {
    zz=iCustom(Symbol(), 0, "ZigZag", ExtDepth, ExtDeviation, ExtBackstep, 0, i);
    if (zz!=0) {
      ke++;
      if (ke>ne+1) return(i);
    }
  }
}
//+------------------------------------------------------------------+
double GetExtremumZZPrice(int ne) {
  double zz;
  int    i, k=iBars(Symbol(), 0), ke=0;
  for (i=0; i<k; i++) {
    zz=iCustom(Symbol(), 0, "ZigZag", ExtDepth, ExtDeviation, ExtBackstep, 0, i);
    if (zz!=0) {
      ke++;
      if (ke>ne+1) return(zz);
    }
  }  
}
//+------------------------------------------------------------------+
int GetExtremumZZBar1(int ne1) {
  double zz;
  int i, k=iBars(Symbol(), 0), ke=0;
  for (i=0; i<k; i++) {
    zz=iCustom(Symbol(), 0, "ZigZag", ExtDepth, ExtDeviation, ExtBackstep, 0, i);
    if (zz!=0) {
      ke++;
      if (ke>ne1+3) return(i);
    }
  }
}
//+------------------------------------------------------------------+
double GetExtremumZZPrice1(int ne1) {
  double zz;
  int    i, k=iBars(Symbol(), 0), ke=0;
  for (i=0; i<k; i++) {
    zz=iCustom(Symbol(), 0, "ZigZag", ExtDepth, ExtDeviation, ExtBackstep, 0, i);
    if (zz!=0) {
      ke++;
      if (ke>ne1+3) return(zz);
    }
  }
  return(0);  
}
//+----------------------------------------