Custom Bears Power Inputs

ÿþ//+------------------------------------------------------------------+

//|                                    Custom Bears Power Inputs.mq5 |

//|                              Copyright © 2018, Vladimir Karputov |

//|                                           http://wmua.ru/slesar/ |

//+------------------------------------------------------------------+

#property copyright "Copyright © 2018, Vladimir Karputov"

#property link      "http://wmua.ru/slesar/"

#property version   "1.000"

#property description "Custom Bears Power Inputs"

//--- indicator settings

#property indicator_separate_window

#property indicator_buffers 2

#property indicator_plots   1

#property indicator_type1   DRAW_HISTOGRAM

#property indicator_color1  Silver

#property indicator_width1  2

//--- input parameters

input int   InpBearsPeriod=13;   // Period

input color InpColor=clrRed;     // Color

input int   InpWidth=1;          // Width

//--- indicator buffers

double    ExtBearsBuffer[];

double    ExtTempBuffer[];

//--- handle of EMA 

int       ExtEmaHandle;

//+------------------------------------------------------------------+

//| Custom indicator initialization function                         |

//+------------------------------------------------------------------+

void OnInit()

  {

//--- indicator buffers mapping

   SetIndexBuffer(0,ExtBearsBuffer,INDICATOR_DATA);

   SetIndexBuffer(1,ExtTempBuffer,INDICATOR_CALCULATIONS);

//---

   IndicatorSetInteger(INDICATOR_DIGITS,_Digits+1);

//--- sets first bar from what index will be drawn

   PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,InpBearsPeriod-1);

//--- color line

   PlotIndexSetInteger(0,PLOT_LINE_COLOR,InpColor);

//--- width line

   PlotIndexSetInteger(0,PLOT_LINE_WIDTH,InpWidth);

//--- name for DataWindow and indicator subwindow label

   IndicatorSetString(INDICATOR_SHORTNAME,"Bears("+(string)InpBearsPeriod+")");

//--- get MA handle

   ExtEmaHandle=iMA(NULL,0,InpBearsPeriod,0,MODE_EMA,PRICE_CLOSE);

//--- initialization done

  }

//+------------------------------------------------------------------+

//| Average True Range                                               |

//+------------------------------------------------------------------+

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[])

  {

   int i,limit;

//--- check for bars count

   if(rates_total<InpBearsPeriod)

      return(0);// not enough bars for calculation   

//--- not all data may be calculated

   int calculated=BarsCalculated(ExtEmaHandle);

   if(calculated<rates_total)

     {

      Print("Not all data of ExtEmaHandle is calculated (",calculated,"bars ). Error",GetLastError());

      return(0);

     }

//--- we can copy not all data

   int to_copy;

   if(prev_calculated>rates_total || prev_calculated<0) to_copy=rates_total;

   else

     {

      to_copy=rates_total-prev_calculated;

      if(prev_calculated>0) to_copy++;

     }

//---- get ma buffers

   if(IsStopped()) return(0); //Checking for stop flag

   if(CopyBuffer(ExtEmaHandle,0,0,to_copy,ExtTempBuffer)<=0)

     {

      Print("getting ExtEmaHandle is failed! Error",GetLastError());

      return(0);

     }

//--- first calculation or number of bars was changed

   if(prev_calculated<InpBearsPeriod)

      limit=InpBearsPeriod;

   else limit=prev_calculated-1;

//--- the main loop of calculations

   for(i=limit;i<rates_total && !IsStopped();i++)

     {

      ExtBearsBuffer[i]=low[i]-ExtTempBuffer[i];

     }

//--- return value of prev_calculated for next call

   return(rates_total);

  }

//+------------------------------------------------------------------+