//+------------------------------------------------------------------+ //| Based on totel_power_indicator.mq4 by Daniel Fernandez | //| Asirikuy.com 2011 | //| TotalPowerIndicator.mq5 | //| Copyright © 2011, EarnForex.com | //| http://www.earnforex.com | //+------------------------------------------------------------------+ //---- author of the indicator #property copyright "Copyright © 2011, www.EarnForex.com" //---- link to the website of the author #property link "http://www.earnforex.com/" //---- indicator version #property version "1.0" #property description "Displays the concentration of bull PowerBuffer periods," #property description "bear power periods and total periods" #property description "when either bulls or bears have prevalence." //---- drawing the indicator in a separate window #property indicator_separate_window //---- 3 buffers are used for calculation and drawing the indicator #property indicator_buffers 3 //---- 3 plots are used #property indicator_plots 3 //+----------------------------------------------+ //| Bullish indicator drawing parameters | //+----------------------------------------------+ //---- drawing the indicator 1 as a line #property indicator_type1 DRAW_LINE //---- lime color is used as the color of the bullish indicator line #property indicator_color1 Lime //---- line of the indicator 1 is a continuous line #property indicator_style1 STYLE_SOLID //---- thickness of the indicator 1 line is equal to 1 #property indicator_width1 1 //---- displaying the bullish label of the indicator line #property indicator_label1 "Bulls" //+----------------------------------------------+ //| Bearish indicator drawing parameters | //+----------------------------------------------+ //---- drawing the indicator 2 as a line #property indicator_type2 DRAW_LINE //---- red color is used for the indicator bearish line #property indicator_color2 Red //---- the indicator 2 line is a continuous curve #property indicator_style2 STYLE_SOLID //---- indicator 2 line width is equal to 1 #property indicator_width2 1 //---- displaying the bearish label of the indicator line #property indicator_label2 "Bears" //+----------------------------------------------+ //| Power indicator drawing parameters | //+----------------------------------------------+ //---- drawing the indicator 3 as a line #property indicator_type3 DRAW_LINE //---- use blue color #property indicator_color3 Blue //---- the indicator 3 line is a continuous curve #property indicator_style3 STYLE_SOLID //---- thickness of the indicator 3 line is equal to 1 #property indicator_width3 1 //---- displaying the indicator line label #property indicator_label3 "Power" //+----------------------------------------------+ //| Horizontal levels display parameters | //+----------------------------------------------+ #property indicator_level1 100.0 #property indicator_level2 50.0 #property indicator_level3 0.0 #property indicator_levelcolor Gray #property indicator_levelstyle STYLE_DASHDOTDOT //+----------------------------------------------+ //| Window borders fixing parameters | //+----------------------------------------------+ #property indicator_minimum -5 #property indicator_maximum 105 //+----------------------------------------------+ //| Indicator input parameters | //+----------------------------------------------+ input int PowerPeriod=10; // Indicator period input int LookbackPeriod=45; // Smoothing period input int Shift=0; // Horizontal shift of the indicator in bars //+----------------------------------------------+ //---- declaration of dynamic arrays that //---- will be used as indicator buffers double BullsBuffer[]; double BearsBuffer[]; double PowerBuffer[]; //---- declaration of the integer variables for the start of data calculation int min_rates_total; //---- declaration of integer variables for the indicators handles int Bulls_Handle,Bears_Handle; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ void OnInit() { //---- initialization of variables of the start of data calculation min_rates_total=LookbackPeriod+PowerPeriod; //---- getting handle of the Bulls indicator Bulls_Handle=iBullsPower(NULL,0,PowerPeriod); if(Bulls_Handle==INVALID_HANDLE)Print(" Failed to get handle of the Bulls indicator"); //---- getting handle of the Bears indicator Bears_Handle=iBearsPower(NULL,0,PowerPeriod); if(Bears_Handle==INVALID_HANDLE)Print(" Failed to get handle of the Bears indicator"); //---- set BullsBuffer[] dynamic array as an indicator buffer SetIndexBuffer(0,BullsBuffer,INDICATOR_DATA); //---- shifting the indicator 1 horizontally by Shift PlotIndexSetInteger(0,PLOT_SHIFT,Shift); //---- performing shift of the beginning of counting of drawing the indicator 1 by Period PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total); //---- create a label to display in DataWindow PlotIndexSetString(0,PLOT_LABEL,"Bears"); //---- set BearsBuffer[] dynamic array as an indicator buffer SetIndexBuffer(1,BearsBuffer,INDICATOR_DATA); //---- shifting the indicator 2 horizontally by Shift PlotIndexSetInteger(1,PLOT_SHIFT,Shift); //---- performing shift of the beginning of counting of drawing the indicator 2 by Period PlotIndexSetInteger(1,PLOT_DRAW_BEGIN,min_rates_total); //---- create a label to display in DataWindow PlotIndexSetString(1,PLOT_LABEL,"Bulls"); //---- set PowerBuffer[] dynamic array as an indicator buffer SetIndexBuffer(2,PowerBuffer,INDICATOR_DATA); //---- shifting the indicator 2 horizontally by Shift PlotIndexSetInteger(2,PLOT_SHIFT,Shift); //---- performing shift of the beginning of counting of drawing the indicator 3 by Period PlotIndexSetInteger(2,PLOT_DRAW_BEGIN,min_rates_total); //---- create a label to display in DataWindow PlotIndexSetString(2,PLOT_LABEL,"Power"); //---- indexing the elements in buffers as timeseries ArraySetAsSeries(BullsBuffer,true); ArraySetAsSeries(BearsBuffer,true); ArraySetAsSeries(PowerBuffer,true); //---- initializations of variable for indicator short name string shortname; StringConcatenate(shortname,"Total Power Indicator(",PowerPeriod,", ",LookbackPeriod,", ",Shift,")"); //---- creation of the name to be displayed in a separate sub-window and in a tooltip IndicatorSetString(INDICATOR_SHORTNAME,shortname); //---- determination of accuracy of displaying 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,// number of bars calculated at previous call const datetime &time[], const double &open[], const double& high[], // price array of maximums of price 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(BarsCalculated(Bulls_Handle)rates_total || prev_calculated<=0) // checking for the first start of the indicator calculation limit=rates_total-min_rates_total-1; // starting index for calculation of all bars else limit=rates_total-prev_calculated; // starting index for calculation of new bars to_copy=limit+min_rates_total+1; //---- copy newly appeared data in the variables arrays if(CopyBuffer(Bulls_Handle,0,0,to_copy,BULLS)<=0) return(0); if(CopyBuffer(Bears_Handle,0,0,to_copy,BEARS)<=0) return(0); //---- first big indicator calculation loop for(bar=limit; bar>=0 && !IsStopped(); bar--) { bearscount = 0; bullscount = 0; for(int kkk=LookbackPeriod-1; kkk>=0; kkk--) { if(BULLS[bar+kkk]>0) bullscount++; if(BEARS[bar+kkk]<0) bearscount++; } PowerBuffer[bar]=MathAbs(bullscount-bearscount)*100/LookbackPeriod; BullsBuffer[bar] = bullscount * 100 / LookbackPeriod; BearsBuffer[bar] = bearscount * 100 / LookbackPeriod; } //---- return(rates_total); } //+------------------------------------------------------------------+