//+------------------------------------------------------------------+ //| Fish.mq5 | //| Copyright © 2005, Yura Prokofiev | //| Yura.prokofiev@gmail.com | //+------------------------------------------------------------------+ #property copyright "Copyright © 2005, Yura Prokofiev" #property link "Yura.prokofiev@gmail.com" //--- номер версии индикатора #property version "1.00" //--- отрисовка индикатора в отдельном окне #property indicator_separate_window //--- количество индикаторных буферов 2 #property indicator_buffers 2 //--- использовано всего одно графическое построение #property indicator_plots 1 //+-----------------------------------+ //| Параметры отрисовки индикатора | //+-----------------------------------+ //--- отрисовка индикатора в виде четырехцветной гистограммы #property indicator_type1 DRAW_COLOR_HISTOGRAM //--- в качестве цветов четырехцветной гистограммы использованы #property indicator_color1 clrDarkOrange,clrViolet,clrGray,clrDeepSkyBlue,clrLimeGreen //--- линия индикатора - сплошная #property indicator_style1 STYLE_SOLID //--- толщина линии индикатора равна 2 #property indicator_width1 2 //--- отображение метки индикатора #property indicator_label1 "Fish" //+-----------------------------------+ //| Входные параметры индикатора | //+-----------------------------------+ input uint period=10; //+-----------------------------------+ //--- объявление динамических массивов, которые в дальнейшем //--- будут использованы в качестве индикаторных буферов double IndBuffer[],ColorIndBuffer[]; //--- объявление целочисленных переменных начала отсчета данных int min_rates_total; //+------------------------------------------------------------------+ //| Fish indicator initialization function | //+------------------------------------------------------------------+ void OnInit() { //--- инициализация переменных начала отсчета данных min_rates_total=int(period+1); //--- превращение динамического массива IndBuffer в индикаторный буфер SetIndexBuffer(0,IndBuffer,INDICATOR_DATA); //--- индексация элементов в буфере как в таймсерии ArraySetAsSeries(IndBuffer,true); //--- превращение динамического массива в цветовой, индексный буфер SetIndexBuffer(1,ColorIndBuffer,INDICATOR_COLOR_INDEX); //--- индексация элементов в буфере как в таймсерии ArraySetAsSeries(ColorIndBuffer,true); //--- осуществление сдвига начала отсчета отрисовки индикатора PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total); //--- установка значений индикатора, которые не будут видимы на графике PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,0.0); //--- создание имени для отображения в отдельном подокне и во всплывающей подсказке IndicatorSetString(INDICATOR_SHORTNAME,"Fish"); //--- определение точности отображения значений индикатора IndicatorSetInteger(INDICATOR_DIGITS,_Digits+1); //--- завершение инициализации } //+------------------------------------------------------------------+ //| Fish 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(rates_totalrates_total || prev_calculated<=0)// проверка на первый старт расчета индикатора { limit=rates_total-min_rates_total-1; // стартовый номер для расчета всех баров int barl=limit+1; MaxH=High[ArrayMaximum(High,barl,period)]; MinL=Low[ArrayMinimum(Low,barl,period)]; price=(High[barl]+Low[barl])/2; Range=MaxH-MinL; if(Range) Value1=0.33*2*((price-MinL)/Range-0.5); Value1=MathMin(MathMax(Value1,-0.999),0.999); } else limit=rates_total-prev_calculated; // стартовый номер для расчета новых баров //--- основной цикл расчета индикатора for(bar=limit; bar>=0 && !IsStopped(); bar--) { MaxH=High[ArrayMaximum(High,bar,period)]; MinL=Low[ArrayMinimum(Low,bar,period)]; price=(High[bar]+Low[bar])/2; Range=MaxH-MinL; if(Range) Value=0.33*2*((price-MinL)/Range-0.5)+0.67*Value1; Value=MathMin(MathMax(Value,-0.999),0.999); Diff=1-Value; if(Diff) IndBuffer[bar]=0.5*MathLog((1+Value)/Diff)+0.5*IndBuffer[bar+1]; else IndBuffer[bar]=1.0; if(bar) Value1=Value; } if(prev_calculated>rates_total || prev_calculated<=0) limit--; //--- основной цикл раскраски индикатора for(bar=limit; bar>=0 && !IsStopped(); bar--) { int clr=2; if(IndBuffer[bar]>0) { if(IndBuffer[bar]>IndBuffer[bar+1]) clr=4; if(IndBuffer[bar]IndBuffer[bar+1]) clr=1; } ColorIndBuffer[bar]=clr; } //--- return(rates_total); } //+------------------------------------------------------------------+