//+------------------------------------------------------------------+ //| ColorBullsBearsEyes.mq5 | //| Copyright © 2007, EmeraldKing, transport_david | //| | //+------------------------------------------------------------------+ #property copyright "Copyright © 2007, EmeraldKing, transport_david" #property link "http://finance.groups.yahoo.com/group/MetaTrader_Experts_and_Indicators/" #property description "BullsBearsEyes" //---- номер версии индикатора #property version "1.00" //---- отрисовка индикатора в отдельном окне #property indicator_separate_window //---- количество индикаторных буферов #property indicator_buffers 3 //---- использовано всего одно графическое построение #property indicator_plots 1 //+----------------------------------------------+ //| Параметры отображения горизонтальных уровней | //+----------------------------------------------+ #property indicator_level5 0.0 #property indicator_levelcolor clrLimeGreen #property indicator_levelstyle STYLE_DASHDOTDOT //+----------------------------------------------+ //| Параметры отрисовки индикатора | //+----------------------------------------------+ //---- отрисовка индикатора в виде трехцветной линии #property indicator_type1 DRAW_COLOR_LINE //---- в качестве цветов трехцветной линии использованы #property indicator_color1 clrBlue,clrRed,clrLime //---- линия индикатора - непрерывная кривая #property indicator_style1 STYLE_SOLID //---- толщина линии индикатора равна 2 #property indicator_width1 2 //---- отображение метки индикатора #property indicator_label1 "BullsBearsEyes" //+----------------------------------------------+ //| Объявление констант | //+----------------------------------------------+ #define RESET 0 // константа для возврата терминалу команды на пересчет индикатора //+----------------------------------------------+ //| Объявление перечислений | //+----------------------------------------------+ enum AlgMode { twist,//изменение направления breakdown1, //пробой средней линии breakdown2, //пробой уровней перезакупа и перепроданности breakdown3 //выход из зон перекупленности и перепроданности + пробой уровней перезакупа и перепроданности }; //+----------------------------------------------+ //| Входные параметры индикатора | //+----------------------------------------------+ input int period=13; // Период усреднения индикатора input double gamma=0.6; // Коэффициент сглаживания индикатора input AlgMode Mode=breakdown2; // Алгоритм расчета сигнала входа input uint HighLevel=75; // Уровень перекупленности input uint MiddleLevel=50; // Уровень середины input uint LowLevel=25; // Уровень перепроданности input int Shift=0; // Сдвиг индикатора по горизонтали в барах //+----------------------------------------------+ //---- объявление динамических массивов, которые будут в //---- дальнейшем использованы в качестве индикаторных буферов double BullsBearsEyes[],ColorBuffer[],SignBuffer[]; //---- объявление целочисленных переменных для хендлов индикаторов int Bears_Handle,Bulls_Handle; //---- объявление целочисленных переменных начала отсчета данных int min_rates_total; //+------------------------------------------------------------------+ //| BullsBearsEyes indicator initialization function | //+------------------------------------------------------------------+ void OnInit() { //---- инициализация переменных начала отсчета данных min_rates_total=int(period+4); //---- получение хендла индикатора iBearsPower Bears_Handle=iBearsPower(NULL,0,int(period)); if(Bears_Handle==INVALID_HANDLE) Print(" Не удалось получить хендл индикатора iBearsPower"); //---- получение хендла индикатора iBullsPower Bulls_Handle=iBullsPower(NULL,0,int(period)); if(Bulls_Handle==INVALID_HANDLE) Print(" Не удалось получить хендл индикатора iBullsPower"); //---- превращение динамического массива в индикаторный буфер SetIndexBuffer(0,BullsBearsEyes,INDICATOR_DATA); //---- осуществление сдвига индикатора 1 по горизонтали PlotIndexSetInteger(0,PLOT_SHIFT,Shift); //---- осуществление сдвига начала отсчета отрисовки индикатора PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total); //---- установка значений индикатора, которые не будут видимы на графике PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,EMPTY_VALUE); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(BullsBearsEyes,true); //---- превращение динамического массива в цветовой, индексный буфер SetIndexBuffer(1,ColorBuffer,INDICATOR_COLOR_INDEX); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(ColorBuffer,true); //---- превращение динамического массива в буфер для хранения данных SetIndexBuffer(2,SignBuffer,INDICATOR_CALCULATIONS); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(SignBuffer,true); //---- инициализация переменной для короткого имени индикатора string shortname; StringConcatenate(shortname,"BullsBearsEyes(",period,", ",gamma,", ",Shift,")"); //--- создание имени для отображения в отдельном подокне и во всплывающей подсказке IndicatorSetString(INDICATOR_SHORTNAME,shortname); //--- определение точности отображения значений индикатора IndicatorSetInteger(INDICATOR_DIGITS,0); //---- количество горизонтальных уровней индикатора 5 IndicatorSetInteger(INDICATOR_LEVELS,5); //---- значения горизонтальных уровней индикатора IndicatorSetDouble(INDICATOR_LEVELVALUE,0,100); IndicatorSetDouble(INDICATOR_LEVELVALUE,1,HighLevel); IndicatorSetDouble(INDICATOR_LEVELVALUE,2,MiddleLevel); IndicatorSetDouble(INDICATOR_LEVELVALUE,3,LowLevel); IndicatorSetDouble(INDICATOR_LEVELVALUE,4,0); //---- в качестве цветов линий горизонтальных уровней использованы IndicatorSetInteger(INDICATOR_LEVELCOLOR,0,clrLimeGreen); IndicatorSetInteger(INDICATOR_LEVELCOLOR,1,clrMagenta); IndicatorSetInteger(INDICATOR_LEVELCOLOR,2,clrGray); IndicatorSetInteger(INDICATOR_LEVELCOLOR,3,clrMagenta); IndicatorSetInteger(INDICATOR_LEVELCOLOR,4,clrLimeGreen); //---- в линии горизонтального уровня использован короткий штрих-пунктир IndicatorSetInteger(INDICATOR_LEVELSTYLE,0,STYLE_DASH); IndicatorSetInteger(INDICATOR_LEVELSTYLE,1,STYLE_DASHDOTDOT); IndicatorSetInteger(INDICATOR_LEVELSTYLE,2,STYLE_DASHDOTDOT); IndicatorSetInteger(INDICATOR_LEVELSTYLE,3,STYLE_DASHDOTDOT); IndicatorSetInteger(INDICATOR_LEVELSTYLE,4,STYLE_DASH); //---- завершение инициализации } //+------------------------------------------------------------------+ //| BullsBearsEyes 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(Bears_Handle)rates_total || prev_calculated<=0)// проверка на первый старт расчета индикатора { limit=int(rates_total-period-1); // стартовый номер для расчета всех баров trend_=0; } else limit=rates_total-prev_calculated; // стартовый номер для расчета новых баров to_copy=limit+1; //---- индексация элементов в массивах, как в таймсериях ArraySetAsSeries(Bears,true); ArraySetAsSeries(Bulls,true); //---- копируем вновь появившиеся данные в массив if(CopyBuffer(Bears_Handle,0,0,to_copy,Bears)<=0) return(RESET); if(CopyBuffer(Bulls_Handle,0,0,to_copy,Bulls)<=0) return(RESET); //---- восстанавливаем значения переменных L0=L0_; L1=L1_; L2=L2_; L3=L3_; if(Mode==breakdown3) trend=trend_; //---- пересчет значений индикаторов for(bar=limit; bar>=0 && !IsStopped(); bar--) { //---- запоминаем значения переменных перед прогонами на текущем баре if(rates_total!=prev_calculated && bar==0) { L0_=L0; L1_=L1; L2_=L2; L3_=L3; } //---- L0A=L0; L1A=L1; L2A=L2; L3A=L3; //---- L0=(1.0-gamma)*(Bears[bar]+Bulls[bar])+gamma*L0A; L1=-gamma*L0+L0A+gamma*L1A; L2=-gamma*L1+L1A+gamma*L2A; L3=-gamma*L2+L2A+gamma*L3A; //---- CU=0.0; CD=0.0; result=0.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) result=CU/(CU+CD); result*=100; //---- BullsBearsEyes[bar]=result; } //---- if(prev_calculated>rates_total || prev_calculated<=0) limit-=min_rates_total; //---- основной цикл раскраски индикатора switch(Mode) { case twist: for(bar=limit; bar>=0 && !IsStopped(); bar--) { int bar1=bar+1; ColorBuffer[bar]=0; if(BullsBearsEyes[bar1]>BullsBearsEyes[bar]) ColorBuffer[bar]=1; if(BullsBearsEyes[bar1]=0 && !IsStopped(); bar--) { ColorBuffer[bar]=0; if(BullsBearsEyes[bar]MiddleLevel) ColorBuffer[bar]=2; } break; //---- case breakdown2: for(bar=limit; bar>=0 && !IsStopped(); bar--) { ColorBuffer[bar]=0; if(BullsBearsEyes[bar]HighLevel) ColorBuffer[bar]=2; } break; //---- case breakdown3: for(bar=limit; bar>=0 && !IsStopped(); bar--) { int bar1=bar+1; if(BullsBearsEyes[bar1]>=HighLevel&&BullsBearsEyes[bar]=LowLevel&&BullsBearsEyes[bar]LowLevel) trend=+1; if(BullsBearsEyes[bar1]<=HighLevel&&BullsBearsEyes[bar]>HighLevel) trend=+1; if(bar==1) trend_=trend; //---- ColorBuffer[bar]=0; if(trend<0) ColorBuffer[bar]=1; if(trend>0) ColorBuffer[bar]=2; } break; } //---- for(bar=limit; bar>=0 && !IsStopped(); bar--) { SignBuffer[bar]=0; int bar1=bar+1; //---- if(SignBuffer[bar1]>0 && ColorBuffer[bar]==1) SignBuffer[bar]=-2; else if((SignBuffer[bar1]<=0 && ColorBuffer[bar]==1) || (SignBuffer[bar+1]<0 && !ColorBuffer[bar])) SignBuffer[bar]=-1; //---- if(SignBuffer[bar+1]<0 && ColorBuffer[bar]==2) SignBuffer[bar]=+2; else if((SignBuffer[bar1]>=0 && ColorBuffer[bar]==2) || (SignBuffer[bar1]>0 && !ColorBuffer[bar])) SignBuffer[bar]=+1; } //---- return(rates_total); } //+------------------------------------------------------------------+