MA_with_canal_v1

//+------------------------------------------------------------------+
//|                                                MA_with_canal.mq4 |
//|                     Copyright © 2009, Áóãàåâ Äàíèèë Âëàäèìèðîâè÷ |
//|                                         e-mail: buga1922@mail.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2009, Áóãàåâ Äàíèèë Âëàäèìèðîâè÷"
#property link "mailto:buga1922@mail.ru"

#property indicator_chart_window          // Ñòðîèì èíäèêàòîð â ãëàâíîì îêíå
#property indicator_buffers 3             // Êîëè÷åñòâî èñïîëüçóåìûõ áóôåðîâ = 3
#property indicator_color1 Red            // Öâåò 1-îé ëèíèè - êðàñíûé
#property indicator_color2 Red            // Öâåò 2-îé ëèíèè - êðàñíûé
#property indicator_color3 Red            // Öâåò 3-åé ëèíèè - êðàñíûé
#property indicator_width3  2             // Òîëùèíà òðåòüåé ëèíèè - 2

// Ìàññèâû äëÿ õðàíåíèÿ çíà÷åíèé èíäèêàòîðà
double Buffer1[],
       Buffer2[],
       Buffer3[];

// Çàäàâàåìûå ïîëüçîâàòåëåì ïåðåìåííûå

extern double ma_canal = 2;               // Êîýôôèöèåíò èñïîëüçóåìûé äëÿ ðàññ÷åòà øèðèíû êàíàëà (ma_canal*ñðåäíèé_ðàçìåð_ñâå÷è)
extern int    ma_period = 21,             // Ïåðèîä äëÿ ðàññ÷åòà ñêîëüçÿùåé ñðåäíåé
              ma_method=3,                // Ìåòîä ðàññ÷åòà ñðåäíåé 0-ïðîñòàÿ SMA, 1-ýêñïîòåíöèàëüíàÿ EMA, 2-ñãëàæåííàÿ SMMA,
                                          //  3-ëèíåéíî-âçâåøåííàÿ LWMA
              ma_cena=0;                  // Öåíû ïî êîòîðûì ñòðîèòñÿ ÌÀ 0-öåíà çàêðûòèÿ, 1-öåíà îòêðûòèÿ, 2-ìàêñèìàëüíàÿ, 3-ìèíèìàëüíàÿ,
                                          //  4-ñðåäíÿÿ, 5-òèïè÷íàÿ, 6-âçâåøåííàÿ öåíà çàêðûòèÿ
                                          
// Ïåðåìåííûå äëÿ îòîáðàæåíèÿ íàñòðîåê èíäèêàòîðà
string ma_method_str,ma_cena_str;                                     

                         //---ÏÎËÜÇÎÂÀÒÅËÜÑÊÈÅ ÔÓÍÊÖÈÈ---//
                         
// Ôóíêöèÿ, ïîìîãàþùàÿ âûâåñòè íàñòðîéêè èíäèêàòîðà
void PARAMETRY()
 {
  switch(ma_method)
   {
    case 0:  ma_method_str = "ïðîñòàÿ ñðåäíÿÿ (SMA)";             break;
    case 1:  ma_method_str = "ýêñïîòåíöèàëüíàÿ ñðåäíÿÿ (EMA)";    break;
    case 2:  ma_method_str = "ñãëàæåííàÿ ñðåäíÿÿ (SMMA)";         break;
    case 3:  ma_method_str = "ëèíåéíî-âçâåøåííàÿ ñðåäíÿÿ (LWMA)"; break;
    default: ma_method_str = "ââåäåí íåêîððåêòíûé ïàðàìåòð";      break;
   }
  switch(ma_cena)
   {
    case 0:  ma_cena_str = "öåíà çàêðûòèÿ (PRICE_CLOSE)";               break;
    case 1:  ma_cena_str = "öåíà îòêðûòèÿ (PRICE_OPEN)";                break;
    case 2:  ma_cena_str = "ìàêñèìàëüíàÿ öåíà (PRICE_HIGH)";            break;
    case 3:  ma_cena_str = "ìèíèìàëüíàÿ öåíà (PRICE_LOW)";              break;
    case 4:  ma_cena_str = "ñðåäíÿÿ öåíà (PRICE_MEDIAN)";               break;
    case 5:  ma_cena_str = "òèïè÷íàÿ öåíà (PRICE_TYPICAL)";             break;
    case 6:  ma_cena_str = "âçâåøåííàÿ öåíà çàêðûòèÿ (PRICE_WEIGHTED)"; break;
    default: ma_cena_str = "ââåäåí íåêîððåêòíûé ïàðàìåòð";              break;
   }
 }

// Ôóíêöèÿ âûïîëíÿåò ïðîâåðêó íà êîððåêòíîñòü ââåäåííûõ ïàðàìåòðîâ,
//  â ñëó÷àå íåîáõîäèìîñòè âûâîäèò îøèáêó. Âîçâðàùàåò true, åñëè âñå ïàðàìåòðû êîððåêòíû.
bool PROVERKA()
 {
  // Óäàëÿåì ñóùåñòâóþùèå ñîîáùåíèÿ îá îøèáêå
  ObjectDelete("error"); 
  ObjectDelete("advice");
  return(true);
  // Ïðîèçâîäèì ïðîâåðêó íà íàëè÷èå îøèáîê
  if ( ma_canal < 0)
   {
    VYVOD(": Èçìåíèòå ïàðàìåòð ma_canal.","Ïàðàìåòð äîëæåí áûòü ïîëîæèòåëüíûì");return(false);
   }
  else 
   {
    if ( ( ma_period < 0) || ( ma_period > Bars-2) )
     {
      VYVOD(": Èçìåíèòå ïàðàìåòð ma_period.","Çíà÷åíèå ïàðàìåòðà äîëæíî ïðèíàäëåæàòü äèàïàçîíó [0;"+(Bars-2)+"]");return(false);
     }
    else
     {
      if ( ( ma_method < 0) || ( ma_method > 3) )
       {
        VYVOD(": Èçìåíèòå ïàðàìåòð ma_method.","Çíà÷åíèå ïàðàìåòðà äîëæíî ïðèíàäëåæàòü äèàïàçîíó [0;3]");return(false);
       }
      else
       {
        if ( ( ma_cena < 0) || ( ma_cena > 6) )
         {
          VYVOD(": Èçìåíèòå ïàðàìåòð ma_cena.","Çíà÷åíèå ïàðàìåòðà äîëæíî ïðèíàäëåæàòü äèàïàçîíó [0;6]");return(false);
         }
       } 
     }
   }
 }  

// Ôóíêöèÿ âûâîäèò èíôîðìàöèþ îòíîñèòåëüíî íåêîððåêòíûõ ïàðàìåòðàõ èíäèêàòîðà
void VYVOD(string error, string advice)
 {
  ObjectCreate  ( "error", OBJ_LABEL,0,0,0);                                 // Ñîçäàåì ìåòêó, êîòîðàÿ áóäåò ñîîáùàòü î
                                                                             //  íåêîððåêòíûõ çàäàííûõ ïàðàìåòðàõ
  ObjectSetText ( "error", "Èíäèêàòîð MA_with_canal"+error,12,"Arial", Red); // Çàäàåì òåêñò ìåòêè îá îøèáêå
  ObjectSet     ( "error", OBJPROP_CORNER,    1);                            // Çàäàåì óãîë ïðèâÿçêè ìåòêè (ïðàâûé âåðõíèé)
  ObjectSet     ( "error", OBJPROP_XDISTANCE,15);                            // Çàäàåì ñäâèã îòíîñèòåëüíî ìåòêè ïî ãîðèçîíòàëè
  ObjectSet     ( "error", OBJPROP_YDISTANCE,15);                            // Çàäàåì ñäâèã îòíîñèòåëüíî ìåòêè ïî âåðòèêàëè
  
  ObjectCreate  ( "advice", OBJ_LABEL,0,0,0);                                // Ñîçäàåì ìåòêó, êîòîðàÿ áóäåò ñîîáùàòü ðåêîìåíäàöèè
                                                                             //  î äîïóñòèìîì äèàïàçîíå ïàðàìåòðîâ
  ObjectSetText ( "advice", advice,12,"Arial", Red);                         // Çàäàåì òåêñò ìåòêè ñ ðåêîìåíäàöèÿìè
  ObjectSet     ( "advice", OBJPROP_CORNER,    1);                           // Çàäàåì óãîë ïðèâÿçêè ìåòêè (ïðàâûé âåðõíèé)          
  ObjectSet     ( "advice", OBJPROP_XDISTANCE,15);                           // Çàäàåì ñäâèã îòíîñèòåëüíî ìåòêè ïî ãîðèçîíòàëè
  ObjectSet     ( "advice", OBJPROP_YDISTANCE,40);                           // Çàäàåì ñäâèã îòíîñèòåëüíî ìåòêè ïî âåðòèêàëè
 }

double canal(int lag)
 {
  int i;
  double sum=0;
  for (i=lag; i<=lag+ma_period; i++)  sum=sum+(High[i]-Low[i]);
  return(sum/ma_period*ma_canal);
 }
 
// Ôóíêöèÿ ïðîèçâîäèò ðàññ÷åò çíà÷åíèé èíäèêàòîðà
void RASSCHET()
  {
   double MA;
   
   int counted_bars = IndicatorCounted();
   if(counted_bars < 0)  return(-1);
   if(counted_bars > 0)   counted_bars--;
   int bars = Bars - counted_bars;
   if(counted_bars==0) bars-=1+ma_period;
      
   while ( bars > 0 )
      {
       MA=iMA(Symbol(),0,ma_period,0,ma_method,ma_cena,bars);
       Buffer1[bars]=( MA + canal(bars));
       Buffer2[bars]=( MA - canal(bars));
       Buffer3[bars]=MA;
       bars--;
      }
  }

// Ôóíêöèÿ èíèöèàëèçàöèè
void init()
  {
   // Óñòàíàâëèâàåì ñòèëü îòðèñîâêè - ïðîñòàÿ ëèíèÿ,ñòèëü ëèíèè - ñïëîøíàÿ, äëÿ âñåõ ëèíèé èíäèêàòîðà
   SetIndexStyle (0, DRAW_LINE, STYLE_SOLID); 
   SetIndexStyle (1, DRAW_LINE, STYLE_SOLID);
   SetIndexStyle (2, DRAW_LINE, STYLE_SOLID);
   
   // Ñâÿçûâàåì ìàññèâû Buffer ñ áóôåðàìè ïîëüçîâàòåëüñêîãî èíäèêàòîðà
   SetIndexBuffer (0, Buffer1);              
   SetIndexBuffer (1, Buffer2);
   SetIndexBuffer (2, Buffer3);
  
   // Çàäàåì èìÿ ëèíèé èíäèêàòîðà
   SetIndexLabel (0, "high_limit");
   SetIndexLabel (1, "low_limit");
   SetIndexLabel (2, "MA");
   
   // Çàäàåì êîðîòêîå èìÿ èíäèêàòîðà
   IndicatorShortName("MA_with_canal ("+ma_period+";"+ DoubleToStr(ma_canal,1)+")");
   
   PARAMETRY(); // Îïðåäåëÿåì êàêèì ñïîñîáîì ïðîèçâîäèòñÿ ðàññ÷åò ñêîëüçÿùåé ñðåäíåé
  }

// Ôóíêöèÿ äåèíèöèàëèçàöèè
void deinit()
  { 
   // Óäàëÿåì âûâåäåííûå êîììåíòàðèè è ñîîáùåíèå îá îøèáêå
   Comment("");
   ObjectDelete("error"); 
   ObjectDelete("advice");
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
void start()
  {
   if ( PROVERKA() == true)
    {
     RASSCHET();
    }
   Comment("Èíäèêàòîð MA_with_canal\nÏåðèîä ñêîëüçÿùåé ñðåäíåé="+ma_period+
           "; Êîýôôèöèåíò äëÿ ðàññ÷åòà êàíàëà="+DoubleToStr(ma_canal,1)+
           "\nÄëÿ ðàññ÷åòà ÌÀ èñïîëüçîâàëàñü "+ma_cena_str+
           "\nÌåòîä âû÷èñëåíèÿ ñêîëüçÿùåé ñðåäíåé - "+ma_method_str+
           "\nÔàêòè÷åñêàÿ øèðèíà êàíàëà="+DoubleToStr(canal(0),4));
  }
 
//+------------------------------------------------------------------+