Navigation:Home > Content >

StepSto-v1.mq4

Time: 2017-06-23 | Download file:StepSto-v1.mq4

//compile//
//+------------------------------------------------------------------+
//|                                                 StepSto_v1.mq4 |
//|                           Copyright © 2005, TrendLaboratory Ltd. |
//|                                       E-mail: igorad2004@list.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, TrendLaboratory Ltd."
#property link      "E-mail: igorad2004@list.ru"

#property indicator_separate_window
#property indicator_minimum 0
#property indicator_maximum 100
#property indicator_buffers 2
#property indicator_color1 Yellow
#property indicator_color2 DeepSkyBlue
//---- input parameters
extern double Kfast=1.0000;
extern double Kslow=1.0000;
//---- indicator buffers
double LineFastBuffer[];
double LineSlowBuffer[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
  int init()
  {
   string short_name;
//---- indicator line
   SetIndexStyle(0,DRAW_LINE,STYLE_SOLID,1);
   SetIndexStyle(1,DRAW_LINE,STYLE_SOLID,1);
   SetIndexBuffer(0,LineFastBuffer);
   SetIndexBuffer(1,LineSlowBuffer);
   IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS));
//---- name for DataWindow and indicator subwindow label
   short_name="StepSto("+Kfast+","+Kslow+")";
   IndicatorShortName(short_name);
   SetIndexLabel(0,"StepSto Fast");
   SetIndexLabel(1,"StepSto Slow");
//----
   SetIndexDrawBegin(0,10);
   SetIndexDrawBegin(1,10);
//----
   return(0);
  }

//+------------------------------------------------------------------+
//| StepSto_v1                                                       |
//+------------------------------------------------------------------+
int start()
  {
   int      shift,TrendMin,TrendMax,TrendMid;
   double   SminMin0,SmaxMin0,SminMin1,SmaxMin1,ATR0,ATRmax,ATRmin;
   double   SminMax0,SmaxMax0,SminMax1,SmaxMax1,SminMid0,SmaxMid0,SminMid1,SmaxMid1;
   double   linemin,linemax,linemid,Sto1,Sto2,bsmin,bsmax;
   
   double   PeriodATR=10;	
   for(shift=Bars-1-PeriodATR;shift>=0;shift--)
   {	
	ATR0 = iATR(NULL,0,PeriodATR,shift);
	
	ATRmax=MathMax(ATR0,ATRmax);
	if (shift==Bars-1-PeriodATR) ATRmin=ATR0;
	ATRmin=MathMin(ATR0,ATRmin);
	
	double StepSizeMin=(Kfast*ATRmin);
	double StepSizeMax=(Kfast*ATRmax);
	double StepSizeMid=(Kfast*0.5*Kslow*(ATRmax+ATRmin));
		
	  SmaxMin0=Close[shift]+2*StepSizeMin;
	  SminMin0=Close[shift]-2*StepSizeMin;
	  
	  SmaxMax0=Close[shift]+2*StepSizeMax;
	  SminMax0=Close[shift]-2*StepSizeMax;
	  
	  SmaxMid0=Close[shift]+2*StepSizeMid;
	  SminMid0=Close[shift]-2*StepSizeMid;
	  
	  if(Close[shift]>SmaxMin1) TrendMin=1; 
	  if(Close[shift]SmaxMax1) TrendMax=1; 
	  if(Close[shift]SmaxMid1) TrendMid=1; 
	  if(Close[shift]0 && SminMin0SmaxMin1) SmaxMin0=SmaxMin1;
		
	  if(TrendMax>0 && SminMax0SmaxMax1) SmaxMax0=SmaxMax1;
	  
	  if(TrendMid>0 && SminMid0SmaxMid1) SmaxMid0=SmaxMid1;
	  
	  
	  if (TrendMin>0) linemin=SminMin0+StepSizeMin;
	  if (TrendMin<0) linemin=SmaxMin0-StepSizeMin;
	  
	  if (TrendMax>0) linemax=SminMax0+StepSizeMax;
	  if (TrendMax<0) linemax=SmaxMax0-StepSizeMax;
	  
	  if (TrendMid>0) linemid=SminMid0+StepSizeMid;
	  if (TrendMid<0) linemid=SmaxMid0-StepSizeMid;
	  
	  bsmin=linemax-StepSizeMax;
	  bsmax=linemax+StepSizeMax;
	  
	  Sto1=(linemin-bsmin)/(bsmax-bsmin);
	  Sto2=(linemid-bsmin)/(bsmax-bsmin);
	  
	  LineFastBuffer[shift]=Sto1*100;
	  LineSlowBuffer[shift]=Sto2*100;
	  	  
	  SminMin1=SminMin0;
	  SmaxMin1=SmaxMin0;
	  
	  SminMax1=SminMax0;
	  SmaxMax1=SmaxMax0;
	  
	  SminMid1=SminMid0;
	  SmaxMid1=SmaxMid0;
	 }
	return(0);	
 }

Recommend