Stochastic_Filter_mtf

//+------------------------------------------------------------------+
//|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);	
 }