//+------------------------------------------------------------------+ //|Stochastic_Filter_mtf Filter over WPR.mq4 | //| Copyright © 2006, Indoforex Groups - Primajaya | //| MTF:ForexTSD.com ki http://primaforex.blogspot.com | //+------------------------------------------------------------------+ #property copyright "Copyright © 2006, Indoforex Groups" #property link "http://primaforex.blogspot.com" #property indicator_separate_window #property indicator_minimum 0 #property indicator_maximum 1 #property indicator_buffers 4 #property indicator_color1 Blue #property indicator_color2 Red #property indicator_color3 SteelBlue #property indicator_color4 Orange #property indicator_width1 2 #property indicator_width2 2 #property indicator_width3 2 #property indicator_width4 2 //---- input parameters extern int TimeFrame=0; extern int KPeriod = 14; extern int DPeriod = 5; extern int Smooth = 3; extern int MAMethod=0; extern int PriceField=0;// PriceField: 0=Hi/Low 1=Close/Close extern double OverboughtLevel = 76.4;// 61.80; extern double OversoldLevel = 23.6;// 38.20; extern bool use_pK_Only = false; extern int MaxBarsToCount = 1500; extern string __MA_Method = "SMA0 EMA1 SMMA2 LWMA3"; extern string __PriceField = "0=Hi/Low 1=Close/Close"; extern string _TimeFrames = "M1;5,15,30,60H1;240H4;1440D1;10080W1;43200MN|0-CurrentTF"; //---- indicator buffers double UpBuffer1[]; double UpBuffer2[]; double DnBuffer1[]; double DnBuffer2[]; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { string short_name; //---- indicator line SetIndexStyle(0,DRAW_HISTOGRAM); SetIndexStyle(1,DRAW_HISTOGRAM); SetIndexStyle(2,DRAW_HISTOGRAM); SetIndexStyle(3,DRAW_HISTOGRAM); SetIndexBuffer(0,UpBuffer1); SetIndexBuffer(1,UpBuffer2); SetIndexBuffer(2,DnBuffer1); SetIndexBuffer(3,DnBuffer2); if (TimeFrame < Period()) TimeFrame = Period(); //---- name for DataWindow and indicator subwindow label switch(TimeFrame) { case 1 : string TimeFrameStr="Period_M1"; break; case 5 : TimeFrameStr="Period_M5"; break; case 15 : TimeFrameStr="Period_M15"; break; case 30 : TimeFrameStr="Period_M30"; break; case 60 : TimeFrameStr="Period_H1"; break; case 240 : TimeFrameStr="Period_H4"; break; case 1440 : TimeFrameStr="Period_D1"; break; case 10080 : TimeFrameStr="Period_W1"; break; case 43200 : TimeFrameStr="Period_MN1"; break; default : TimeFrameStr="Current Timeframe"; } //---- name for DataWindow and indicator subwindow label short_name="Stoch_Filter("+KPeriod+","+DPeriod+","+Smooth+") "+TimeFrameStr; IndicatorShortName(short_name); SetIndexLabel(0,"Overbought or Strong Bulls"); SetIndexLabel(1,"Oversold or Strong Bears"); SetIndexLabel(2,"Potential to Bulls"); SetIndexLabel(3,"Potential to Bears"); IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS)); return(0); } //+------------------------------------------------------------------+ //| ProSol Confirmation | //+------------------------------------------------------------------+ int start() { int trend; double PK; double PD; datetime TimeArray[]; int shift,limit,y=0,counted_bars=IndicatorCounted(); // Plot defined time frame on to current time frame ArrayCopySeries(TimeArray,MODE_TIME,Symbol(),TimeFrame); limit=Bars-counted_bars; limit=MathMax(limit,TimeFrame/Period()); limit=MathMin(limit,MaxBarsToCount); for(shift=0,y=0;shift<limit;shift++) { if (Time[shift]<TimeArray[y]) y++; PK = iStochastic(NULL,TimeFrame,KPeriod,DPeriod,Smooth,MAMethod,PriceField,0,y); PD = iStochastic(NULL,TimeFrame,KPeriod,DPeriod,Smooth,MAMethod,PriceField,1,y); if (use_pK_Only) { if (PK>=OverboughtLevel) trend=1; if (PK<=OversoldLevel) trend=2; if (PK<OverboughtLevel && PK>PD &&PK>OversoldLevel ) trend=3; if (PK<OverboughtLevel && PK<PD && PK>OversoldLevel) trend=4; } else if (PD>=OverboughtLevel) trend=1; if (PD<=OversoldLevel) trend=2; if (PD<OverboughtLevel && PK>PD && PD>OversoldLevel) trend=3; if (PD<OverboughtLevel && PK<PD && PD>OversoldLevel) trend=4; if (trend==1) { UpBuffer1[shift]=1; UpBuffer2[shift]=0; DnBuffer1[shift]=0; DnBuffer2[shift]=0; } if (trend==2) { UpBuffer1[shift]=0; UpBuffer2[shift]=1; DnBuffer1[shift]=0; DnBuffer2[shift]=0; } if (trend==3) { UpBuffer1[shift]=0; UpBuffer2[shift]=0; DnBuffer1[shift]=1; DnBuffer2[shift]=0; } if (trend==4) { UpBuffer1[shift]=0; UpBuffer2[shift]=0; DnBuffer1[shift]=0; DnBuffer2[shift]=1; } } //---- int TimeFrame; if (TimeFrame>Period()) { int PerINT=TimeFrame/Period()+1; datetime TimeArr[]; ArrayResize(TimeArr,PerINT); ArrayCopySeries(TimeArr,MODE_TIME,Symbol(),Period()); for(shift=0;shift<PerINT+1;shift++) {if (TimeArr[shift]>=TimeArray[0]) { UpBuffer1[shift]=UpBuffer1[0]; UpBuffer2[shift]=UpBuffer2[0]; DnBuffer1[shift]=DnBuffer1[0]; DnBuffer2[shift]=DnBuffer2[0]; } } } return(0); }
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Indicator Curves created:
Implements a curve of type DRAW_HISTOGRAM
Indicators Used:
Stochastic oscillator
Custom Indicators Used:
Order Management characteristics:
Other Features: