Heiken AshiR

//ðåäàêòèðîâàíî è èñïðàâëåíî 17.04.2006 Íèêîëàé Êîñèöèí
//+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+ 
//|                                                 Heiken AshiR.mq4 |
//|                               Copyright © 2004, Poul_Trade_Forum |
//|                                                         Aborigen |
//|                                          http://forex.kbpauk.ru/ |
//+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+ 
#property copyright "Poul Trade Forum"
#property link      "http://forex.kbpauk.ru/"
//---- îòðèñîâêà èíäèêàòîðà â îòäåëüíîì îêíå
#property  indicator_separate_window
//---- êîëè÷åñòâî èíäèêàòîðíûõ áóôôåðîâ
#property indicator_buffers 2
//---- öâåòà èíäèêàòîðà
#property indicator_color1 Red
#property indicator_color2 Lime
//---- âåðõíåå è íèæíåå îãðàíè÷åíèå øêàëû îêíà èíäèêàòîðà
#property indicator_maximum 1.1
#property indicator_minimum 0.9
//---- òîëùèíà èíäèêàòîðíûõ ëèíèé
#property indicator_width1 2
#property indicator_width2 2
//---- ÂÕÎÄÍÛÅ ÏÀÐÀÌÅÒÐÛ ÈÍÄÈÊÀÒÎÐÀ 
extern int Simbol=110;
//---- èíäèêàòîðíûå áóôôåðû
double HighBuffer[];
double LowBuffer [];
//---- ïåðåìåííûå ñ ïëàâàþùåé òî÷êîé  
double Trend;
//+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+ 
//| Heiken AshiR initialization function                             |
//+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+ 
int init()
  {   
//---- Ñòèëü èñïîëíåíèÿ ãðàôèêà âèäå ñèìâîëîâ
   SetIndexStyle(0,DRAW_ARROW);
   SetIndexStyle(1,DRAW_ARROW);
//---- Îïðåäåëåíèå ñòèëÿ òî÷å÷íûõ îáúåêòîâ
   SetIndexArrow(0,Simbol);
   SetIndexArrow(1,Simbol);
//---- 2 èíäèêàòîðíûõ áóôôåðà èñïîëüçîâàíû äëÿ ñ÷¸òà.
   SetIndexBuffer(0,HighBuffer);
   SetIndexBuffer(1,LowBuffer );
//---- óñòàíîâêà çíà÷åíèé èíäèêàòîðà, êîòîðûå íå áóäóò âèäèìû íà ãðàôèêå
   SetIndexEmptyValue(0,0);
   SetIndexEmptyValue(1,0);
//---- èìåíà äëÿ îêîí äàííûõ è ëýéáû äëÿ ñóáúîêîí.
   IndicatorShortName("Heiken Ashi");
   SetIndexLabel   (0,"Heiken Ashi");
   SetIndexLabel   (1,"Heiken Ashi");
//---- óñòàíîâêà íîìåðà áàðà, íà÷èíàÿ ñ êîòîðîãî áóäåò îòðèñîâûâàòüñÿ èíäèêàòîð  
   SetIndexDrawBegin(0,1);
   SetIndexDrawBegin(1,1);
//----

   return(0);
  }
//+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+ 
//| Heiken AshiR iteration function                                  |
//+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+ 
int start()
  {
//----+ Ââåäåíèå öåëûõ ïåðåìåííûõ è ïîëó÷åíèå óæå ïîäñ÷èòàííûõ áàðîâ
//---- áëîêèðîâàíèå ïåðåñ÷¸òà âñåõ ïîäñ÷èòàííûõ è îòðèñîâàííûõ áàðîâ ïðè ïîäêëþ÷åíèè ê èíòåðíåòó
int MaxBar,limit,counted_bars=INDICATOR_COUNTED(0); INDICATOR_COUNTED(1);
//---- ïðîâåðêà íà âîçìîæíûå îøèáêè
if (counted_bars<0){INDICATOR_COUNTED(-1);return(-1);}
//---- ïîñëåäíèé ïîäñ÷èòàííûé áàð äîëæåí áûòü ïåðåñ÷èòàí 
if (counted_bars>0) counted_bars--;
//---- îïðåäåëåíèå íîìåðà ñàìîãî ñòàðîãî áàðà, íà÷èíàÿ ñ êîòîðîãî áóäåò ïðîèçåä¸í ïåðåñ÷¸ò íîâûõ áàðîâ
MaxBar=Bars-2;
limit=(Bars-1-counted_bars);
//---- èíèöèàëèçàöèÿ íóëÿ
if (limit>MaxBar)
{
  limit=MaxBar;
  HighBuffer[Bars-1]=0; 
  LowBuffer [Bars-1]=0;
}
//----
for (int bar=limit; bar>=0;bar--)
{
  Trend = iCustom(NULL,0,"Heiken Ashi#",1,bar)-iCustom(NULL,0,"Heiken Ashi#",0,bar);
  if (Trend>0){HighBuffer[bar]=1; LowBuffer [bar]=0;}
  if (Trend<0){LowBuffer [bar]=1; HighBuffer[bar]=0;}
}
   return(0);
 }
//+---------------------------------------------------------------------------------------------------------------------------+
//----+ Ââåäåíèå ôóíêöèè INDICATOR_COUNTED (ôàéë INDICATOR_COUNTED.mqh ñëåäóåò ïîëîæèòü â ïàïêó (äèðåêòîðèþ): MetaTrader\experts\include)
#include <INDICATOR_COUNTED.mqh> 
//+---------------------------------------------------------------------------------------------------------------------------+