//+-- Блок 1: Начало ------------------------------------------------+
//|                                                   Canal_Trend.mq4|  
//|                                   Idea - 2006-2015, Dr. Arhimed  |
//|                    Prodaction - Copyright 2006-2015, Dr. Arhimed |
//|                                              All rights reserved |
//+------------------------------------------------------------------+
#property copyright "Copyright 2006-2015, Dr. Arhimed"
#property link      "http://www.metaquotes.net"
#property version   "1.0"
#property description "Версия от 2015.05.03. Индикатор выводит для каждого таймфрейма положение текущей цены относительно цены открытия нулевой свечи для сооветствующего ТФ."
#property description " "
#property description "Canal_Trend - сокращение от словосочения 'candlestick analysis Trend' - свечной анализ тренда"
#property description " "
#property description "Инидикатор дает самый точный анализ тренда в реальном режиме времени и зависит только от положения текущей цены."
#property indicator_chart_window
//--- переменные для хранения изменяемых значений
bool   Kl_fon=false;
int kk;
int Per[10];
int Rezult[10];
string Per1[10];
string Comm,n;
double IOpen0,IClose0;
double Flet;
//+------------------------------------------------------------------+
//| Блок иницилизации переменных                                     |
//+------------------------------------------------------------------+
int init()
  {
   kk=1;
   if(Digits==2 || Digits==3 || Digits==5) {kk=10;}
   if(Digits==3) {kk=100;}
   Per[1]=PERIOD_M1;  Per1[1]="_M1";
   Per[2]=PERIOD_M5;  Per1[2]="_M5";
   Per[3]=PERIOD_M15; Per1[3]="M15";
   Per[4]=PERIOD_M30; Per1[4]="M30";
   Per[5]=PERIOD_H1;  Per1[5]="_H1";
   Per[6]=PERIOD_H4;  Per1[6]="_H4";
   Per[7]=PERIOD_D1;  Per1[7]="_D1";
   Per[8]=10080;      Per1[8]="_W1";
   Per[9]=43200;      Per1[9]="MN1";
   for(int j=1;j<10;j++) { Rezult[j]=0;};
   Comm="";
   n="\n";
   Flet=3*kk*MathPow(10,-1*Digits);
   return(0);
  }
//+------------------------------------------------------------------+
//| Блок деиницилизации переменных                                   |
//+------------------------------------------------------------------+
int deinit()
  {
   return(0);
  }
//+------------------------------------------------------------------+
//| Основной блок программы                                          |
//+------------------------------------------------------------------+
int start()
  {
   Comm="";
   Comm=Comm+"Тренды в ТФ:"+n;
   for(int i=1;i<10;i++)
     {
      Rezult[i]=0;
      IOpen0=0;IOpen0=0;
      IOpen0=iOpen(Symbol(),Per[i],0);
      IClose0=iClose(Symbol(),Per[i],0);
      if(IOpen0>(IClose0+Flet)) {Rezult[i]=2;}
      if(IOpen0<(IClose0-Flet)) {Rezult[i]=1;}
     }
   for(int y=1;y<10;y++)
     {
      if(Rezult[y]==2) {Comm=Comm+Per1[y]+": Медвежий"+n;}
      if(Rezult[y]==1) {Comm=Comm+Per1[y]+": Бычий"+n;}
      if(Rezult[y]==0) {Comm=Comm+Per1[y]+": Флет"+n;}
     }
   Comment(Comm);
   Comm="";
   return(0);
  }
//+------------------------------------------------------------------+