Vasily_Pip_Sniper_v3.1Ratio

//+------------------------------------------------------------------+
//|                                            Vasily Pip Sniper.mq4 |
//|                                                            By: E |
//|                                                                  |
//+------------------------------------------------------------------+
//mod2008fxtsd
#property copyright "By: E"

//----
#property indicator_separate_window
#property indicator_buffers 2
#property indicator_color1 Blue
#property indicator_color2 Red
#property indicator_width1 2
#property indicator_width2 2

#property indicator_level1  1
#property indicator_level2  0.25
#property indicator_level3 -0.25
#property indicator_level4 -1
#property indicator_levelcolor DarkSlateGray




extern int    Price     = 6;
extern int    Method    = 3;
extern bool   UseUserVariables = True;
extern int    FastPeriod = 12;//21
extern int    SlowPeriod = 26;//144
extern string  notes       = "If UseUserVariables set to false, Fast&SlowPeriods are preset for each TF";
extern string  price_      = "0C 1O 2H 3L 4Md 5Tp 6WghC: Md(HL/2)4,Tp(HLC/3)5,Wgh(HLCC/4)6";
extern string  Method_     = "SMA0 EMA1 SMMA2 LWMA3";

//---- parameters



int per1, per2;
//---- buffers
double up[];
double dn[];
double WorkBuffer[];
double WorkBuffer2[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//----
if (!UseUserVariables)
{
// for monthly
int mn_per = 12;
int mn_fast = 3;
// for weekly
int w_per = 9;
int w_fast = 3;
// for daily
int d_per = 5;
int d_fast = 3;
// for H4
int h4_per = 12;
int h4_fast = 2;
// for H1
int h1_per = 24;
int h1_fast = 8;
// for M30
int m30_per = 16;
int m30_fast = 2;
// for M15
int m15_per = 16;
int m15_fast = 4;
// for M5
int m5_per = 12;
int m5_fast = 3;
// for M1
int m1_per = 30;
int m1_fast = 10;
//----
}  
//---- 
     if (UseUserVariables)
     {
     per1=FastPeriod;
     per2=SlowPeriod;
     }
     else
     {
      switch(Period())
     {
       case 1:     per2 = m1_per;  per1 = m1_fast;  break;
       case 5:     per2 = m5_per;  per1 = m5_fast;  break;
       case 15:    per2 = m15_per; per1 = m15_fast; break;
       case 30:    per2 = m30_per; per1 = m30_fast; break;
       case 60:    per2 = h1_per;  per1 = h1_fast;  break;
       case 240:   per2 = h4_per;  per1 = h4_fast;  break;
       case 1440:  per2 = d_per;   per1 = d_fast;   break;
       case 10080: per2 = w_per;   per1 = w_fast;   break;
       case 43200: per2 = mn_per;  per1 = mn_fast;  break;
     } 
     }

 
string Indicator_Name = "Vasily Pip Sniper ZL ("+per1+","+ per2+")   ";
//-----
IndicatorBuffers(4);
   SetIndexStyle(0, DRAW_LINE);
   SetIndexBuffer(0, up);
    
   SetIndexStyle(1, DRAW_LINE);
   SetIndexBuffer(1, dn); 
   
   SetIndexBuffer(2, WorkBuffer);
   SetIndexBuffer(3, WorkBuffer2);
   
   SetIndexDrawBegin(0, per1 + per2);
   SetIndexDrawBegin(1, per1 + per2);

   IndicatorShortName(Indicator_Name);
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   int limit;
   int counted_bars = IndicatorCounted();
 
//---- 
   if(counted_bars < 0) 
       return(-1);
//---- 
   if(counted_bars > 0) 
       counted_bars --;
   limit = Bars - counted_bars;
//---- 
  for(int i = 0; i < limit; i++)
       {
       WorkBuffer[i] = iMA(NULL, 0, per1, 0, Method, Price, i);
       WorkBuffer2[i]= iMA(NULL, 0, per2, 0, Method, Price, i);
       }
       
       for(i = 0; i < limit; i++)
       {
       double wMA, wMA2, lMA, sMA;
     
       wMA = iMAOnArray(WorkBuffer, 0, per1, 0, Method, i);
       lMA =   2*WorkBuffer[i]-wMA ;
     
       wMA2 = iMAOnArray(WorkBuffer2, 0, per2, 0, Method, i);
       sMA =   2*WorkBuffer2[i]-wMA2;
       
       up[i]=100*(lMA-sMA)/sMA;
       dn[i]=-1*up[i];
       
       
       
       }
//----
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+