MTFPI-sub1

//KurlFX 2009.01.31
//+------------------------------------------------------------------+
//|	*** MTFPI-sub1 ***															|
//+------------------------------------------------------------------+
#property copyright "Copyright (c) 2009,Kurl FX"
#property indicator_chart_window
#property indicator_buffers 2
#property indicator_color2 Blue

extern int FastEMA = 5;
extern int SlowEMA = 100;
extern int SignalSMA = 3;
extern int K_Period = 5;
extern int D_Period = 3;
extern int Slowing = 3;

double BS[];//Buy/no/Sell sign: -1;0;1
double GS[];//Go/Stop price: Entry or LossCutPoint
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
{
	SetIndexBuffer(0,BS);
	SetIndexBuffer(1,GS);
	SetIndexLabel(0,"sign");
	SetIndexLabel(1,"val");
	SetIndexStyle(0,DRAW_NONE);
	return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
{
	return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
{
	double spread=MarketInfo(Symbol(),MODE_SPREAD);
	int counted_bar=IndicatorCounted(); 
	int limit=Bars-counted_bar;
   for(int i=limit-1; i>=0; i--)
	{   
		double A=iCustom(NULL,0,"MTFPI-sub2",FastEMA,SlowEMA,SignalSMA,0,i);
		double Bb=iCustom(NULL,0,"MTFPI-sub3",K_Period,D_Period,Slowing,0,i);
		double Bs=iCustom(NULL,0,"MTFPI-sub3",K_Period,D_Period,Slowing,1,i);
		double C1=iCustom(NULL,0,"MTFPI-sub4",0,i);
		double C2=iCustom(NULL,0,"MTFPI-sub4",1,i);

		if (A>0 && Bb!=EMPTY_VALUE && C1>Bb && C2>Bb)
		{
			if(Close[i]<Bb)Bb=Bb+spread*Point;
			BS[i]=1.0;
			GS[i]=Bb;
		}
		else if (A<0 && Bs!=EMPTY_VALUE && C1<Bs && C2<Bs)
		{
			if(Close[i]<Bs)Bs=Bs+spread*Point;
			BS[i]=-1.0;
 			GS[i]=Bs;
      }
		else
		{
			BS[i]=0.0;
			GS[i]=EMPTY_VALUE;
		}
	}	  
	return(0);
}
//+------------------------------------------------------------------+