#MTF Stochastic Standard_v1

//+------------------------------------------------------------------+
//|                                     #MTF Stochastic Standard.mq4 |
//|                                      Copyright © 2006, Keris2112 |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, Keris2112"
#property link      "http://www.forex-tsd.com"
#property link      "extra timeframes by cja"
//----
#property indicator_separate_window
#property indicator_buffers 8
//----
#property indicator_color1 Red
#property indicator_color2 Red
#property indicator_color3 DodgerBlue
#property indicator_color4 DodgerBlue
#property indicator_color5 SeaGreen
#property indicator_color6 SeaGreen
#property indicator_color7 Olive
#property indicator_color8 Olive
#property indicator_level1 80
#property indicator_level2 20
#property indicator_levelcolor Blue
/*******************************************************************
Price Options
PRICE_CLOSE = 0 Close price. 
PRICE_OPEN = 1 Open price. 
PRICE_HIGH = 2 High price. 
PRICE_LOW = 3 Low price. 
PRICE_MEDIAN = 4 Median price, (high+low)/2. 
PRICE_TYPICAL = 5 Typical price, (high+low+close)/3. 
PRICE_WEIGHTED = 6 Weighted close price, (high+low+close+close)/4. 

Line Style Options
STYLE_SOLID = 0 The line is solid. 
STYLE_DASH = 1 The line is dashed. 
STYLE_DOT = 2 The line is dotted. 
STYLE_DASHDOT = 3 The line has alternating dashes and dots. 
STYLE_DASHDOTDOT = 4 The line has alternating dashes and double dots. 

Ma Options
MODE_SMA = 0 Simple moving average, 
MODE_EMA = 1 Exponential moving average, 
MODE_SMMA = 2 Smoothed moving average, 
MODE_LWMA = 3 Linear weighted moving average. 
**********************************************************************/
extern bool Show_StochLabels=false;
extern int Shift_Text=0;
extern string IIIIIIIIIIIIIIIIIIIIIIIIIIII=">>> Stoch #1 Settings >>>>>>>>>>>>>>>";
extern int TimeFrame1=0;
extern bool Show_STOCH_1=true;
extern int K_period1=14;
extern int D_period1=3;
extern int S_period1=3;
extern int STOCH_MAIN_Line_Style1=0;
extern int STOCH_SIGNAL_Line_Style1=2;
extern int STOCH_MAIN_Price1=0;
extern int STOCH_SIGNAL_Price1=0;
extern int STOCH_MAIN_Ma1=0;
extern int STOCH_SIGNAL_Ma1=0;
extern string IIIIIIIIIIIIIIIIIIIIIIIIIIIII=">>> Stoch #2 Settings >>>>>>>>>>>>>>>>>";
extern int TimeFrame2=0;
extern bool Show_STOCH_2=false;
extern int K_period2=5;
extern int D_period2=3;
extern int S_period2=3;
extern int STOCH_MAIN_Line_Style2=0;
extern int STOCH_SIGNAL_Line_Style2=2;
extern int STOCH_MAIN_Price2=0;
extern int STOCH_SIGNAL_Price2=1;
extern int STOCH_MAIN_Ma2=0;
extern int STOCH_SIGNAL_Ma2=0;
extern string IIIIIIIIIIIIIIIIIIIIIIIIIIIIII=">>> Stoch #3 Settings >>>>>>>>>>>>>>>>>>>";
extern int TimeFrame3=0;
extern bool Show_STOCH_3=false;
extern int K_period3=56;
extern int D_period3=12;
extern int S_period3=12;
extern int STOCH_MAIN_Line_Style3=0;
extern int STOCH_SIGNAL_Line_Style3=2;
extern int STOCH_MAIN_Price3=1;
extern int STOCH_SIGNAL_Price3=1;
extern int STOCH_MAIN_Ma3=0;
extern int STOCH_SIGNAL_Ma3=0;
extern string IIIIIIIIIIIIIIIIIIIIIIIIIIIIIII=">>> Stoch #4 Settings >>>>>>>>>>>>>>>>>>>>>";
extern int TimeFrame4=0;
extern bool Show_STOCH_4=false;
extern int K_period4=84;
extern int D_period4=18;
extern int S_period4=3;
extern int STOCH_MAIN_Line_Style4=0;
extern int STOCH_SIGNAL_Line_Style4=2;
extern int STOCH_MAIN_Price4=1;
extern int STOCH_SIGNAL_Price4=1;
extern int STOCH_MAIN_Ma4=0;
extern int STOCH_SIGNAL_Ma4=0;
//----
double MainBuffer1[];
double SignalBuffer1[];
double MainBuffer2[];
double SignalBuffer2[];
double MainBuffer3[];
double SignalBuffer3[];
double MainBuffer4[];
double SignalBuffer4[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicator line
   if(Show_STOCH_1 ==true){Show_STOCH_1=DRAW_LINE; }
   else 
    {Show_STOCH_1=DRAW_NONE; }
   SetIndexBuffer(0,MainBuffer1);
   SetIndexStyle(0,Show_STOCH_1 ,STOCH_MAIN_Line_Style1);
   SetIndexLabel(0,"MAIN #1  ( "+K_period1+" )( "+D_period1+" )( "+S_period1+" )");
   SetIndexBuffer(1,SignalBuffer1);
   SetIndexStyle(1,Show_STOCH_1 ,STOCH_SIGNAL_Line_Style1);
   SetIndexLabel(1,"SIGNAL #1 ( "+K_period1+" )( "+D_period1+" )( "+S_period1+" )");
//----
   if(Show_STOCH_2 ==true){Show_STOCH_2=DRAW_LINE; }
   else 
    {Show_STOCH_2=DRAW_NONE; }
   SetIndexBuffer(2,MainBuffer2);
   SetIndexStyle(2,Show_STOCH_2 ,STOCH_MAIN_Line_Style2);
   SetIndexLabel(2,"MAIN #2 ( "+K_period2+" )( "+D_period2+" )( "+S_period2+" )");
   SetIndexBuffer(3,SignalBuffer2);
   SetIndexStyle(3,Show_STOCH_2 ,STOCH_SIGNAL_Line_Style2);
   SetIndexLabel(3,"SIGNAL #2 ( "+K_period2+" )( "+D_period2+" )( "+S_period2+" )");
//----
   if(Show_STOCH_3 ==true){Show_STOCH_3=DRAW_LINE; }
   else 
    {Show_STOCH_3=DRAW_NONE; }
   SetIndexBuffer(4,MainBuffer3);
   SetIndexStyle(4,Show_STOCH_3 ,STOCH_MAIN_Line_Style3);
   SetIndexLabel(4,"MAIN #3 ( "+K_period3+" )( "+D_period3+" )( "+S_period3+" )");
   SetIndexBuffer(5,SignalBuffer3);
   SetIndexStyle(5,Show_STOCH_3 ,STOCH_SIGNAL_Line_Style3);
   SetIndexLabel(5,"SIGNAL #3 ( "+K_period3+" )( "+D_period3+" )( "+S_period3+" )");
//----
   if(Show_STOCH_4 ==true){Show_STOCH_4=DRAW_LINE; }
   else
    {Show_STOCH_4=DRAW_NONE; }
   SetIndexBuffer(6,MainBuffer4);
   SetIndexStyle(6,Show_STOCH_4 ,STOCH_MAIN_Line_Style4);
   SetIndexLabel(6,"MAIN #4 ( "+K_period4+" )( "+D_period4+" )( "+S_period4+" )");
   SetIndexBuffer(7,SignalBuffer4);
   SetIndexStyle(7,Show_STOCH_4 ,STOCH_SIGNAL_Line_Style4);
   SetIndexLabel(7,"SIGNAL #4 ( "+K_period4+" )( "+D_period4+" )( "+S_period4+" )");
//---- name for DataWindow and indicator subwindow label   
   IndicatorShortName("MTF 4Period STOCH #1 ");
  }
//----
   return(0);
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//---- 
   ObjectsDeleteAll(0,OBJ_LABEL);
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| MTF Stochastic                                                   |
//+------------------------------------------------------------------+
int start()
  {
   datetime TimeArray[];
   int    i,shift,limit,y=0,counted_bars=IndicatorCounted();
   // Plot defined timeframe on to current timeframe   
   ArrayCopySeries(TimeArray,MODE_TIME,Symbol(),TimeFrame1);
   ArrayCopySeries(TimeArray,MODE_TIME,Symbol(),TimeFrame2);
   ArrayCopySeries(TimeArray,MODE_TIME,Symbol(),TimeFrame3);
   ArrayCopySeries(TimeArray,MODE_TIME,Symbol(),TimeFrame4);
//----
   limit=Bars-counted_bars+TimeFrame1/Period();
   limit=Bars-counted_bars+TimeFrame2/Period();
   limit=Bars-counted_bars+TimeFrame3/Period();
   limit=Bars-counted_bars+TimeFrame4/Period();
   for(i=0,y=0;i<limit;i++)
     {
      if (Time[i]<TimeArray[y]) y++;
      MainBuffer1[i]=iStochastic(NULL,TimeFrame1,K_period1,D_period1,S_period1,STOCH_MAIN_Ma1,STOCH_MAIN_Price1,MODE_MAIN,y);
      SignalBuffer1[i]=iStochastic(NULL,TimeFrame1,K_period1,D_period1,S_period1,STOCH_SIGNAL_Ma1,STOCH_SIGNAL_Price1,MODE_SIGNAL,y);
      MainBuffer2[i]=iStochastic(NULL,TimeFrame2,K_period2,D_period2,S_period2,STOCH_MAIN_Ma2,STOCH_MAIN_Price2,MODE_MAIN,y);
      SignalBuffer2[i]=iStochastic(NULL,TimeFrame2,K_period2,D_period2,S_period2,STOCH_SIGNAL_Ma2,STOCH_SIGNAL_Price2,MODE_SIGNAL,y);
//----
      MainBuffer3[i]=iStochastic(NULL,TimeFrame3,K_period3,D_period3,S_period3,STOCH_MAIN_Ma3,STOCH_MAIN_Price3,MODE_MAIN,y);
      SignalBuffer3[i]=iStochastic(NULL,TimeFrame3,K_period3,D_period3,S_period3,STOCH_SIGNAL_Ma3,STOCH_SIGNAL_Price3,MODE_SIGNAL,y);
//----
      MainBuffer4[i]=iStochastic(NULL,TimeFrame4,K_period4,D_period4,S_period4,STOCH_MAIN_Ma4,STOCH_MAIN_Price4,MODE_MAIN,y);
      SignalBuffer4[i]=iStochastic(NULL,TimeFrame4,K_period4,D_period4,S_period4,STOCH_SIGNAL_Ma4,STOCH_SIGNAL_Price4,MODE_SIGNAL,y);
     }
   string STF1="";
   if(TimeFrame1<1){STF1="Current TimeFrame";}
   if(TimeFrame1==1){STF1="Period M1";}
   if(TimeFrame1==5){STF1="Period M5";}
   if(TimeFrame1==15){STF1="Period M15";}
   if(TimeFrame1==30){STF1="Period M30";}
   if(TimeFrame1==60){STF1="Period H1";}
   if(TimeFrame1==240){STF1="Period H4";}
   if(TimeFrame1==1440){STF1="Period Daily";}
   if(TimeFrame1==10080){STF1="Period Weekly";}
   if(TimeFrame1==43200){STF1="Period Monthly";}
//----
   string STF2="";
   if(TimeFrame2<1){STF2="Current TimeFrame";}
   if(TimeFrame2==1){STF2="Period M1";}
   if(TimeFrame2==5){STF2="Period M5";}
   if(TimeFrame2==15){STF2="Period M15";}
   if(TimeFrame2==30){STF2="Period M30";}
   if(TimeFrame2==60){STF2="Period H1";}
   if(TimeFrame2==240){STF2="Period H4";}
   if(TimeFrame2==1440){STF2="Period Daily";}
   if(TimeFrame2==10080){STF2="Period Weekly";}
   if(TimeFrame2==43200){STF2="Period Monthly";}
//----
   string STF3="";
   if(TimeFrame3<1){STF3="Current TimeFrame";}
   if(TimeFrame3==1){STF3="Period M1";}
   if(TimeFrame3==5){STF3="Period M5";}
   if(TimeFrame3==15){STF3="Period M15";}
   if(TimeFrame3==30){STF3="Period M30";}
   if(TimeFrame3==60){STF3="Period H1";}
   if(TimeFrame3==240){STF3="Period H4";}
   if(TimeFrame3==1440){STF3="Period Daily";}
   if(TimeFrame3==10080){STF3="Period Weekly";}
   if(TimeFrame3==43200){STF3="Period Monthly";}
//----
   string STF4="";
   if(TimeFrame4<1){STF4="Current TimeFrame";}
   if(TimeFrame4==1){STF4="Period M1";}
   if(TimeFrame4==5){STF4="Period M5";}
   if(TimeFrame4==15){STF4="Period M15";}
   if(TimeFrame4==30){STF4="Period M30";}
   if(TimeFrame4==60){STF4="Period H1";}
   if(TimeFrame4==240){STF4="Period H4";}
   if(TimeFrame4==1440){STF4="Period Daily";}
   if(TimeFrame4==10080){STF4="Period Weekly";}
   if(TimeFrame4==43200){STF4="Period Monthly";}
//----
     if(Show_StochLabels==true)
     {
      ObjectCreate("stoLABEL", OBJ_LABEL,WindowFind("MTF 4Period STOCH #1 "), 0, 0);
      ObjectSetText("stoLABEL","STOCH #1 :  "+K_period1+" "+D_period1+" "+S_period1+"  "+STF1+"", 9, "Tahoma Narrow", indicator_color1);
      ObjectSet("stoLABEL", OBJPROP_CORNER, 0);
      ObjectSet("stoLABEL", OBJPROP_XDISTANCE, 735+Shift_Text);
      ObjectSet("stoLABEL", OBJPROP_YDISTANCE, 5);
//----
      ObjectCreate("stoLABEL1", OBJ_LABEL,WindowFind("MTF 4Period STOCH #1 "), 0, 0);
      ObjectSetText("stoLABEL1","STOCH #2 :  "+K_period2+" "+D_period2+" "+S_period1+"  "+STF2+"", 9, "Tahoma Narrow", indicator_color3);
      ObjectSet("stoLABEL1", OBJPROP_CORNER, 0);
      ObjectSet("stoLABEL1", OBJPROP_XDISTANCE, 735+Shift_Text);
      ObjectSet("stoLABEL1", OBJPROP_YDISTANCE, 20);
//----
      ObjectCreate("stoLABEL2", OBJ_LABEL,WindowFind("MTF 4Period STOCH #1 "), 0, 0);
      ObjectSetText("stoLABEL2","STOCH #3 :  "+K_period3+" "+D_period3+" "+S_period1+"  "+STF3+"", 9, "Tahoma Narrow", indicator_color5);
      ObjectSet("stoLABEL2", OBJPROP_CORNER, 0);
      ObjectSet("stoLABEL2", OBJPROP_XDISTANCE, 735+Shift_Text);
      ObjectSet("stoLABEL2", OBJPROP_YDISTANCE, 35);
//----
      ObjectCreate("stoLABEL4", OBJ_LABEL,WindowFind("MTF 4Period STOCH #1 "), 0, 0);
      ObjectSetText("stoLABEL4","STOCH #4 :  "+K_period4+" "+D_period4+" "+S_period1+"  "+STF4+"", 9, "Tahoma Narrow", indicator_color7);
      ObjectSet("stoLABEL4", OBJPROP_CORNER, 0);
      ObjectSet("stoLABEL4", OBJPROP_XDISTANCE, 735+Shift_Text);
      ObjectSet("stoLABEL4", OBJPROP_YDISTANCE, 50);
     }
//----
   return(0);
  }
//+------------------------------------------------------------------+