//+-------------------------------------------------------------------------+
//|                                      Copyright © 2012, Vladimir Hlystov |
//|                                                http://cmillion.narod.ru |
//|выдает сигнал если цена приближается к линии мах мин цены с заданной даты|
//+-------------------------------------------------------------------------+
#property copyright "Copyright © 2012, Vladimir Hlystov"
#property link      "http://cmillion.narod.ru"
#property indicator_chart_window
//+------------------------------------------------------------------+
extern datetime Start = D'20.08.2012';
extern double   LevelPercent1  = 38.2;
extern double   LevelPercent2  = 50;
extern double   LevelPercent3  = 61.8;
extern int      approximation = 5;
extern int      font_size     = 10;
extern color    color1        = Red;
extern color    color2        = DarkGreen;
string NaneLine[5];
double PriceLine[5];
color  ColorLine[5];
datetime SignalTime;
int T1,BarHigh,BarLow;
//+------------------------------------------------------------------+
int init()
{
   ColorLine[0] = color1;
   ColorLine[1] = color1;
   ColorLine[2] = color2;
   ColorLine[3] = color2;
   ColorLine[4] = color2;
   BarHigh = iHighest(NULL,0,MODE_HIGH,iBarShift(NULL,0,Start,false),0);
   BarLow =  iLowest(NULL,0,MODE_LOW,iBarShift(NULL,0,Start,false),0);
   PriceLine[1] = iHigh(NULL,0,BarHigh); 
   PriceLine[0] = iLow(NULL,0,BarLow);
   if (BarHigh<BarLow)
   { 
      NaneLine[1] = "0 %";
      NaneLine[0] = "100 %";
   }
   else
   { 
      NaneLine[1] = "100 %";
      NaneLine[0] = "0 %";
   }
   NaneLine[2] = StringConcatenate(DoubleToStr(LevelPercent1,2),"%");
   NaneLine[3] = StringConcatenate(DoubleToStr(LevelPercent2,2),"%");
   NaneLine[4] = StringConcatenate(DoubleToStr(LevelPercent3,2),"%");
}
//+------------------------------------------------------------------+
int deinit()
{
  /* ObjectDelete("Start");
   for(int i=0; i<5; i++)
   {
      ObjectDelete(NaneLine[i]);
      ObjectDelete(NaneLine[i]+"line");
   }
   Comment("");*/
}
//+------------------------------------------------------------------+
int start()
{
   int j;
   if (ObjectFind("Start")!=-1)
   {
      if (Start!=NormalizeDouble(ObjectGet("Start",OBJPROP_TIME1),Digits))
      {
         Start=NormalizeDouble(ObjectGet("Start",OBJPROP_TIME1),Digits);
         for(j=0; j<5; j++)
         {
            ObjectDelete(NaneLine[j]);
            ObjectDelete(StringConcatenate(NaneLine[j],"line"));
         }
         BarHigh = iHighest(NULL,0,MODE_HIGH,iBarShift(NULL,0,Start,false),0);
         BarLow =  iLowest(NULL,0,MODE_LOW,iBarShift(NULL,0,Start,false),0);
         PriceLine[1] = iHigh(NULL,0,BarHigh); 
         PriceLine[0] = iLow(NULL,0,BarLow);
         if (BarHigh<BarLow)
         { 
            NaneLine[1] = "0 %";
            NaneLine[0] = "100 %";
         }
         else
         { 
            NaneLine[1] = "100 %";
            NaneLine[0] = "0 %";
         }
      }
   }
   else
   {
      ObjectDelete("Start");
      ObjectCreate("Start", OBJ_VLINE, 0,Start,0,0,0);
      ObjectSet   ("Start", OBJPROP_COLOR, Red);
      ObjectSet   ("Start", OBJPROP_STYLE, STYLE_SOLID);
      ObjectSet   ("Start", OBJPROP_WIDTH, 1);
      ObjectSet   ("Start", OBJPROP_BACK,  false);
   }
   //---
   for(int i=0; i<2; i++)
   {
      if (ObjectFind(StringConcatenate(NaneLine[i],"line"))!=-1)
      {
         if (PriceLine[i]!=NormalizeDouble(ObjectGet(StringConcatenate(NaneLine[i],"line"),OBJPROP_PRICE1),Digits))
         {
            PriceLine[i]=NormalizeDouble(ObjectGet(StringConcatenate(NaneLine[i],"line"),OBJPROP_PRICE1),Digits);
            for(j=i; j<5; j++)
            {
               ObjectDelete(NaneLine[j]);
               ObjectDelete(StringConcatenate(NaneLine[j],"line"));
            }
         }
      }
   }
   //---
   string txt;
   T1 = WindowFirstVisibleBar()/2;
   if (BarHigh>BarLow)
   { 
      PriceLine[2] = (PriceLine[0]-(PriceLine[0]-PriceLine[1])*LevelPercent1/100);
      PriceLine[3] = (PriceLine[0]-(PriceLine[0]-PriceLine[1])*LevelPercent2/100);
      PriceLine[4] = (PriceLine[0]-(PriceLine[0]-PriceLine[1])*LevelPercent3/100);
   }
   else
   { 
      PriceLine[2] = (PriceLine[1]+(PriceLine[0]-PriceLine[1])*LevelPercent1/100);
      PriceLine[3] = (PriceLine[1]+(PriceLine[0]-PriceLine[1])*LevelPercent2/100);
      PriceLine[4] = (PriceLine[1]+(PriceLine[0]-PriceLine[1])*LevelPercent3/100);
   }
   for(i=0; i<5; i++)
   {
      drawtext(NaneLine[i], ColorLine[i], Time[T1] , PriceLine[i]);
      drawline(StringConcatenate(NaneLine[i],"line"), ColorLine[i] , PriceLine[i]);
      if (i>1)
      {
         if (MathAbs(Bid-PriceLine[i])/Point<approximation)
         {
            txt=StringConcatenate(Symbol()," ",StrPer(Period()),"  Цена коснулась линии ",NaneLine[i],"    в ",TimeToStr(TimeCurrent(),TIME_DATE|TIME_SECONDS));
            if (SignalTime!=Time[0]) {Alert(txt);SignalTime=Time[0];}
         }
      }
   }
   Comment(txt);
   return(0);
}
//+------------------------------------------------------------------+
int drawline(string NT, color col, double Y1)
{
   if (ObjectFind(NT)!=-1)
   {
      if (Y1==NormalizeDouble(ObjectGet(NT,OBJPROP_PRICE1),Digits)) return;
      ObjectDelete(NT);
   }
   ObjectCreate(NT, OBJ_HLINE, 0,0,Y1,0,0);
   ObjectSet   (NT, OBJPROP_COLOR, col);
   ObjectSet   (NT, OBJPROP_STYLE, STYLE_SOLID);
   ObjectSet   (NT, OBJPROP_WIDTH, 1);
   ObjectSet   (NT, OBJPROP_BACK,  false);
   return;
}
//--------------------------------------------------------------------
int drawtext(string NT, color col, datetime t1, double p1)
{
   string txt;
   if (ObjectFind(NT)!=-1)
   {
      //if (p1!=NormalizeDouble(ObjectGet(NT,OBJPROP_PRICE1),Digits) || t1!=ObjectGet(NT,OBJPROP_TIME1)) ObjectDelete (NT);
   }
   else ObjectCreate (NT, OBJ_TEXT,0,t1,p1,0,0,0,0);
   if (NT=="0 %") txt = NT;
   if (NT=="100 %") txt = StringConcatenate(NT,"   ",DoubleToStr(MathAbs(ObjectGet(NaneLine[3],OBJPROP_PRICE1)-p1)/Point,0),"п   ",DoubleToStr(MathAbs(Bid-p1)/Point,0),"п");
   if (NT==NaneLine[2]) txt = StringConcatenate(NT,"   ",DoubleToStr(MathAbs(ObjectGet("0 %",OBJPROP_PRICE1)-p1)/Point,0),"п");
   if (NT==NaneLine[3]) txt = StringConcatenate(NT,"   ",DoubleToStr(MathAbs(ObjectGet("0 %",OBJPROP_PRICE1)-p1)/Point,0),"п   ",DoubleToStr(MathAbs(ObjectGet(NaneLine[2],OBJPROP_PRICE1)-p1)/Point,0),"п");
   if (NT==NaneLine[4]) txt = StringConcatenate(NT,"   ",DoubleToStr(MathAbs(ObjectGet("0 %",OBJPROP_PRICE1)-p1)/Point,0),"п   ",DoubleToStr(MathAbs(ObjectGet(NaneLine[2],OBJPROP_PRICE1)-p1)/Point,0),"п","п   ",DoubleToStr(MathAbs(ObjectGet(NaneLine[3],OBJPROP_PRICE1)-p1)/Point,0),"п");
   ObjectSetText(NT, txt ,font_size,"Arial");
   ObjectSet    (NT, OBJPROP_COLOR, col);
}
//--------------------------------------------------------------------
string StrPer(int per)
{
   if (per == 1)     return("M1");
   if (per == 5)     return("M5");
   if (per == 15)    return("M15");
   if (per == 30)    return("M30");
   if (per == 60)    return("H1");
   if (per == 240)   return("H4");
   if (per == 1440)  return("D1");
   if (per == 10080) return("W1");
   if (per == 43200) return("MN1");
return("ошибка периода");
}
//+------------------------------------------------------------------+