//+------------------------------------------------------------------+ //| Custom Aroon Oscilator.mq4 | //| rafcamara | //| | //+------------------------------------------------------------------+ #property copyright "rafcamara" #property link "rafcamara@yahoo.com" //---- indicator settings #property indicator_chart_window #property indicator_buffers 2 #property indicator_color1 DodgerBlue #property indicator_color2 Red //---- indicator parameters extern int AroonPeriod=14; extern int Filter=50; extern int ShowComment=0; //---- indicator buffers double ind_buffer1[]; double ind_buffer2[]; //double ind_buffer3[]; int HighBarBuffer[]; int LowBarBuffer[]; double ArOscBuffer[]; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { //----additional buffers are used for counting. IndicatorBuffers(5); SetIndexBuffer(2, HighBarBuffer); SetIndexBuffer(3, LowBarBuffer); SetIndexBuffer(4, ArOscBuffer); //---- drawing settings SetIndexStyle(0,DRAW_HISTOGRAM,STYLE_SOLID,2); SetIndexStyle(1,DRAW_HISTOGRAM,STYLE_SOLID,2); SetIndexDrawBegin(0,200); SetIndexDrawBegin(1,200); IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS)+1); //---- indicator buffers mapping if(!SetIndexBuffer(0,ind_buffer1) && !SetIndexBuffer(1,ind_buffer2) && !SetIndexBuffer(2,HighBarBuffer) && !SetIndexBuffer(3,LowBarBuffer) && !SetIndexBuffer(4,ArOscBuffer)) Print("cannot set indicator buffers!"); //---- name for DataWindow and indicator subwindow label IndicatorShortName("Aroon Bars("+AroonPeriod+","+Filter+")"); //---- initialization done return(0); } //+------------------------------------------------------------------+ //| Aroon Oscilator | //+------------------------------------------------------------------+ int start() { double ArOsc=0; int ArPer,limit,i; int counted_bars=IndicatorCounted(); ArPer=AroonPeriod; //---- check for possible errors if(counted_bars<0) return(-1); //---- initial zero if(counted_bars<1) { for(i=1;i<=ArPer;i++) HighBarBuffer[Bars-i]=0.0; for(i=1;i<=ArPer;i++) LowBarBuffer[Bars-i]=0.0; for(i=1;i<=ArPer;i++) ArOscBuffer[Bars-i]=0.0; } //---- last counted bar will be recounted if(counted_bars>0) counted_bars--; limit=Bars-counted_bars; //----Calculation--------------------------- for( i=0; i0) Comment("Aroon Bars (",AroonPeriod,", ",Filter,") ", ArOscBuffer[0]); //---- dispatch values between 2 buffers for(i=limit-1; i>=0; i--) { ArOsc=ArOscBuffer[i]; if(ArOsc>Filter) { ind_buffer2[i]=Low[i]; ind_buffer1[i]=High[i]; } if(ArOsc<-Filter) { ind_buffer1[i]=Low[i]; ind_buffer2[i]=High[i]; } } //---- done return(0); }