MTF_PriceChannel_FiboLevels

//+------------------------------------------------------------------------------+
//|                       MTF_PriceChannel_FiboLevels.mq4                mod. ik |
//+------------------------------------------------------------------------------+

#property indicator_chart_window
#property indicator_buffers 7
#property indicator_color1 DodgerBlue
#property indicator_color2 DodgerBlue
#property indicator_color3 DodgerBlue
#property indicator_color4 DodgerBlue
#property indicator_color5 DodgerBlue
#property indicator_color6 DodgerBlue
#property indicator_color7 DodgerBlue

extern int Range=6;
extern int TimeFrame=0;
extern int Shift=0;

double UpBuffer[];
double DnBuffer[];
double MdBuffer[];
double Up23.6Buffer[];
double Dn23.6Buffer[];
double Up61.8Buffer[];
double Dn61.8Buffer[];


int i;  //ñ÷åò÷èê
string PeriodName;  //õðàíèò èìÿ òàéìôðåéìà

int init()
{
string short_name;

SetIndexStyle(0,DRAW_LINE);
SetIndexBuffer(0,UpBuffer);
 SetIndexShift(0, Shift);
SetIndexLabel(0,"ChannelHi("+Range+"),TF"+TimeFrame+",Shft"+Shift+"");
SetIndexDrawBegin(0,0);

SetIndexStyle(1,DRAW_LINE);
SetIndexBuffer(1,Dn23.6Buffer);
 SetIndexShift(1, Shift);
SetIndexLabel(1,"ChannelDn23.6("+Range+"),TF"+TimeFrame+",Shft"+Shift+"");
SetIndexDrawBegin(1,0);

SetIndexStyle(2,DRAW_LINE);
SetIndexBuffer(2,Up61.8Buffer);
 SetIndexShift(2, Shift);
SetIndexLabel(2,"ChannelUp61.8("+Range+"),TF"+TimeFrame+",Shft"+Shift+"");
SetIndexDrawBegin(2,0);

SetIndexStyle(3,DRAW_LINE);
SetIndexBuffer(3,MdBuffer);
 SetIndexShift(3, Shift);
SetIndexLabel(3,"MiddleChannel("+Range+"),TF"+TimeFrame+",Shft"+Shift+"");
SetIndexDrawBegin(3,0);

SetIndexStyle(4,DRAW_LINE);
SetIndexBuffer(4,Dn61.8Buffer);
 SetIndexShift(4, Shift);
SetIndexLabel(4,"ChannelDn61.8("+Range+"),TF"+TimeFrame+",Shft"+Shift+"");
SetIndexDrawBegin(4,0);

SetIndexStyle(5,DRAW_LINE);
SetIndexBuffer(5,Up23.6Buffer);
 SetIndexShift(5, Shift);
SetIndexLabel(5,"ChannelUp23.6("+Range+"),TF"+TimeFrame+",Shft"+Shift+"");
SetIndexDrawBegin(5,0);


SetIndexStyle(6,DRAW_LINE);
SetIndexBuffer(6,DnBuffer);
 SetIndexShift(6, Shift);
SetIndexLabel(6,"ChannelLo ("+Range+"),TF"+TimeFrame+",Shft"+Shift+"");
SetIndexDrawBegin(6,0);





IndicatorShortName(short_name);

switch(TimeFrame) // ïðèñâîåíèå çíà÷åíèÿ TimeFrame â çàâèñèìîñòè îò âûáðàííîãî â ïàðàìåòðàõ
  {
  case 1    : TimeFrame=PERIOD_M1;  break; //â òîì æå ïîðÿäêå, ÷òî è êíîïêè íà ïàíåëè
  case 5    : TimeFrame=PERIOD_M5;  break;
  case 15   : TimeFrame=PERIOD_M15; break;
  case 30   : TimeFrame=PERIOD_M30; break;
  case 60   : TimeFrame=PERIOD_H1;  break;
  case 240  : TimeFrame=PERIOD_H4;  break;
  case 1440 : TimeFrame=PERIOD_D1;  break;
  case 10080: TimeFrame=PERIOD_W1;  break;
  case 43200: TimeFrame=PERIOD_MN1; break;
  default   : TimeFrame=Period();   break;
  }

switch(TimeFrame) // ïîëó÷åíèå èìåíè òàéìôðåéìà
  {
  case PERIOD_M1    : PeriodName="M1";  break;
  case PERIOD_M5    : PeriodName="M5";  break;
  case PERIOD_M15   : PeriodName="M15"; break;
  case PERIOD_M30   : PeriodName="M30"; break;
  case PERIOD_H1    : PeriodName="H1";  break;
  case PERIOD_H4    : PeriodName="H4";  break;
  case PERIOD_D1    : PeriodName="D1";  break;
  case PERIOD_W1    : PeriodName="W1";  break;
  case PERIOD_MN1   : PeriodName="MN1"; break;
  }
short_name="MTF_PriceChannel_FiboLevels";
return(0);
}

int start()
{
int i,counted_bars=IndicatorCounted();
//---- initial zero
   if(counted_bars<1)
      for(i=1;i<Bars;i++)
      {
DnBuffer[i]=0.0;         
UpBuffer[i]=0.0;         
MdBuffer[i]=0.0;               
Dn23.6Buffer[i]=0.0; 
Up23.6Buffer[i]=0.0; 
Dn61.8Buffer[i]=0.0; 
Up61.8Buffer[i]=0.0; 


      }
//----
datetime TimeArray[];
double LowArray[],HighArray[];
int y=0;  //ñ÷åò÷èê áàðîâ äðóãîãî òàéìôðåéìà

if (TimeFrame<Period()) //íåëüçÿ ïðîðèñîâàòü èíäèêàòîð ìåíüøåãî òàéìôðåéìà íà áîëüøåì
  {
  SetIndexDrawBegin(0,Bars);  //î÷èñòêà îò ìóñîðà
  SetIndexDrawBegin(1,Bars);
  SetIndexDrawBegin(2,Bars);
   SetIndexDrawBegin(3,Bars);
   SetIndexDrawBegin(4,Bars);
   SetIndexDrawBegin(5,Bars);
   SetIndexDrawBegin(6,Bars);
  return(0);
  }
//ïîëó÷åíèå âðåìåíè íà÷àëà êàæäîãî áàðà ñ äðóãîãî òàéìôðåéìà
ArrayCopySeries(TimeArray,MODE_TIME,Symbol(),TimeFrame);
//ïîëó÷åíèå âñåõ Low îòòóäà æå
ArrayCopySeries(LowArray,MODE_LOW,Symbol(),TimeFrame);
//àíàëîãè÷íî High
ArrayCopySeries(HighArray,MODE_HIGH,Symbol(),TimeFrame);

for(i=0,y=0;i<Bars-counted_bars;i++)
  {
  //åñëè âðåìÿ íà÷àëà áàðà íàøåãî òàéìôðåéìà ìåíüøå âðåìåíè íà÷àëà áàðà äðóãîãî òàéìôðåéìà, 
  //òî ïåðåõîäèì ê ñëåäóþùåìó áàðó íà äðóãîì òàéìôðåéìå (îòñ÷åò â îáðàòíîì ïîðÿäêå)
  if (Time[i]<TimeArray[y]) y++;
  //|âûáèðàåò áàð ñ ìèíèìàëüíûì/ìàêñèìàëüíûì çíà÷åíèåì ñ äðóãîãî òàéìôðåéìà,
  DnBuffer[i]=LowArray[Lowest(NULL,TimeFrame,MODE_LOW,Range,y)];
  //|è ïî íîìåðó áàðà âûòàñêèâàåò ñîîòâåòñòâóþùåå çíà÷åíèå èç ìàññèâîâ
  UpBuffer[i]=HighArray[Highest(NULL,TimeFrame,MODE_HIGH,Range,y)];
  //|LowArray è HighArray
  MdBuffer[i]=(UpBuffer[i]+DnBuffer[i])/2;
  
      Dn23.6Buffer[i] = UpBuffer[i]-((UpBuffer[i]-DnBuffer[i])*23.6/100);
      Up23.6Buffer[i] = DnBuffer[i]+((UpBuffer[i]-DnBuffer[i])*23.6/100);
      Up61.8Buffer[i] = DnBuffer[i]+((UpBuffer[i]-DnBuffer[i])*61.8/100);
      Dn61.8Buffer[i] = UpBuffer[i]-((UpBuffer[i]-DnBuffer[i])*61.8/100);
  

  
  }

return(0);
}

//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//---- 
   Comment("");
//----
   return(0);
  }