//+------------------------------------------------------------------+
//|                                                      ProjectName |
//|                                      Copyright 2012, CompanyName |
//|                                       http://www.companyname.net |
//+------------------------------------------------------------------+
#property indicator_chart_window
#property indicator_buffers 3
#property indicator_color1 clrNONE
#property indicator_color2 Blue
#property indicator_color3 Red
#property indicator_width1 2
#property indicator_width2 2
#property indicator_width3 2

extern int period =16;
extern int method= 3; // MODE_SMA
extern int price = 0; // PRICE_CLOSE
extern int shift = 0;

double Uptrend[];
double Dntrend[];
double ExtMapBuffer[];

double vect[];

static bool bs=false,ba=false;
static int bTime=0;
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int init()
  {
   IndicatorBuffers(4);
   SetIndexBuffer(0,ExtMapBuffer);
   SetIndexBuffer(1,Uptrend);
   SetIndexBuffer(2,Dntrend);
   SetIndexBuffer(3,vect);

   SetIndexStyle(0,DRAW_LINE);
   SetIndexStyle(1,DRAW_LINE);
   SetIndexStyle(2,DRAW_LINE);

   SetIndexDrawBegin(0,1*period);
   SetIndexDrawBegin(1,2*period);
   SetIndexDrawBegin(2,3*period);

   IndicatorShortName("IFX HMA("+period+")");
   SetIndexLabel(1,"UP");
   SetIndexLabel(2,"DN");

   bs = false;
   ba = false;
   bTime=0;

   return (0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int deinit()
  {
   return (0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double GetWMA(int x,int p)
  {
   return (iMA(NULL, 0, p, 0, method, price, x + shift));
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int start()
  {
   int p=MathSqrt(period);

   int i,limit0,limit1,limit2;

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

   limit1 = limit2;
   limit0 = limit1;

   if(counted_bars==0)
     {
      limit1 -= (period);
      limit2 -= (2*period);
     }

   for(i=limit0; i>=0; i--)
      vect[i]=2*GetWMA(i,period/2)-GetWMA(i,period);
   for(i=limit1; i>=0; i--)
      ExtMapBuffer[i]=iMAOnArray(vect,0,p,0,method,i);
   for(i=limit2; i>=0; i--)
     {
      Uptrend[i]=EMPTY_VALUE;
      if(ExtMapBuffer[i]>ExtMapBuffer[i+1])
        {
         Uptrend[i+1]=ExtMapBuffer[i+1];
         Uptrend[i]=ExtMapBuffer[i];
        }
      Dntrend[i]=EMPTY_VALUE;
      if(ExtMapBuffer[i]<ExtMapBuffer[i+1])
        {
         Dntrend[i+1]=ExtMapBuffer[i+1];
         Dntrend[i]=ExtMapBuffer[i];
        }
     }
   if(bTime!=Time[0])
     {
      bTime=Time[0];
      bs = false;
      ba = false;
     }
   return (0);
  }
// +------------------------------------------------------------------+

//+------------------------------------------------------------------+
//|                                                     HMAColor.mq4 |
//|                                              Copyright 2015, AM2 |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2015, AM2"
#property link      "http://www.forexsystems.biz"
#property description "HMA Color simple expert advisor"

#define MAGICMA  20141020
//--- Inputs
input double StopLoss     = 500;
input double TakeProfit   = 500;
input double Lots         = 0.1;
//----
extern int HMAPeriod      = 16;
extern int Method         = 3;
extern int Price          = 0;
extern int Shift          = 0;

//+------------------------------------------------------------------+
//| Check for open order conditions                                  |
//+------------------------------------------------------------------+
void CheckForOpen()
  {
   int    res;
//--- go trading only for first tiks of new bar
   if(Volume[0]>1) return;
//--- get Moving Average 
   double HMABlue=iCustom(Symbol(),0,"HMA",HMAPeriod,Method,Price,Shift,1,1);
   double HMARed=iCustom(Symbol(),0,"HMA",HMAPeriod,Method,Price,Shift,2,1);

//--- sell conditions
   if(HMABlue>HMARed)
     {
      res=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Bid+StopLoss*Point,Bid-TakeProfit*Point,"",MAGICMA,0,Red);
      return;
     }
//--- buy conditions
   if(HMARed>HMABlue)
     {
      res=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Ask-StopLoss*Point,Ask+TakeProfit*Point,"",MAGICMA,0,Blue);
      return;
     }
//---
  }
//+------------------------------------------------------------------+
//| Check for close order conditions                                 |
//+------------------------------------------------------------------+
void CheckForClose()
  {
//--- go trading only for first tiks of new bar
   if(Volume[0]>1) return;
//--- get Moving Average 
   double HMABlue=iCustom(Symbol(),0,"HMA",HMAPeriod,Method,Price,Shift,1,1);
   double HMARed=iCustom(Symbol(),0,"HMA",HMAPeriod,Method,Price,Shift,2,1);
//---
   for(int i=0;i<OrdersTotal();i++)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
      if(OrderMagicNumber()!=MAGICMA || OrderSymbol()!=Symbol()) continue;
      //--- check order type 
      if(OrderType()==OP_BUY)
        {
         if(HMABlue>HMARed)
           {
            if(!OrderClose(OrderTicket(),OrderLots(),Bid,3,White))
               Print("OrderClose error ",GetLastError());
           }
         break;
        }
      if(OrderType()==OP_SELL)
        {
         if(HMARed>HMABlue)
           {
            if(!OrderClose(OrderTicket(),OrderLots(),Ask,3,White))
               Print("OrderClose error ",GetLastError());
           }
         break;
        }
     }
//---
  }
//+------------------------------------------------------------------+
//| OnTick function                                                  |
//+------------------------------------------------------------------+
void OnTick()
  {
//--- check for history and trading
   if(Bars<100 || IsTradeAllowed()==false)
      return;
//--- calculate open orders by current symbol
   if(OrdersTotal()<1) CheckForOpen();
   else CheckForClose();
//---
  }
//+------------------------------------------------------------------+

double StMain=iStochastic(NULL,0,8,13,5,MODE_SMA,1,MODE_MAIN,1);