//+------------------------------------------------------------------+ //| FGDI.mq5 | //| Copyright © 2008, jppoton@yahoo.com | //| http://fractalfinance.blogspot.com/ | //+------------------------------------------------------------------+ #property copyright "Copyright © 2008, jppoton@yahoo.com" #property link "http://fractalfinance.blogspot.com/" #property description "Fractal Graph Dimension Indicator" //---- номер версии индикатора #property version "1.00" //---- отрисовка индикатора в отдельном окне #property indicator_separate_window //---- количество индикаторных буферов 7 #property indicator_buffers 7 //---- использовано всего 5 графических построений #property indicator_plots 3 //+--------------------------------------------+ //| Параметры отрисовки индикатора | //+--------------------------------------------+ //---- отрисовка индикатора в виде цветной линии #property indicator_type1 DRAW_COLOR_LINE //---- в качестве цвета линии индикатора использованы #property indicator_color1 clrBlue,clrRed //---- линия индикатора - сплошная #property indicator_style1 STYLE_SOLID //---- толщина линии индикатора равна 2 #property indicator_width1 2 //---- отображение метки индикатора #property indicator_label1 "Fdi" //+--------------------------------------------+ //| Параметры отрисовки индикатора BB уровней | //+--------------------------------------------+ //---- отрисовка уровней Боллинджера в виде цветных линий #property indicator_type2 DRAW_COLOR_LINE #property indicator_type3 DRAW_COLOR_LINE //---- выбор цветов уровней Боллинджера #property indicator_color2 clrDodgerBlue,clrMagenta #property indicator_color3 clrDodgerBlue,clrMagenta //---- уровни Боллинджера - сплошные #property indicator_style2 STYLE_SOLID #property indicator_style3 STYLE_SOLID //---- толщина уровней Боллинджера равна 2 #property indicator_width2 2 #property indicator_width3 2 //---- отображение меток уровней Боллинджера #property indicator_label2 "+2Sigma" #property indicator_label3 "-2Sigma" //+--------------------------------------------+ //| объявление перечислений | //+--------------------------------------------+ enum ENUM_APPLIED_PRICE_ //Тип константы { PRICE_CLOSE_ = 1, //Close PRICE_OPEN_, //Open PRICE_HIGH_, //High PRICE_LOW_, //Low PRICE_MEDIAN_, //Median Price (HL/2) PRICE_TYPICAL_, //Typical Price (HLC/3) PRICE_WEIGHTED_, //Weighted Close (HLCC/4) PRICE_SIMPL_, //Simpl Price (OC/2) PRICE_QUARTER_, //Quarted Price (HLOC/4) PRICE_TRENDFOLLOW0_, //TrendFollow_1 Price PRICE_TRENDFOLLOW1_, //TrendFollow_2 Price PRICE_DEMARK_ //Demark Price }; //+--------------------------------------------+ //| ВХОДНЫЕ ПАРАМЕТРЫ ИНДИКАТОРА | //+--------------------------------------------+ input uint e_period=30; //глубина усреднения input double e_random_line=1.5; input ENUM_APPLIED_PRICE_ IPC=PRICE_CLOSE_;//ценовая константа input int Shift=0; // сдвиг индикатора по горизонтали в барах //+--------------------------------------------+ //---- объявление динамического массива, который будет в дальнейшем использован в качестве индикаторного буфера double ExtLineBuffer0[]; //---- объявление динамических массивов, которые будут в дальнейшем использованы в качестве индикаторных буферов уровней Боллинджера double ExtLineBuffer1[],ExtLineBuffer2[]; //---- объявление динамических массивов, которые будут в дальнейшем использованы в качестве цветовых индексных буферов double ColorBuffer0[],ColorBuffer1[],ColorBuffer2[]; //---- объявление динамического массива, который будет в // дальнейшем использован в качестве буфера данных double ExtLineBuffer3[]; double LOG_2; //---- Объявление целых переменных начала отсчёта данных int min_rates_total,g_period_minus_1; //---- Объявление стрингов для текстовых меток string upper_name,middle_name,lower_name; //+------------------------------------------------------------------+ //| XMA BBx3 indicator initialization function | //+------------------------------------------------------------------+ void OnInit() { //---- Инициализация переменных начала отсчёта данных min_rates_total=int(e_period)+1; g_period_minus_1=int(e_period-1); LOG_2=MathLog(2.0); //---- превращение динамического массива в индикаторный буфер SetIndexBuffer(0,ExtLineBuffer0,INDICATOR_DATA); //---- превращение динамического массива в цветовой, индексный буфер SetIndexBuffer(1,ColorBuffer0,INDICATOR_COLOR_INDEX); //---- осуществление сдвига индикатора 1 по горизонтали PlotIndexSetInteger(0,PLOT_SHIFT,Shift); //---- осуществление сдвига начала отсчёта отрисовки индикатора PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total); //---- установка значений индикатора, которые не будут видимы на графике PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,EMPTY_VALUE); //---- запрет на отображение значений индикатора в левом верхнем углу окна индикатора PlotIndexSetInteger(0,PLOT_SHOW_DATA,false); //---- превращение динамических массивов в индикаторные буферы SetIndexBuffer(2,ExtLineBuffer1,INDICATOR_DATA); //---- превращение динамического массива в цветовой, индексный буфер SetIndexBuffer(3,ColorBuffer1,INDICATOR_COLOR_INDEX); SetIndexBuffer(4,ExtLineBuffer2,INDICATOR_DATA); //---- превращение динамического массива в цветовой, индексный буфер SetIndexBuffer(5,ColorBuffer2,INDICATOR_COLOR_INDEX); SetIndexBuffer(6,ExtLineBuffer3,INDICATOR_DATA); //---- установка позиции, с которой начинается отрисовка уровней PlotIndexSetInteger(1,PLOT_DRAW_BEGIN,min_rates_total); PlotIndexSetInteger(2,PLOT_DRAW_BEGIN,min_rates_total); //---- запрет на отрисовку индикатором пустых значений PlotIndexSetDouble(1,PLOT_EMPTY_VALUE,EMPTY_VALUE); PlotIndexSetDouble(2,PLOT_EMPTY_VALUE,EMPTY_VALUE); //--- осуществление сдвига индикаторов по горизонтали на Shift PlotIndexSetInteger(1,PLOT_SHIFT,Shift); PlotIndexSetInteger(2,PLOT_SHIFT,Shift); //---- запрет на отображение значений индикатора в левом верхнем углу окна индикатора PlotIndexSetInteger(1,PLOT_SHOW_DATA,false); PlotIndexSetInteger(2,PLOT_SHOW_DATA,false); //---- количество горизонтальных уровней индикатора 1 IndicatorSetInteger(INDICATOR_LEVELS,1); //---- значения горизонтальных уровней индикатора IndicatorSetDouble(INDICATOR_LEVELVALUE,0,e_random_line); //---- в качестве цветов линий горизонтальных уровней использован зелёный цвет IndicatorSetInteger(INDICATOR_LEVELCOLOR,0,clrTeal); //---- в линии горизонтального уровня использован короткий штрих-пунктир IndicatorSetInteger(INDICATOR_LEVELSTYLE,0,STYLE_DASHDOTDOT); //---- инициализации переменной для короткого имени индикатора string shortname=""; StringConcatenate(shortname,"Fractal Graph Dimension Indicator(",e_period,", ",DoubleToString(e_random_line,2),")"); //--- создание имени для отображения в отдельном подокне и во всплывающей подсказке IndicatorSetString(INDICATOR_SHORTNAME,shortname); //--- определение точности отображения значений индикатора IndicatorSetInteger(INDICATOR_DIGITS,_Digits+1); //---- завершение инициализации } //+------------------------------------------------------------------+ //| Custom 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) // проверка на первый старт расчёта индикатора first=0; // стартовый номер для расчёта всех баров else first=prev_calculated-1; // стартовый номер для расчёта новых баров //---- Загрузка данных для расчёта индикатора for(bar=first; barrates_total || prev_calculated<=0) first=min_rates_total; // стартовый номер для расчёта всех баров FRACTAL_BANDS(first,rates_total); //---- return(rates_total); } //+================================================================================================================+ //+=== FUNCTION : _computeLastNbBars ===+ //+=== ===+ //+=== ===+ //+=== This callback is fired by metatrader for each tick ===+ //+=== ===+ //+=== In : ===+ //+=== - lastBars : these "n" last bars must be repainted ===+ //+=== ===+ //+================================================================================================================+ //+------------------------------------------------------------------+ //| FUNCTION : FRACTAL_BANDS | //| Compute the Fractal Bands for input data | //| In : | //| - lastBars : these "n" last bars are considered for | //| calculating the fractal dimension | //| - inputData : data array on which the computation is applied | //| For further theoretical explanations, see my blog: | //| http://fractalfinance.blogspot.com/ | //+------------------------------------------------------------------+ void FRACTAL_BANDS(int lastBar,int Rates_Total) { double diff,priorDiff; double length,variance,stddev; double priceMax,priceMin,mean,delta; double fdi,sum; //---- for(int index=lastBar; index0.0) { diff=(ExtLineBuffer3[index-kkk]-priceMin)/(priceMax-priceMin); if(kkk>0) { length+=MathSqrt(MathPow(diff-priorDiff,2.0)+(1.0/MathPow(e_period,2.0))); } priorDiff=diff; } } if(length>0.0) { fdi=1.0+(MathLog(length)+LOG_2)/MathLog(2*g_period_minus_1); mean=length/g_period_minus_1; sum=NULL; for(int ppp=0; ppp<=g_period_minus_1; ppp++) { if(( priceMax-priceMin)>0.0) { diff=(ExtLineBuffer3[index-ppp]-priceMin)/(priceMax-priceMin); if(ppp>0) { delta=MathSqrt(MathPow(diff-priorDiff,2.0)+(1.0/MathPow(e_period,2.0))); sum+=MathPow(delta-(length/g_period_minus_1),2); } priorDiff=diff; } } variance=sum/(MathPow(length,2)*MathPow(MathLog(2*g_period_minus_1),2)); } else { /* ** The FDI algorithm suggests in this case a zero value. ** I prefer to use the previous FDI value. */ fdi=NULL; variance=NULL; } ExtLineBuffer0[index]=fdi; stddev=MathSqrt(variance); ExtLineBuffer1[index]=fdi+stddev; ExtLineBuffer2[index]=fdi-stddev; if(fdi>e_random_line) { ColorBuffer0[index]=0; ColorBuffer1[index]=0; if (fdi-stddev>e_random_line) ColorBuffer2[index]=0; else ColorBuffer2[index]=1; } else { ColorBuffer0[index]=1; ColorBuffer2[index]=1; if (fdi+stddev>e_random_line) ColorBuffer1[index]=0; else ColorBuffer1[index]=1; } } } //+------------------------------------------------------------------+ //| FUNCTION : _highest | //| Search for the highest value in an array data | //| In : | //| - n : find the highest on these n data | //| - index : begin to search for from this index | //| - inputData : data array on which the searching for is done | //| | //| Return : the highest value | //+------------------------------------------------------------------+ double _highest(int n,int index,double &inputData[]) { double highest=0.0; //---- for(int i=index-n+1; i<=index; i++) { if(inputData[i]>highest) highest=inputData[i]; } return( highest ); } //+------------------------------------------------------------------+ //| FUNCTION : _lowest | //| Search for the lowest value in an array data | //| In : | //| - n : find the hihest on these n data | //| - index : begin to search for from this index | //| - inputData : data array on which the searching for is done | //| | //| Return : the highest value | //+------------------------------------------------------------------+ double _lowest(int n,int index,double &inputData[]) { double lowest=9999999999.0; //---- for(int i=index-n+1; i<=index; i++) { if(inputData[i]Open[bar])return(High[bar]); else { if(Close[bar]Open[bar])return((High[bar]+Close[bar])/2.0); else { if(Close[bar]Open[bar]) res=(res+High[bar])/2; if(Close[bar]==Open[bar]) res=(res+Close[bar])/2; return(((res-Low[bar])+(res-High[bar]))/2); } //---- default: return(Close[bar]); } //---- //return(0); } //+------------------------------------------------------------------+