#property indicator_chart_window
//+------------------------------------------------------------------+ 
extern int P = 200;
bool showcomments=false;
//+------------------------------------------------------------------+
extern string _Info1 = "------------------------------------";
extern string _Info2 = "Если ColorFrame = false, будут";
extern string _Info3 = "отображены только уровни без";
extern string _Info4 = "раскрашивания зон.";
extern string _Info5 = "------------------------------------";
extern string _Info6 = "Если ColorFrame = true, зоны будут";
extern string _Info7 = "раскрашены в соответствии с";
extern string _Info8 = "выбранными ниже цветами.";
extern string _Info9 = "FW - диапазон раскраски (баров)";
extern string _Info10 = "------------------------------------";
//+------------------------------------------------------------------+
extern bool  ColorFrame = true;
extern int   FW = 500;
extern string _Info11 = "В ColorBase - цвет вашего фона";
extern color ColorBase      = White; //White;
extern color ColorRange     = Honeydew; //Honeydew;
extern color ColorOverShoot = MistyRose; //MistyRose;
extern string _Info12 = "--------- Цвета уровней ------------";
//+------------------------------------------------------------------+
extern color  c_plus_minus_28 = Red;
extern color  c_plus_minus_18 = Orange;
extern color  c_08_88        = DeepSkyBlue;
extern color  c_18_78        = Gold;
extern color  c_28_68        = HotPink;
extern color  c_38_58        = Lime;
extern color  c_48            = DeepSkyBlue;

extern string _Info121 = "--------- Стиль линий ------------";
extern int    s_plus_minus_28 = 0;
extern int    s_plus_minus_18 = 3;
extern int    s_08_88        = 0;
extern int    s_18_78        = 3;
extern int    s_28_68        = 0;
extern int    s_38_58        = 3;
extern int    s_48            = 0;

extern string _Info13 = "--------- Толщина линий ------------";
extern int    w_plus_minus_28 = 2;
extern int    w_plus_minus_18 = 1;
extern int    w_08_88        = 2;
extern int    w_18_78        = 1;
extern int    w_28_68        = 2;
extern int    w_38_58        = 1;
extern int    w_48            = 2;
extern string _Info14 = "--------- Настройки текста ---------";
extern string fontname  = "Consolas Bold";
extern int    fontsize  = 9;
extern int    textshift = 65;
//+------------------------------------------------------------------+
#define FF1 "FF1"
#define FF2 "FF2"
#define FF3 "FF3"
#define FF4 "FF4"
#define FF5 "FF5"
//+------------------------------------------------------------------+
double  DecNos;
double  dmml = 0,
        sum  = 0,
        v1 = 0,
        v2 = 0,
        v4 = 0,
        mn = 0,
        mx = 0,
        x1 = 0,
        x2 = 0,
        x3 = 0,
        x4 = 0,
        x5 = 0,
        x6 = 0,
        y1 = 0,
        y2 = 0,
        y3 = 0,
        y4 = 0,
        y5 = 0,
        y6 = 0,
        octave  = 0,
        fractal = 0,
        range   = 0,
        finalH  = 0,
        finalL  = 0,
        ip[9,13],
        mml[13];           
//+------------------------------------------------------------------+
string  ln_txt[13], ln_tx[13], ln_txt1[13], tf_txt[9,13], tstr="", buff_str = "",
        sf_txt[9]={"M1","M5","M15","M30","H1","H4","D1","W1","MN1"};
//+------------------------------------------------------------------+
int bn_v1=0, bn_v2=0, OctLinesCnt=13, mml_clr[13], nTime=0, CurPeriod=0, i=0, mml_wdth[13], mml_stl[13];

int      iTF          = 0, // счетчик по таймфреймам
         iLC          = 0, // счетчик по линиям
         TF[9] = {PERIOD_M1,PERIOD_M5,PERIOD_M15,PERIOD_M30,PERIOD_H1,PERIOD_H4,PERIOD_D1,PERIOD_W1,PERIOD_MN1},
         Lwidth[13],
         j            = 0,
         nTF=9;
//+------------------------------------------------------------------+
int init() {
//---- indicators
   ln_txt1[0]  = "[-2/8] ";  //extremely overshoot [-2/8]";// [-2/8]
   ln_txt1[1]  = "[-1/8] ";// "overshoot [-1/8]";// [-1/8]
   ln_txt1[2]  = "[0/8] ";
   ln_txt1[3]  = "[1/8] ";// "Weak, Stall and Reverse - [1/8]";// [1/8]
   ln_txt1[4]  = "[2/8] ";// "Pivot, Reverse - major [2/8]";// [2/8]
   ln_txt1[5]  = "[3/8] ";// "Bottom of Trading Range - [3/8], if 10-12 bars then 40% Time. BUY Premium Zone";//[3/8]
   ln_txt1[6]  = "[4/8] ";// "Major Support/Resistance Pivotal Point [4/8]- Best New BUY or SELL level";// [4/8]
   ln_txt1[7]  = "[5/8] ";// "Top of Trading Range - [5/8], if 10-12 bars then 40% Time. SELL Premium Zone";//[5/8]
   ln_txt1[8]  = "[6/8] ";// "Pivot, Reverse - major [6/8]";// [6/8]
   ln_txt1[9]  = "[7/8] ";// "Weak, Stall and Reverse - [7/8]";// [7/8]
   ln_txt1[10] = "[8/8] ";
   ln_txt1[11] = "[+1/8] ";// "overshoot [+1/8]";// [+1/8]
   ln_txt1[12] = "[+2/8] ";// "extremely overshoot [+2/8]";// [+2/8]
//+------------------------------------------------------------------+
   ln_tx[0]  = "";
   ln_tx[1]  = "";
   ln_tx[2]  = "";
   ln_tx[3]  = "";
   ln_tx[4]  = "";
   ln_tx[5]  = "";
   ln_tx[6]  = "";
   ln_tx[7]  = "";
   ln_tx[8]  = "";
   ln_tx[9]  = "";
   ln_tx[10] = "";
   ln_tx[11] = "";
   ln_tx[12] = "";
//+------------------------------------------------------------------+
   mml_clr[0]  = c_plus_minus_28;   mml_wdth[0] = w_plus_minus_28;  mml_stl[0] = s_plus_minus_28; // [-2]/8   
   mml_clr[1]  = c_plus_minus_18;   mml_wdth[1] = w_plus_minus_18;  mml_stl[1] = s_plus_minus_18; // [-1]/8 
   mml_clr[2]  = c_08_88;          mml_wdth[2] = w_08_88;         mml_stl[2] = s_08_88;        //  [0]/8
   mml_clr[3]  = c_18_78;          mml_wdth[3] = w_18_78;         mml_stl[3] = s_18_78;        //  [1]/8
   mml_clr[4]  = c_28_68;          mml_wdth[4] = w_28_68;         mml_stl[4] = s_28_68;        //  [2]/8
   mml_clr[5]  = c_38_58;          mml_wdth[5] = w_38_58;         mml_stl[5] = s_38_58;        //  [3]/8
   mml_clr[6]  = c_48;              mml_wdth[6] = w_48;             mml_stl[6] = s_48;            //  [4]/8
   mml_clr[7]  = c_38_58;          mml_wdth[7] = w_38_58;         mml_stl[7] = s_38_58;        //  [5]/8
   mml_clr[8]  = c_28_68;          mml_wdth[8] = w_28_68;         mml_stl[8] = s_28_68;        //  [6]/8
   mml_clr[9]  = c_18_78;          mml_wdth[9] = w_18_78;         mml_stl[9] = s_18_78;        //  [7]/8
   mml_clr[10] = c_08_88;          mml_wdth[10]= w_08_88;         mml_stl[10]= s_08_88;        //  [8]/8
   mml_clr[11] = c_plus_minus_18;   mml_wdth[11]= w_plus_minus_18;  mml_stl[11]= s_plus_minus_18; // [+1]/8
   mml_clr[12] = c_plus_minus_28;   mml_wdth[12]= w_plus_minus_28;  mml_stl[12]= s_plus_minus_28; // [+2]/8
//+------------------------------------------------------------------+ 
   return(0);
  }
//+------------------------------------------------------------------+
int deinit() {
//---- TODO: add your code here
Comment(" ");
//+------------------------------------------------------------------+
for(i=0;i<OctLinesCnt;i++) {
    buff_str = "mml"+i;
    ObjectDelete(buff_str);
    buff_str = "mml_txt"+i;
    ObjectDelete(buff_str);
    }
    //---- Screen Background
   ObjectDelete(FF1);
   ObjectDelete(FF2);
   ObjectDelete(FF3);
   ObjectDelete(FF4);
   ObjectDelete(FF5);
//----

   return(0);
}
//+------------------------------------------------------------------+
int start(){

   CreateMM();
   return(0);
}
void CreateObj(string objName, double start, double end, color clr)
   {
   ObjectCreate(objName, OBJ_RECTANGLE, 0, Time[0+FW], start, Time[0], end);
   ObjectSet(objName, OBJPROP_COLOR, clr);
   }
   void DeleteObjects()
   {
   ObjectDelete(FF1);
   ObjectDelete(FF2);
   ObjectDelete(FF3);
   ObjectDelete(FF4);
   ObjectDelete(FF5);
   }
   
   void CreateMM()
   {
   DeleteObjects();
//+------------------------------------------------------------------+
if (StringFind (Symbol(), "JPY", 0) != -1){ DecNos = 2;}
   else { DecNos = 4; } 
//+------------------------------------------------------------------+
   int LD=0;
   if( (nTime != Time[0]) || (CurPeriod != Period()) )   {// первый пересчет и при завершении свечи
      for (iLC=0; iLC<OctLinesCnt;iLC++)   {
         ln_txt[iLC]="";
         Lwidth[iLC]=0;   // ширина всех линий по умолчанию=0
         for (iTF=0; iTF<nTF;iTF++)   {
            ip[iTF,iLC]=0.0;
            tf_txt[iTF,iLC]="";
         }
      }
      for(iTF=nTF-1; iTF>=0; iTF--)   { //  со старших таймфреймов до текущего
         Raschet(TF[iTF]);
         for (iLC=0; iLC<OctLinesCnt; iLC++) {
            ip[iTF,iLC]=mml[iLC];
            tf_txt[iTF,iLC]= StringConcatenate(StringTrimRight(sf_txt[iTF]),ln_txt1[iLC]);
         }
         if (TF[iTF]==Period()) break;   // мдадшие ТаймФреймы не нужны
      } 
      for(iTF=nTF-1; iTF>=0; iTF--){   // простановка надписей на уровни последнего расчитанного ТФ
         for (iLC=0; iLC<OctLinesCnt; iLC++) { // цикл по всем линиям
            for (j=0; j<OctLinesCnt; j++) {
               if ((ip[iTF,iLC]<(mml[j]+(dmml/2))) && (ip[iTF,iLC]>(mml[j]-(dmml/2))) ) {// попадание в диапазон
                  tstr=StringTrimLeft(StringTrimRight(ln_txt[j])+" ");
                  ln_txt[j]=StringConcatenate(tstr, tf_txt[iTF,iLC]);
                  if ( Lwidth[j]<iTF )  Lwidth[j]=iTF;  //для  ширины линий, заносится номер из макс ТФ
               }   
            }   
         }
         if (TF[iTF]==Period()) break; // меньшие ТФ не нужны
      }          
//+------------------------------------------------------------------+ 
   bn_v1 = Lowest(NULL,0,MODE_LOW,P,0);
   bn_v2 = Highest(NULL,0,MODE_HIGH,P,0); // changes when price exceeds hi/low

   v1 = Low[bn_v1];
   v2 = High[bn_v2];
//+------------------------------------------------------------------+    
//determine fractal.....
   if( v2<=250000 && v2>25000 )
   fractal=100000;
   else
     if( v2<=25000 && v2>2500 )
     fractal=10000;
     else
       if( v2<=2500 && v2>250 )
       fractal=1000;
       else
         if( v2<=250 && v2>25 )
         fractal=100;
         else
           if( v2<=25 && v2>12.5 )
           fractal=12.5;
           else
             if( v2<=12.5 && v2>6.25)
             fractal=12.5;
             else
               if( v2<=6.25 && v2>3.125 )
               fractal=6.25;
               else
                 if( v2<=3.125 && v2>1.5625 )
                 fractal=3.125;
                 else
                   if( v2<=1.5625 && v2>0.390625 )
                   fractal=1.5625;
                   else
                     if( v2<=0.390625 && v2>0)
                     fractal=0.1953125;
//+------------------------------------------------------------------+       
   range=(v2-v1);
   sum=MathFloor(MathLog(fractal/range)/MathLog(2));
   octave=fractal*(MathPow(0.5,sum));
   mn=MathFloor(v1/octave)*octave;
   if( (mn+octave)>v2 )
   mx=mn+octave; 
   else
     mx=mn+(2*octave);
//+------------------------------------------------------------------+ 
// calculating xx
//x2
    if( (v1>=(3*(mx-mn)/16+mn)) && (v2<=(9*(mx-mn)/16+mn)) )
    x2=mn+(mx-mn)/2; 
    else x2=0;
//x1
    if( (v1>=(mn-(mx-mn)/8))&& (v2<=(5*(mx-mn)/8+mn)) && (x2==0) )
    x1=mn+(mx-mn)/2; 
    else x1=0;

//x4
    if( (v1>=(mn+7*(mx-mn)/16))&& (v2<=(13*(mx-mn)/16+mn)) )
    x4=mn+3*(mx-mn)/4; 
    else x4=0;

//x5
    if( (v1>=(mn+3*(mx-mn)/8))&& (v2<=(9*(mx-mn)/8+mn))&& (x4==0) )
    x5=mx; 
    else  x5=0;

//x3
    if( (v1>=(mn+(mx-mn)/8))&& (v2<=(7*(mx-mn)/8+mn))&& (x1==0) && (x2==0) && (x4==0) && (x5==0) )
    x3=mn+3*(mx-mn)/4; 
    else x3=0;

//x6
    if( (x1+x2+x3+x4+x5) ==0 )
    x6=mx; 
    else x6=0;

     finalH = x1+x2+x3+x4+x5+x6;
// calculating yy
//y1
    if( x1>0 )
    y1=mn; 
    else y1=0;

//y2
    if( x2>0 )
    y2=mn+(mx-mn)/4; 
    else y2=0;

//y3
    if( x3>0 )
    y3=mn+(mx-mn)/4; 
    else y3=0;

//y4
    if( x4>0 )
    y4=mn+(mx-mn)/2; 
    else y4=0;

//y5
    if( x5>0 )
    y5=mn+(mx-mn)/2; 
    else y5=0;

//y6
    if( (finalH>0) && ((y1+y2+y3+y4+y5)==0) )
    y6=mn; 
    else y6=0;

    finalL = y1+y2+y3+y4+y5+y6;
//+------------------------------------------------------------------+ 
double xo = (finalH-finalL);
double xmm = xo/8;
//+------------------------------------------------------------------+ 
    for( i=0; i<OctLinesCnt; i++) {
         mml[i] = 0;
         }
         
   dmml = (finalH-finalL)/8;

   mml[0] =(finalL-dmml*2); //-2/8
   for( i=1; i<OctLinesCnt; i++) {
        mml[i] = mml[i-1] + dmml;
        }
   for( i=0; i<OctLinesCnt; i++ ){
        buff_str = "mml"+i;

//+------------------------------------------------------------------+         
        ObjectDelete(buff_str);
        ObjectCreate(buff_str, OBJ_HLINE, 0, Time[0], mml[i], Time[0+FW], mml[i]);
        ObjectSet(buff_str, OBJPROP_STYLE, mml_stl[i]);
        ObjectSet(buff_str, OBJPROP_WIDTH, mml_wdth[i]);
        ObjectSet(buff_str, OBJPROP_COLOR, mml_clr[i]);
        ObjectSet(buff_str, OBJPROP_BACK, 1);
        ObjectSet(buff_str, OBJPROP_RAY, 0);
        ObjectMove(buff_str, 0, Time[0], mml[i]);
//+------------------------------------------------------------------+              
        buff_str = "mml_txt"+i;
        ObjectDelete(buff_str);
        ObjectCreate(buff_str, OBJ_TEXT, 0, Time[textshift], textshift);
        ObjectSetText(buff_str, ln_txt[i]/*+DoubleToStr(mml[i],DecNos)+ln_tx[i]*/, fontsize, fontname, mml_clr[i]);
        ObjectSet(buff_str, OBJPROP_BACK, 1);
        ObjectMove(buff_str, 0, Time[textshift], mml[i]);
   }
   
//+------------------------------------------------------------------+ 
if (ColorFrame) {  
CreateObj(FF1, mml[5], mml[7],  ColorRange);
CreateObj(FF2, mml[0], mml[2],  ColorOverShoot);
CreateObj(FF3, mml[10],mml[12], ColorOverShoot);
CreateObj(FF4, mml[7], mml[10], ColorBase);
CreateObj(FF5, mml[2], mml[5],  ColorBase);
}
//+------------------------------------------------------------------+

  return;
}
}
//+------------------------------------------------------------------+
void Raschet(int pTF)  {
   bn_v1 = iLowest( NULL, pTF,MODE_LOW, P,0);
   bn_v2 = iHighest(NULL, pTF,MODE_HIGH,P,0);
   v1    = iLow(NULL,pTF,bn_v1);
   v2    = iHigh(NULL,pTF,bn_v2);
   //determine fractal.....
   if( v2<=250000 && v2>25000 )                 fractal  =  100000;
   else if( v2<=25000 && v2>2500 )              fractal  =   10000;
    else if( v2<=2500 && v2>250 )               fractal  =    1000;
     else if( v2<=250 && v2>25 )                fractal  =     100;
      else if( v2<=25 && v2>12.5 )              fractal  =      12.5;
       else if( v2<=12.5 && v2>6.25)            fractal  =      12.5;
        else if( v2<=6.25 && v2>3.125 )         fractal  =       6.25;
         else if( v2<=3.125 && v2>1.5625 )      fractal  =       3.125;
          else if( v2<=1.5625 && v2>0.390625 )  fractal  =       1.5625;
           else if( v2<=0.390625 && v2>0)       fractal  =       0.1953125;
   range    =(v2-v1);
   sum      =MathFloor(MathLog(fractal/range)/MathLog(2));
   octave   =fractal*(MathPow(0.5,sum));
   mn       =MathFloor(v1/octave)*octave;
   if( (mn+octave)>v2 )
      mx=mn+octave; 
   else
      mx=mn+(2*octave);
   // calculating xx
   if( (v1>=(3*(mx-mn)/16+mn)) && (v2<=(9*(mx-mn)/16+mn)))              x2=mn+(mx-mn)/2;  else x2=0;
   if( (v1>=(mn-(mx-mn)/8))    && (v2<=(5*(mx-mn)/8+mn)) && (x2==0))    x1=mn+(mx-mn)/2;  else x1=0;
   if( (v1>=(mn+7*(mx-mn)/16)) && (v2<=(13*(mx-mn)/16+mn)))             x4=mn+3*(mx-mn)/4;else x4=0;
   if( (v1>=(mn+3*(mx-mn)/8))  && (v2<=(9*(mx-mn)/8+mn))&& (x4==0))     x5=mx;            else x5=0;
   if( (v1>=(mn+(mx-mn)/8))    && (v2<=(7*(mx-mn)/8+mn))&&(x1==0)
                               &&(x2==0)&&(x4==0)&&(x5==0))             x3=mn+3*(mx-mn)/4;else x3=0;
   if( (x1+x2+x3+x4+x5) ==0 )    x6=mx;                                                   else x6=0;
   finalH = x1+x2+x3+x4+x5+x6;
   // calculating yy
   if( x1>0 )    y1=mn;               else y1=0;
   if( x2>0 )    y2=mn+(mx-mn)/4;     else y2=0;
   if( x3>0 )    y3=mn+(mx-mn)/4;     else y3=0;
   if( x4>0 )    y4=mn+(mx-mn)/2;     else y4=0;
   if( x5>0 )    y5=mn+(mx-mn)/2;     else y5=0;
   if( (finalH>0) && ((y1+y2+y3+y4+y5)==0) )    y6=mn;     else y6=0;
   finalL = y1+y2+y3+y4+y5+y6;
   for( i=0; i<OctLinesCnt; i++) {mml[i] = 0;}
   dmml = (finalH-finalL)/8;
   mml[0] =(finalL-dmml*2); //-2/8
   for( i=1; i<OctLinesCnt; i++) {mml[i] = mml[i-1] + dmml;}
   return;
  }