//+------------------------------------------------------------------+
//|                                                     WierdEMA.mq4 |
//|                                                        Tal Perry |
//|                                                                  |
//+------------------------------------------------------------------+
#property copyright "Tal Perry"
#property link      ""
extern double Risk_Level =0.002, SL=1.5, CloseSpeed =6, OpenSpeed =7;
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+

double MaClose (int speed)
   {
     return (NormalizeDouble( iMA (Symbol(),0,speed,0, MODE_EMA, PRICE_CLOSE,0),Digits ) );
   }   

double MaOpen (int speed)
   {
     return (NormalizeDouble( iMA (Symbol(),0,speed,0, MODE_EMA, PRICE_OPEN,0),Digits ) );
   }   
   



int start()
  {
  int i;
  double Lots, Stop;
  static double MaxLoss;
  MaxLoss = (AccountBalance() * Risk_Level ) * MarketInfo( Symbol(), MODE_POINT); 
   if (MaClose(CloseSpeed) > MaOpen(OpenSpeed))
   {
   
   //  CLOSE SHORTS
   if (OrdersTotal()> 0)
   {
   
      for (i=0; i<OrdersTotal(); i++)
         {
            OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
            if (OrderType() == OP_SELL)
               OrderClose(OrderTicket(),OrderLots(),Ask,5);
         }      
   }      
   // GO LONG
   if (OrdersTotal() ==0)
      {
         Stop = Ask - SL*iATR(Symbol(),0,15,0);
         Stop = NormalizeDouble(Stop,Digits);
         Lots = MaxLoss / (Ask - Stop);
         Lots = Lots / (1 +OrdersTotal());
         Lots = NormalizeDouble(Lots, 1);                     
         if (Lots >0)
            OrderSend(Symbol(),OP_BUY,Lots, Ask,5,Stop,0);
      }      
   }         
   
   if (MaClose(CloseSpeed) < MaOpen(OpenSpeed)) 
   {
   
   //  CLOSE LONGS
   if (OrdersTotal()> 0)
   {
   
      for (i=0; i<OrdersTotal(); i++)
         {
            OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
            if (OrderType() == OP_BUY)
               OrderClose(OrderTicket(),OrderLots(),Bid,5);
         }      
   }      
   // GO SHORT
      if (OrdersTotal() == 0)
      {
         Stop = Bid + SL*iATR(Symbol(),0,15,0);
         Stop = NormalizeDouble(Stop,Digits);
         Lots = MaxLoss / (Stop - Bid);
         Lots = Lots / (1 +OrdersTotal());
         Lots = NormalizeDouble(Lots, 1);                     
         if (Lots >0)
            OrderSend(Symbol(),OP_SELL,Lots, Bid,5,Stop,0);
      }      
   }         
   
//----
   return(0);
  }
//+------------------------------------------------------------------+