//+------------------------------------------------------------------+
//|                                                                  |
//|                 Copyright © 1999-2007, MetaQuotes Software Corp. |
//|                                         http://www.metaquotes.ru |
//+------------------------------------------------------------------+
#property indicator_chart_window
#property indicator_buffers 2
#property indicator_color1 MediumBlue
#property indicator_color2 Red
//----
extern int       beginer=200;
extern int       periodtotake=200;
//----
double ExtMapBuffer1[];
double ExtMapBuffer2[];
//----
int shift,i2,Periods;
datetime WorkTime;
double sum,v1,v2,fractal;
double v45,mml00,mml0,mml1,mml2,mml3,mml4,mml5,mml6,mml7,mml8,mml9,mml98,mml99;
double range,octave,mn,mx,price;
double finalH,finalL;
double x1,x2,x3,x4,x5,x6,y1,y2,y3,y4,y5,y6;
string textArray[13]={"mm11_txt","mm12_txt","mm1_txt","mm2_txt","mm3_txt","mm4_txt","mm5_txt","mm6_txt","mm7_txt","mm8_txt","mm9_txt","mm-1_txt","mm-2_txt"};
string lineArray[13]={"mm11","mm12","mm1","mm2","mm3","mm4","mm5","mm6","mm7","mm8","mm9","mm-1","mm-2"};
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int init()
  {
   IndicatorBuffers(2);
   SetIndexStyle(0,DRAW_LINE);
   SetIndexBuffer(0,ExtMapBuffer1);
   SetIndexStyle(1,DRAW_LINE);
   SetIndexBuffer(1,ExtMapBuffer2);
//----
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int deinit()
  {
   ObjectsDeleteAll(0, OBJ_HLINE);
   int count=ArraySize(textArray);
     for(int ch=0;ch<count;ch++) {
      ObjectDelete(textArray[ch]);
      ObjectDelete(lineArray[ch]);
     }
//----
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int start()
  {
   int    counted_bars=IndicatorCounted(),CountBars=0;
   if (CountBars>=Bars) CountBars=Bars;
   SetIndexDrawBegin(0,Bars-CountBars);
   SetIndexDrawBegin(1,Bars-CountBars);
//----
     if((WorkTime!=Time[0]) || (Periods!=Period()))
     {
      v1=(Low[Lowest(NULL,0,MODE_LOW,periodtotake,0)]);
      v2=(High[Highest(NULL,0,MODE_HIGH,periodtotake,0)]);
//----
        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);
        }
        if((v1>=3/16*(mx-mn)+mn)&& (v2<=9/16*(mx-mn)+mn)) 
        {
         x2=mn+(mx-mn)/2;
         }
         else
         {
         x2=0;
        }
        if((v1>=mn-(mx-mn)/8)&& (v2<=5/8*(mx-mn)+mn) && x2==0) 
        {
         x1=mn+(mx-mn)/2;
         }
         else
         {
         x1=0;
        }
        if((v1>=mn+7*(mx-mn)/16)&& (v2<=13/16*(mx-mn)+mn)) 
        {
         x4=mn+3*(mx-mn)/4;
         }
         else
         {
         x4=0;
        }
        if((v1>=mn+3*(mx-mn)/8)&& (v2<=9/8*(mx-mn)+mn)&& x4==0) 
        {
         x5=mx;
         }
         else
         {
         x5=0;
        }
        if((v1>=mn+(mx-mn)/8)&& (v2<=7/8*(mx-mn)+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;
        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;
      v45=(finalH-finalL)/8;
      mml00=(finalL-v45*2);
      mml0=(finalL-v45);
      mml1=(finalL);
      mml2=(finalL+v45);
      mml3=(finalL+2*v45);
      mml4=(finalL+3*v45);
      mml5=(finalL+4*v45);
      mml6=(finalL+5*v45);
      mml7=(finalL+6*v45);
      mml8=(finalL+7*v45);
      mml9=(finalL+8*v45);
      mml99=(finalL+9*v45);
      mml98=(finalL+10*v45);
      ObjectsRedraw();
      ObjectCreate("mm11_txt",OBJ_TEXT,0,Time[30],mml00,Time[30],mml00);
      ObjectSetText("mm11_txt","_финал л"+(string)finalH+"mml7 "+(string)mml7,10,"Arial",Magenta);
      ObjectCreate("mm12_txt",OBJ_TEXT,0,Time[30],mml0,Time[30],mml0);
      ObjectSetText("mm12_txt","-1/8 ",10,"Arial",Pink);
      ObjectCreate("mm1_txt",OBJ_TEXT,0,Time[30],mml1,Time[30],mml1);
      ObjectSetText("mm1_txt","0/8 ",10,"Arial",Blue);
      ObjectCreate("mm2_txt",OBJ_TEXT,0,Time[30],mml2,Time[30],mml2);
      ObjectSetText("mm2_txt","1/8 ",10,"Arial",Orange);
      ObjectCreate("mm3_txt",OBJ_TEXT,0,Time[30],mml3,Time[30],mml3);
      ObjectSetText("mm3_txt","2/8 ",10,"Arial",Red);
      ObjectCreate("mm4_txt",OBJ_TEXT,0,Time[30],mml4,Time[30],mml4);
      ObjectSetText("mm4_txt","3/8 ",10,"Arial",Green);
      ObjectCreate("mm5_txt",OBJ_TEXT,0,Time[30],mml5,Time[30],mml5);
      ObjectSetText("mm5_txt","4/8 ",10,"Arial",Blue);
      ObjectCreate("mm6_txt",OBJ_TEXT,0,Time[30],mml6,Time[30],mml6);
      ObjectSetText("mm6_txt","5/8 ",10,"Arial",Green);
      ObjectCreate("mm7_txt",OBJ_TEXT,0,Time[30],mml7,Time[30],mml7);
      ObjectSetText("mm7_txt","6/8 ",10,"Arial",Red);
      ObjectCreate("mm8_txt",OBJ_TEXT,0,Time[30],mml8,Time[30],mml8);
      ObjectSetText("mm8_txt","7/8 ",10,"Arial",Orange);
      ObjectCreate("mm9_txt",OBJ_TEXT,0,Time[30],mml9,Time[30],mml9);
      ObjectSetText("mm9_txt","8/8 ",10,"Arial",Blue);
      ObjectCreate("mm-1_txt",OBJ_TEXT,0,Time[30],mml99,Time[30],mml99);
      ObjectSetText("mm-1_txt","+1/8 ",10,"Arial",Pink);
      ObjectCreate("mm-2_txt",OBJ_TEXT,0,Time[30],mml98,Time[30],mml98);
      ObjectSetText("mm-2_txt","+2/8 ",10,"Arial",Magenta);
      ObjectCreate("mm11",OBJ_HLINE,0,Time[0],mml00,Time[0],mml00);
      ObjectMove("MyTrend", 1, Time[0], mml00);
      ObjectSet("mm11",OBJPROP_COLOR,Magenta);
      ObjectSet("mm11",OBJPROP_WIDTH,2);ObjectSet("mm11",OBJPROP_STYLE,STYLE_SOLID);
      ObjectCreate("mm12" ,OBJ_HLINE,0,Time[0],mml0,Time[0],mml0);
      ObjectSet("mm12",OBJPROP_COLOR,Pink);ObjectSet("mm12",OBJPROP_WIDTH,1);ObjectSet("mm12",OBJPROP_STYLE,STYLE_SOLID);
      ObjectCreate("mm1" ,OBJ_HLINE,0,Time[0],mml1,Time[0],mml1);
      ObjectSet("mm1",OBJPROP_COLOR,Blue);ObjectSet("mm1",OBJPROP_WIDTH,2);ObjectSet("mm1",OBJPROP_STYLE, STYLE_SOLID);
      ObjectCreate("mm2" ,OBJ_HLINE,0,Time[0],mml2,Time[0],mml2);
      ObjectSet("mm2",OBJPROP_COLOR,Orange);ObjectSet("mm2",OBJPROP_WIDTH,1);ObjectSet("mm2",OBJPROP_STYLE, STYLE_SOLID);
      ObjectCreate("mm3" ,OBJ_HLINE,0,Time[0],mml3,Time[0],mml3);
      ObjectSet("mm3",OBJPROP_COLOR,Red);ObjectSet("mm3",OBJPROP_WIDTH,1);ObjectSet("mm3",OBJPROP_STYLE, STYLE_SOLID);
      ObjectCreate("mm4" ,OBJ_HLINE,0,Time[0],mml4,Time[0],mml4);
      ObjectSet("mm4",OBJPROP_COLOR,Green);ObjectSet("mm4",OBJPROP_WIDTH,1);ObjectSet("mm4",OBJPROP_STYLE, STYLE_SOLID);
      ObjectCreate("mm5" ,OBJ_HLINE,0,Time[0],mml5,Time[0],mml5);
      ObjectSet("mm5",OBJPROP_COLOR,Blue);ObjectSet("mm5",OBJPROP_WIDTH,1);ObjectSet("mm5",OBJPROP_STYLE, STYLE_SOLID);
      ObjectCreate("mm6" ,OBJ_HLINE,0,Time[0],mml6,Time[0],mml6);
      ObjectSet("mm6",OBJPROP_COLOR,Green);ObjectSet("mm6",OBJPROP_WIDTH,1);ObjectSet("mm6",OBJPROP_STYLE, STYLE_SOLID);
      ObjectCreate("mm7" ,OBJ_HLINE,0,Time[0],mml7,Time[0],mml7);
      ObjectSet("mm7",OBJPROP_COLOR,Red);ObjectSet("mm7",OBJPROP_WIDTH,1);ObjectSet("mm7",OBJPROP_STYLE, STYLE_SOLID);
      ObjectCreate("mm8" ,OBJ_HLINE,0,Time[0],mml8,Time[0],mml8);
      ObjectSet("mm8",OBJPROP_COLOR,Orange);ObjectSet("mm8",OBJPROP_WIDTH,1);ObjectSet("mm8",OBJPROP_STYLE, STYLE_SOLID);
      ObjectCreate("mm9" ,OBJ_HLINE,0,Time[0],mml9,Time[0],mml9);
      ObjectSet("mm9",OBJPROP_COLOR,Red);ObjectSet("mm9",OBJPROP_WIDTH,2);ObjectSet("mm9",OBJPROP_STYLE, STYLE_SOLID);
      ObjectCreate("mm-1" ,OBJ_HLINE,0,Time[0],mml99,Time[0],mml99);
      ObjectSet("mm-1",OBJPROP_COLOR,Pink);ObjectSet("mm-1",OBJPROP_WIDTH,1);ObjectSet("mm-1",OBJPROP_STYLE, STYLE_SOLID);
      ObjectCreate("mm-2" ,OBJ_HLINE,0,Time[0],mml98,Time[0],mml98);
      ObjectSet("mm-2",OBJPROP_COLOR,Magenta);ObjectSet("mm-2",OBJPROP_WIDTH,2);ObjectSet("mm-2",OBJPROP_STYLE, STYLE_SOLID);
//----
      //if(GetLastError()!=0) Alert("Some error message");
      WorkTime   =Time[0];
      Periods= Period();
     }
//----
   return(0);
  }
//+------------------------------------------------------------------+