//+------------------------------------------------------------------+ //| Fractal_CCI.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 "Фрактальный CCI" //---- номер версии индикатора #property version "1.01" //---- отрисовка индикатора в отдельном окне #property indicator_separate_window //---- количество индикаторных буферов 2 #property indicator_buffers 2 //---- использовано всего одно графическое построение #property indicator_plots 1 //+--------------------------------------------+ //| Параметры отрисовки индикатора | //+--------------------------------------------+ //---- отрисовка индикатора в виде линии #property indicator_type1 DRAW_LINE //---- в качестве цвета линии индикатора использован фиолетовый цвет #property indicator_color1 clrBlueViolet //---- линия индикатора - сплошная #property indicator_style1 STYLE_SOLID //---- толщина линии индикатора равна 2 #property indicator_width1 2 //---- отображение метки индикатора #property indicator_label1 "Fractal_CCI" //+----------------------------------------------+ //| Параметры отображения горизонтальных уровней | //+----------------------------------------------+ #property indicator_level1 +100.0 #property indicator_level2 -100.0 #property indicator_levelcolor clrMagenta #property indicator_levelstyle STYLE_DASHDOTDOT //+--------------------------------------------+ //| объявление перечислений | //+--------------------------------------------+ 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 uint normal_speed=30; input ENUM_APPLIED_PRICE_ IPC=PRICE_CLOSE_;//ценовая константа input int Shift=0; // сдвиг индикатора по горизонтали в барах //+--------------------------------------------+ //---- объявление динамического массива, который будет в // дальнейшем использован в качестве индикаторного буфера double ExtLineBuffer0[]; //---- объявление динамического массива, который будет в // дальнейшем использован в качестве буфера данных double ExtLineBuffer1[]; double LOG_2,dMul; //---- Объявление целых переменных начала отсчёта данных int min_rates_total,g_period_minus_1; //+------------------------------------------------------------------+ //| XMA BBx3 indicator initialization function | //+------------------------------------------------------------------+ void OnInit() { //---- Инициализация переменных начала отсчёта данных min_rates_total=int(MathMax(e_period,normal_speed)); g_period_minus_1=int(e_period-1); LOG_2=MathLog(2.0); dMul=0.015; //---- превращение динамического массива в индикаторный буфер SetIndexBuffer(0,ExtLineBuffer0,INDICATOR_DATA); //---- осуществление сдвига индикатора 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(1,ExtLineBuffer1,INDICATOR_CALCULATIONS); //---- инициализации переменной для короткого имени индикатора string shortname=""; StringConcatenate(shortname,"Fractal_CCI(",e_period,", ",normal_speed,")"); //--- создание имени для отображения в отдельном подокне и во всплывающей подсказке IndicatorSetString(INDICATOR_SHORTNAME,shortname); //--- определение точности отображения значений индикатора IndicatorSetInteger(INDICATOR_DIGITS,6); //---- завершение инициализации } //+------------------------------------------------------------------+ //| 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_CCI(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_MA | //| Compute the Fractal Bands for input data | //| In : | //| - lastBars : these "n" last bars are considered for | //| calculating the fractal dimension | //| For further theoretical explanations, see my blog: | //| http://fractalfinance.blogspot.com/ | //+------------------------------------------------------------------+ void FRACTAL_CCI(int lastBar,int Rates_Total) { double diff,priorDiff; double length; double priceMax,priceMin; double fdi,trail_dim,beta,hurst; int speed; //---- for(int index=lastBar; index0.0) { diff=(ExtLineBuffer1[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); } else { /* ** The FDI algorithm suggests in this case a zero value. ** I prefer to use the previous FDI value. */ fdi=NULL; } hurst=2-fdi; // The Hurst exponent trail_dim=1/hurst; // This is the trail dimension, the inverse of the Hurst-Holder exponent beta=trail_dim/2; speed=int(MathRound(normal_speed*beta)); ExtLineBuffer0[index]=GetCCI(speed,index,ExtLineBuffer1); } } //+------------------------------------------------------------------+ //| 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); } //+------------------------------------------------------------------+