canal_trend

//+-- Áëîê 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);
  }
//+------------------------------------------------------------------+