//+--------------------------------------------------------------------------+ //| Laguerre_ADX_Histogram.mq5 | //| Copyright © 2005, Emerald King / transport_david | //| http://finance.groups.yahoo.com/group/MetaTrader_Experts_and_Indicators/ | //+--------------------------------------------------------------------------+ #property copyright "Copyright © 2007, Emerald King / transport_david" #property link "http://finance.groups.yahoo.com/group/MetaTrader_Experts_and_Indicators/" //---- номер версии индикатора #property version "1.00" //---- отрисовка индикатора в отдельном окне #property indicator_separate_window //--- для расчета и отрисовки индикатора использовано два буфера #property indicator_buffers 2 //---- использовано всего одно графическое построение #property indicator_plots 1 //+----------------------------------------------+ //| Параметры отрисовки индикатора | //+----------------------------------------------+ //---- отрисовка индикатора в виде четырёхцветной гистограммы #property indicator_type1 DRAW_COLOR_HISTOGRAM //---- в качестве цветов четырёхцветной гистограммы использованы #property indicator_color1 clrGray,clrSpringGreen,clrDodgerBlue,clrDeepPink,clrMagenta //---- линия индикатора - сплошная #property indicator_style1 STYLE_SOLID //---- толщина линии индикатора равна 2 #property indicator_width1 2 //--- отображение бычей метки индикатора #property indicator_label1 "Laguerre_ADX Histogram" //+----------------------------------------------+ //| объявление констант | //+----------------------------------------------+ #define RESET 0 // Константа для возврата терминалу команды на пересчёт индикатора //+----------------------------------------------+ //| ВХОДНЫЕ ПАРАМЕТРЫ ИНДИКАТОРА | //+----------------------------------------------+ input uint ADXPeriod=14; input double gamma=0.764; input int Shift=0; // Сдвиг индикатора по горизонтали в барах //+----------------------------------------------+ //---- объявление динамических массивов, которые будут в // дальнейшем использованы в качестве индикаторных буферов double IndBuffer[],ColorIndBuffer[]; //---- Объявление целых переменных начала отсчёта данных int min_rates_total; //---- Объявление целых переменных для хендлов индикаторов int ADX_Handle; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int OnInit() { //---- Инициализация переменных начала отсчёта данных min_rates_total=int(ADXPeriod); //---- получение хендла индикатора iADX ADX_Handle=iADX(NULL,0,ADXPeriod); if(ADX_Handle==INVALID_HANDLE) { Print(" Не удалось получить хендл индикатора iADX"); return(INIT_FAILED); } //--- инициализация индикаторных буферов IndInit(0,IndBuffer,INDICATOR_DATA); IndInit(1,ColorIndBuffer,INDICATOR_DATA); //--- инициализация индикаторов PlotInit(0,EMPTY_VALUE,0,Shift); //--- завершение инициализации return(INIT_SUCCEEDED); } //+------------------------------------------------------------------+ //| Инициализация индикаторного буфера | //+------------------------------------------------------------------+ void IndInit(int Number,double &Buffer[],ENUM_INDEXBUFFER_TYPE Type) { //--- превращение динамического массива в индикаторный буфер SetIndexBuffer(Number,Buffer,Type); //--- индексация элементов в буфере как в таймсерии ArraySetAsSeries(Buffer,true); //--- } //+------------------------------------------------------------------+ //| Инициализация индикатора | //+------------------------------------------------------------------+ void PlotInit(int Number,double Empty_Value,int Draw_Begin,int nShift) { //--- осуществление сдвига начала отсчета отрисовки индикатора PlotIndexSetInteger(Number,PLOT_DRAW_BEGIN,Draw_Begin); //--- установка значений индикатора, которые не будут видимы на графике PlotIndexSetDouble(Number,PLOT_EMPTY_VALUE,Empty_Value); //--- осуществление сдвига индикатора по горизонтали на Shift PlotIndexSetInteger(Number,PLOT_SHIFT,nShift); //--- } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int OnCalculate( const int rates_total, // количество истории в барах на текущем тике const int prev_calculated,// количество истории в барах на предыдущем тике const datetime &time[], const double &open[], const double& high[], // ценовой массив максимумов цены для расчёта индикатора const double& low[], // ценовой массив минимумов цены для расчёта индикатора const double &close[], const long &tick_volume[], const long &volume[], const int &spread[]) { //---- проверка количества баров на достаточность для расчёта if(BarsCalculated(ADX_Handle)rates_total || prev_calculated<=0) // проверка на первый старт расчёта индикатора { limit=rates_total-min_rates_total-1; // стартовый номер для расчёта всех баров //---- стартовая инициализация расчётных коэффициентов pL0_ = 0.0; pL1_ = 0.0; pL2_ = 0.0; pL3_ = 0.0; pL0A_ = 0.0; pL1A_ = 0.0; pL2A_ = 0.0; pL3A_ = 0.0; //---- стартовая инициализация расчётных коэффициентов mL0_ = 0.0; mL1_ = 0.0; mL2_ = 0.0; mL3_ = 0.0; mL0A_ = 0.0; mL1A_ = 0.0; mL2A_ = 0.0; mL3A_ = 0.0; } else limit=rates_total-prev_calculated; // стартовый номер для расчёта новых баров to_copy=limit+1; //---- копируем вновь появившиеся данные в массивы if(CopyBuffer(ADX_Handle,PLUSDI_LINE,0,to_copy,DMIP)<=0) return(RESET); //---- индексация элементов в массивах как в таймсериях ArraySetAsSeries(DMIP,true); //---- восстанавливаем значения переменных L0 = pL0_; L1 = pL1_; L2 = pL2_; L3 = pL3_; L0A = pL0A_; L1A = pL1A_; L2A = pL2A_; L3A = pL3A_; //---- основной цикл расчёта индикатора Laguerre_PlusDi for(bar=limit; bar>=0 && !IsStopped(); bar--) { L0A = L0; L1A = L1; L2A = L2; L3A = L3; //---- L0 = (1 - gamma) * DMIP[bar] + gamma * L0A; L1 = - gamma * L0 + L0A + gamma * L1A; L2 = - gamma * L1 + L1A + gamma * L2A; L3 = - gamma * L2 + L2A + gamma * L3A; //---- CU = 0; CD = 0; //---- if(L0 >= L1) CU = L0 - L1; else CD = L1 - L0; if(L1 >= L2) CU += L1 - L2; else CD += L2 - L1; if(L2 >= L3) CU += L2 - L3; else CD += L3 - L2; //---- if(CU+CD!=0) LDMIP=CU/(CU+CD); //---- Инициализация ячейки индикаторного буфера полученным значением LRSI IndBuffer[bar]=LDMIP; //---- запоминаем значения переменных перед прогонами на текущем баре if(bar==1) { pL0_ = L0; pL1_ = L1; pL2_ = L2; pL3_ = L3; pL0A_ = L0A; pL1A_ = L1A; pL2A_ = L2A; pL3A_ = L3A; } } //---- копируем вновь появившиеся данные в массивы if(CopyBuffer(ADX_Handle,MINUSDI_LINE,0,to_copy,DMIM)<=0) return(RESET); //---- индексация элементов в массивах как в таймсериях ArraySetAsSeries(DMIM,true); //---- восстанавливаем значения переменных L0 = mL0_; L1 = mL1_; L2 = mL2_; L3 = mL3_; L0A = mL0A_; L1A = mL1A_; L2A = mL2A_; L3A = mL3A_; //---- основной цикл расчёта индикатора Laguerre_MinusDi for(bar=limit; bar>=0 && !IsStopped(); bar--) { L0A = L0; L1A = L1; L2A = L2; L3A = L3; //---- L0 = (1 - gamma) * DMIM[bar] + gamma * L0A; L1 = - gamma * L0 + L0A + gamma * L1A; L2 = - gamma * L1 + L1A + gamma * L2A; L3 = - gamma * L2 + L2A + gamma * L3A; //---- CU = 0; CD = 0; //---- if(L0 >= L1) CU = L0 - L1; else CD = L1 - L0; if(L1 >= L2) CU += L1 - L2; else CD += L2 - L1; if(L2 >= L3) CU += L2 - L3; else CD += L3 - L2; //---- if(CU+CD!=0) LDMIM=CU/(CU+CD); //---- Инициализация ячейки индикаторного буфера полученным значением LRSI IndBuffer[bar]-=LDMIM; //---- запоминаем значения переменных перед прогонами на текущем баре if(bar==1) { mL0_ = L0; mL1_ = L1; mL2_ = L2; mL3_ = L3; mL0A_ = L0A; mL1A_ = L1A; mL2A_ = L2A; mL3A_ = L3A; } } if(prev_calculated>rates_total || prev_calculated<=0) limit--; //---- Основной цикл раскраски индикатора Ind for(bar=limit; bar>=0 && !IsStopped(); bar--) { ColorIndBuffer[bar]=0; if(IndBuffer[bar]>0) { if(IndBuffer[bar]>IndBuffer[bar+1]) ColorIndBuffer[bar]=1; if(IndBuffer[bar]IndBuffer[bar+1]) ColorIndBuffer[bar]=4; } } //---- return(rates_total); } //+------------------------------------------------------------------+