//+---------------------------------------------------------------------+ //| BlauTSStochastic.mq5 | //| Copyright © 2013, Nikolay Kositsin | //| Khabarovsk, farria@mail.redcom.ru | //+---------------------------------------------------------------------+ //| Place the SmoothAlgorithms.mqh file | //| in the directory: terminal_data_folder\MQL5\Include | //+---------------------------------------------------------------------+ //---- Copyright #property copyright "Copyright © 2013, Nikolay Kositsin" //---- link to the website of the author #property link "farria@mail.redcom.ru" #property description " William Blau's stochastic oscillator" //---- Indicator version number #property version "1.00" //---- drawing indicator in a separate window #property indicator_separate_window //----four buffers are used for calculation of drawing of the indicator #property indicator_buffers 4 //---- two plots are used #property indicator_plots 2 //+----------------------------------------------+ //| Indicator 1 drawing parameters | //+----------------------------------------------+ //---- drawing the indicator as a colored cloud #property indicator_type1 DRAW_FILLING //---- the following colors are used as the indicator colors #property indicator_color1 clrLime,clrRed //---- displaying the indicator label #property indicator_label1 "Blau TS Stochastic Signal" //+----------------------------------------------+ //| Indicator 2 drawing parameters | //+----------------------------------------------+ //---- drawing indicator as a four-color histogram #property indicator_type2 DRAW_COLOR_HISTOGRAM //---- colors of the five-color histogram are as follows #property indicator_color2 clrDarkOrange,clrViolet,clrGray,clrYellowGreen,clrGreen //---- Indicator line is a solid one #property indicator_style2 STYLE_SOLID //---- indicator line width is 2 #property indicator_width2 2 //---- displaying the indicator label #property indicator_label2 "Blau TS Stochastic" //+----------------------------------------------+ //| Parameters of displaying horizontal levels | //+----------------------------------------------+ #property indicator_level1 +30 #property indicator_level2 0 #property indicator_level3 -30 #property indicator_levelcolor clrBlue #property indicator_levelstyle STYLE_DASHDOTDOT //+----------------------------------------------+ //| CXMA class description | //+----------------------------------------------+ #include //+----------------------------------------------+ //---- declaration of the CXMA class variables from the SmoothAlgorithms.mqh file CXMA XMA1,XMA2,XMA3,XMA4,XMA5,XMA6,XMA7; //+----------------------------------------------+ //| declaration of enumerations | //+----------------------------------------------+ enum Applied_price_ // type of constant { 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_, // Simple Price (OC/2) PRICE_QUARTER_, // Quarted Price (HLOC/4) PRICE_TRENDFOLLOW0_, // TrendFollow_1 Price PRICE_TRENDFOLLOW1_, // TrendFollow_2 Price PRICE_DEMARK_ // Demark Price }; //+----------------------------------------------+ //| Indicator input parameters | //+----------------------------------------------+ input Smooth_Method XMA_Method=MODE_EMA; // Averaging method input uint XLength=5; // Period of Stochastic momentum input uint XLength1=20; // Depth of the first averaging input uint XLength2=5; // Depth of the second averaging input uint XLength3=3; // Depth of the third averaging input uint XLength4=3; // Signal line averaging depth input int XPhase=15; // Smoothing parameter //--- XPhase: for JJMA it varies within the range -100 ... +100 and influences the quality of the transient period; //--- XPhase: for VIDIA it is a CMO period, for AMA it is a slow average period input Applied_price_ IPC=PRICE_CLOSE; // Price constant //+----------------------------------------------+ //---- declaration of dynamic arrays that //---- will be used as indicator buffers double IndBuffer[],ColorIndBuffer[]; double UpBuffer[],DnBuffer[]; int Count[]; double iHigh[],iLow[]; //---- Declaration of the integer variables for the start of data calculation int min_rates_total,min_rates_1,min_rates_2,min_rates_3,min_rates_4; //+------------------------------------------------------------------+ //| Recalculation of position of the newest element in the array | //+------------------------------------------------------------------+ void Recount_ArrayZeroPos(int &CoArr[],// Return the current value of the price series by reference int Size) { //---- int numb,Max1,Max2; static int count=1; Max2=Size; Max1=Max2-1; count--; if(count<0) count=Max1; for(int iii=0; iiiMax1) numb-=Max2; CoArr[iii]=numb; } //---- } //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ void OnInit() { //---- Initialization of variables of the start of data calculation min_rates_1=int(XLength); min_rates_2=min_rates_1+XMA1.GetStartBars(XMA_Method,XLength1,XPhase); min_rates_3=min_rates_2+XMA1.GetStartBars(XMA_Method,XLength2,XPhase); min_rates_4=min_rates_3+XMA1.GetStartBars(XMA_Method,XLength3,XPhase); min_rates_total=min_rates_4+XMA1.GetStartBars(XMA_Method,XLength4,XPhase); //---- memory allocation for arrays of variables ArrayResize(Count,XLength); ArrayResize(iHigh,XLength); ArrayResize(iLow,XLength); //---- ArrayInitialize(Count,0); ArrayInitialize(iHigh,0.0); ArrayInitialize(iLow,999999999.9); //---- ArraySetAsSeries(iHigh,true); ArraySetAsSeries(iLow,true); //---- Set dynamic array as an indicator buffer SetIndexBuffer(0,UpBuffer,INDICATOR_DATA); //---- Set dynamic array as an indicator buffer SetIndexBuffer(1,DnBuffer,INDICATOR_DATA); //---- Set dynamic array as an indicator buffer SetIndexBuffer(2,IndBuffer,INDICATOR_DATA); //---- set dynamic array as a color index buffer SetIndexBuffer(3,ColorIndBuffer,INDICATOR_COLOR_INDEX); //---- shifting the start of drawing of the indicator PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total); //---- Setting the indicator values that won't be visible on a chart PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,0.0); //---- shifting the start of drawing of the indicator PlotIndexSetInteger(1,PLOT_DRAW_BEGIN,min_rates_total); //---- Setting the indicator values that won't be visible on a chart PlotIndexSetDouble(1,PLOT_EMPTY_VALUE,0.0); //--- creation of the name to be displayed in a separate sub-window and in a pop up help IndicatorSetString(INDICATOR_SHORTNAME,"BlauTSStochastic"); //--- determining the accuracy of the indicator values IndicatorSetInteger(INDICATOR_DIGITS,0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int OnCalculate(const int rates_total, // number of bars in history at the current tick const int prev_calculated,// amount of history in bars at the previous tick const datetime &time[], const double &open[], const double& high[], // price array of price maximums for the indicator calculation const double& low[], // price array of minimums of price for the indicator calculation const double &close[], const long &tick_volume[], const long &volume[], const int &spread[]) { //---- checking the number of bars to be enough for the calculation if(rates_totalrates_total || prev_calculated<=0) // checking for the first start of calculation of an indicator { first=0; // starting index for calculation of all bars } else first=prev_calculated-1; // starting number for calculation of new bars //---- The main loop of the indicator calculation for(bar=first; barrates_total || prev_calculated<=0) first++; //---- main loop of the Ind indicator coloring for(bar=first; bar0) { if(IndBuffer[bar]>IndBuffer[bar-1]) clr=4; if(IndBuffer[bar]IndBuffer[bar-1]) clr=1; } ColorIndBuffer[bar]=clr; } //---- return(rates_total); } //+------------------------------------------------------------------+