syst_Mrs V traffic lights 04

//+------------------------------------------------------------------+
//|    Mrs V traffic lights 04 with filters and configurable ema.mq4 |
//|                                                                  |
//|                                                                  |
//+------------------------------------------------------------------+
//mod
//#property copyright "Wolfe"
//#property link "xxxxwolfe@gmail.com"

#property indicator_separate_window
#property indicator_minimum 7
#property indicator_maximum 100

#property indicator_buffers 4
#property indicator_color3 DodgerBlue
#property indicator_color4 Tomato

#property indicator_width1 2 
#property indicator_width2 2
#property indicator_width3 4 
#property indicator_width4 4 



//extern int  RSI_Timeframe=0;//0=current chart,1=m1,5=m5,15=m15,30=m30,60=h1,240=h4,etc...
//extern int  RSI_Period = 8;
//extern int  RSI_Applied_Price = 0;//0=close, 1=open, 2=high, 3=low, 4=(high+low)/2, 5=(high+low+close)/3, 6=(high+low+close+close)/4
//extern int  MA1_Period = 8;
//extern int  MA1_Method = 0;// 0=SMA, 1=EMA, 2=SMMA, 3=LWMA

extern int fast_ema=5;
extern int fast_ema_shift = 3;
extern int slow_ema = 34;

extern int  Line_width = 4;
extern int  Line_height1 = 60;
extern int  Line_height2 = 3;
extern int  Line_height3 = 60;
extern int  Line_height4 = 2;

extern string note1 = "choose only 1 of the following options";
extern bool All_signals = true;
extern bool Five_shift_and_34cross  =false;
extern bool PAaboveFive_shift_and_34 =false;
extern bool PAaboveOnly_34 = false;
extern bool PAaboveOnly_5_shift = false;



double MA1_Array[],RSI[];
double SignalUp[];
double SignalDown[];



//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- indicators setting

   SetIndexBuffer(0,RSI);
   SetIndexStyle(0,DRAW_NONE,STYLE_SOLID,2);

   IndicatorShortName("MrsV TL 04");
//   string short_name = "";   
//   IndicatorShortName(short_name);
   IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS)-4);


   SetIndexBuffer(1,MA1_Array);
   SetIndexStyle(1,DRAW_NONE,STYLE_SOLID,2);

   SetIndexBuffer(2,SignalUp);
   SetIndexStyle(2,DRAW_HISTOGRAM,STYLE_SOLID,Line_width);


   SetIndexBuffer(3,SignalDown);
   SetIndexStyle(3,DRAW_HISTOGRAM,STYLE_SOLID,Line_width);



return(0);
}

//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{

   int counted_bars=IndicatorCounted();
   
   if(counted_bars<0) return(-1);
   if(counted_bars>0) counted_bars--;

     int limit=Bars-counted_bars;
//int limit = Bars - IndicatorCounted() - 1;

//---- indicator calculation

 
 
   for(int i=limit; i>=0; i--)
   {
    RSI[i]= iRSI(NULL,0,8,0,i);
    
   }
    
   for(i=limit; i>=0; i--)
   { 
    MA1_Array[i] = iMAOnArray(RSI,0,8,0,0,i);

   }
   
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++   
//=================FOR ALL SIGNALS OPTION======================

   if(All_signals == true)
   {

  //=======  going long=====================  
      for(i=limit; i>=0; i--)
      if
      (
      (iMACD(NULL,0,12,26,1,0,0,i)>iMACD(NULL,0,12,26,1,0,0,i+1)) 
      &&
      (iStochastic(NULL,0,5,3,3,0,0,0,i) > iStochastic(NULL,0,5,3,3,0,0,1,i)) 
      &&  
      iRSI(NULL,0,8,0,i) > iMAOnArray(RSI,0,8,0,0,i)
//      &&
//      iMA(NULL,0,slow_ema,0,1,0,i) < iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
//      &&
//      Close[i]>iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
      )
  

         SignalUp[i]=Line_height1;
      else
         SignalUp[i]=Line_height2;

  
  //=======  going short=====================
      for(i=limit; i>=0; i--)         
      if
      (
      (iMACD(NULL,0,12,26,1,0,0,i)<iMACD(NULL,0,12,26,1,0,0,i+1)) 
      && 
      (iStochastic(NULL,0,5,3,3,0,0,0,i) < iStochastic(NULL,0,5,3,3,0,0,1,i)) 
      &&
      iRSI(NULL,0,8,0,i) < iMAOnArray(RSI,0,8,0,0,i)
//      &&
//      iMA(NULL,0,slow_ema,0,1,0,i) > iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
//      &&
//      Close[i]<iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
      )

       
         SignalDown[i]=Line_height3;         
      else
         SignalDown[i]=Line_height4;   

   }

//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

//=================FOR PAaboveFive_shift_and_34 OPTION======================

   if(PAaboveFive_shift_and_34 == true)
   {

  //=======  going long=====================  
      for(i=limit; i>=0; i--)
      if
      (
      (iMACD(NULL,0,12,26,1,0,0,i)>iMACD(NULL,0,12,26,1,0,0,i+1)) 
      &&
      (iStochastic(NULL,0,5,3,3,0,0,0,i) > iStochastic(NULL,0,5,3,3,0,0,1,i)) 
      &&  
      iRSI(NULL,0,8,0,i) > iMAOnArray(RSI,0,8,0,0,i)
//      &&
//      iMA(NULL,0,slow_ema,0,1,0,i) < iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
      &&
      Close[i]>iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
      &&
      Close[i]>iMA(NULL,0,slow_ema,0,1,0,i)
      )
  

         SignalUp[i]=Line_height1;
      else
         SignalUp[i]=Line_height2;

  
  //=======  going short=====================
      for(i=limit; i>=0; i--)         
      if
      (
      (iMACD(NULL,0,12,26,1,0,0,i)<iMACD(NULL,0,12,26,1,0,0,i+1)) 
      && 
      (iStochastic(NULL,0,5,3,3,0,0,0,i) < iStochastic(NULL,0,5,3,3,0,0,1,i)) 
      &&
      iRSI(NULL,0,8,0,i) < iMAOnArray(RSI,0,8,0,0,i)
//      &&
//      iMA(NULL,0,slow_ema,0,1,0,i) > iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
      &&
      Close[i]<iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
      &&
      Close[i]< iMA(NULL,0,slow_ema,0,1,0,i)
      )

       
         SignalDown[i]=Line_height3;         
      else
         SignalDown[i]=Line_height4;   

   }


//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

//=================FOR Five_shift_and_34 OPTION======================

   if(Five_shift_and_34cross == true)
   {

  //=======  going long=====================  
      for(i=limit; i>=0; i--)
      if
      (
      (iMACD(NULL,0,12,26,1,0,0,i)>iMACD(NULL,0,12,26,1,0,0,i+1)) 
      &&
      (iStochastic(NULL,0,5,3,3,0,0,0,i) > iStochastic(NULL,0,5,3,3,0,0,1,i)) 
      &&  
      iRSI(NULL,0,8,0,i) > iMAOnArray(RSI,0,8,0,0,i)
      &&
      iMA(NULL,0,slow_ema,0,1,0,i) < iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
//      &&
//      Close[i]>iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
      )
  

         SignalUp[i]=Line_height1;
      else
         SignalUp[i]=Line_height2;

  
  //=======  going short=====================
      for(i=limit; i>=0; i--)         
      if
      (
      (iMACD(NULL,0,12,26,1,0,0,i)<iMACD(NULL,0,12,26,1,0,0,i+1)) 
      && 
      (iStochastic(NULL,0,5,3,3,0,0,0,i) < iStochastic(NULL,0,5,3,3,0,0,1,i)) 
      &&
      iRSI(NULL,0,8,0,i) < iMAOnArray(RSI,0,8,0,0,i)
      &&
      iMA(NULL,0,slow_ema,0,1,0,i) > iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
//      &&
//      Close[i]<iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
      )

       
         SignalDown[i]=Line_height3;         
      else
         SignalDown[i]=Line_height4;   

   }


//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



//=================FOR Only_5_shift OPTION======================

   if(PAaboveOnly_5_shift == true)
   {

  //=======  going long=====================  
      for(i=limit; i>=0; i--)
      if
      (
      (iMACD(NULL,0,12,26,1,0,0,i)>iMACD(NULL,0,12,26,1,0,0,i+1)) 
      &&
      (iStochastic(NULL,0,5,3,3,0,0,0,i) > iStochastic(NULL,0,5,3,3,0,0,1,i)) 
      &&  
      iRSI(NULL,0,8,0,i) > iMAOnArray(RSI,0,8,0,0,i)
//      &&
//      iMA(NULL,0,slow_ema,0,1,0,i) < iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
      &&
      Close[i]>iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
      )
  

         SignalUp[i]=Line_height1;
      else
         SignalUp[i]=Line_height2;

  
  //=======  going short=====================
      for(i=limit; i>=0; i--)         
      if
      (
      (iMACD(NULL,0,12,26,1,0,0,i)<iMACD(NULL,0,12,26,1,0,0,i+1)) 
      && 
      (iStochastic(NULL,0,5,3,3,0,0,0,i) < iStochastic(NULL,0,5,3,3,0,0,1,i)) 
      &&
      iRSI(NULL,0,8,0,i) < iMAOnArray(RSI,0,8,0,0,i)
//      &&
//      iMA(NULL,0,slow_ema,0,1,0,i) > iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
      &&
      Close[i]<iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
      )

       
         SignalDown[i]=Line_height3;         
      else
         SignalDown[i]=Line_height4;   

   }

//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

//=================FOR Only_34 OPTION======================

   if(PAaboveOnly_34 == true)
   {

  //=======  going long=====================  
      for(i=limit; i>=0; i--)
      if
      (
      (iMACD(NULL,0,12,26,1,0,0,i)>iMACD(NULL,0,12,26,1,0,0,i+1)) 
      &&
      (iStochastic(NULL,0,5,3,3,0,0,0,i) > iStochastic(NULL,0,5,3,3,0,0,1,i)) 
      &&  
      iRSI(NULL,0,8,0,i) > iMAOnArray(RSI,0,8,0,0,i)
//      &&
//      iMA(NULL,0,slow_ema,0,1,0,i) < iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
      &&
      Close[i]>iMA(NULL,0,slow_ema,0,1,0,i)
      )
  

         SignalUp[i]=Line_height1;
      else
         SignalUp[i]=Line_height2;

  
  //=======  going short=====================
      for(i=limit; i>=0; i--)         
      if
      (
      (iMACD(NULL,0,12,26,1,0,0,i)<iMACD(NULL,0,12,26,1,0,0,i+1)) 
      && 
      (iStochastic(NULL,0,5,3,3,0,0,0,i) < iStochastic(NULL,0,5,3,3,0,0,1,i)) 
      &&
      iRSI(NULL,0,8,0,i) < iMAOnArray(RSI,0,8,0,0,i)
//      &&
//      iMA(NULL,0,slow_ema,0,1,0,i) > iMA(NULL,0,fast_ema,fast_ema_shift,1,0,i)
      &&
      Close[i]<iMA(NULL,0,slow_ema,0,1,0,i)
      )

       
         SignalDown[i]=Line_height3;         
      else
         SignalDown[i]=Line_height4;   

   }



   
//----
return(0);
}
//+------------------------------------------------------------------+