//https://www.mql5.com/en/code/20499 //------------------------------------------------------------------ #property copyright "Copyright 2017, mladen" #property link "mladenfx@gmail.com" #property description "Schaff tcd RSX" #property version "1.00" //------------------------------------------------------------------ #property indicator_separate_window #property indicator_height 120 #property indicator_buffers 2 #property indicator_plots 1 #property indicator_label1 "Schaff tcd RSX value" #property indicator_type1 DRAW_COLOR_ARROW #property indicator_color1 clrSilver,clrLimeGreen,clrOrange #property indicator_width1 2 #property indicator_level1 20 #property indicator_level3 80 #property indicator_levelwidth 3 #property indicator_levelstyle STYLE_SOLID #property indicator_levelcolor clrDarkSlateGray // //----------------- // enum enPrices { pr_close, // Close pr_open, // Open pr_high, // High pr_low, // Low pr_median, // Median pr_typical, // Typical pr_weighted, // Weighted pr_average, // Average (high+low+open+close)/4 pr_medianb, // Average median body (open+close)/2 pr_tbiased, // Trend biased price pr_tbiased2, // Trend biased (extreme) price pr_haclose, // Heiken ashi close pr_haopen , // Heiken ashi open pr_hahigh, // Heiken ashi high pr_halow, // Heiken ashi low pr_hamedian, // Heiken ashi median pr_hatypical, // Heiken ashi typical pr_haweighted, // Heiken ashi weighted pr_haaverage, // Heiken ashi average pr_hamedianb, // Heiken ashi median body pr_hatbiased, // Heiken ashi trend biased price pr_hatbiased2 // Heiken ashi trend biased (extreme) price }; // input parameters input int FastEma = 23; // Fast ema period input int SlowEma = 50; // Slow ema period input int TcdEma = 20; // TCD ema period input double RsiPeriod = 9; // Rsx period input enPrices Price = pr_close; // Price double val[],valc[]; //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ void OnInit() { SetIndexBuffer(0,val,INDICATOR_DATA); SetIndexBuffer(1,valc,INDICATOR_COLOR_INDEX); IndicatorSetString(INDICATOR_SHORTNAME,"Schaff tcd RSX ("+(string)FastEma+","+(string)SlowEma+","+(string)RsiPeriod+")"); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ 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(Bars(_Symbol,_Period)0) ? (val[i]>val[i-1]) ? 1 : (val[i]0 && period>1) workEma[r][instanceNo]=workEma[r-1][instanceNo]+(2.0/(1.0+period))*(price-workEma[r-1][instanceNo]); return(workEma[r][instanceNo]); } // //--- // #define _pricesInstances 1 #define _pricesSize 4 double workHa[][_pricesInstances*_pricesSize]; // //--- // double getPrice(int tprice,const double &open[],const double &close[],const double &high[],const double &low[],int i,int _bars,int instanceNo=0) { if(tprice>=pr_haclose) { if(ArrayRange(workHa,0)!=_bars) ArrayResize(workHa,_bars); instanceNo*=_pricesSize; double haOpen = (i>0) ? (workHa[i-1][instanceNo+2]+workHa[i-1][instanceNo+3])/2.0 : (open[i]+close[i])/2;; double haClose = (open[i] + high[i] + low[i] + close[i]) / 4.0; double haHigh = MathMax(high[i], MathMax(haOpen,haClose)); double haLow = MathMin(low[i] , MathMin(haOpen,haClose)); if(haOpen haOpen) return((haHigh+haClose)/2.0); else return((haLow+haClose)/2.0); case pr_hatbiased2: if(haClose>haOpen) return(haHigh); if(haCloseopen[i]) return((high[i]+close[i])/2.0); else return((low[i]+close[i])/2.0); case pr_tbiased2: if(close[i]>open[i]) return(high[i]); if(close[i]