DoubleStochastic

//+------------------------------------------------------------------+
//|                                             DoubleStochastic.mq4 |
//|                      Copyright © 2008, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2008, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"

static datetime dttm;
int     MAGICMA = 20050611;

extern double stopLoss=50;
extern double takeProfit=50;
extern double lotes=1;
extern double Risk=0.1;
extern double step=50000;

double trasformMargin(double margin){
  double newMargin;
  double aux=MathFloor(margin/step);
  double marginAux=margin-(step*aux);
  if(marginAux>0){
      newMargin=marginAux;
  }else{
      newMargin=margin;
  }
  return(newMargin);
}
double LotSize(){
   double acountFree=trasformMargin(AccountFreeMargin());   
   double lotMM = MathCeil(acountFree * Risk / 1000)/10;  
   if (lotMM < 0.1) lotMM = lotes;
   if (lotMM > 1.0) lotMM = MathCeil(lotMM);
   if  (lotMM > 50) lotMM = lotes;
   return (lotMM);
} 

int subGenerateMagicNumber(int MagicNumber, string symbol, int timeFrame)
{
int isymbol = 0;
if (symbol == "EURUSD") isymbol = 1;
else if (symbol == "GBPUSD") isymbol = 2;
else if (symbol == "USDJPY") isymbol = 3;
else if (symbol == "USDCHF") isymbol = 4;
else if (symbol == "AUDUSD") isymbol = 5;
else if (symbol == "USDCAD") isymbol = 6;
else if (symbol == "EURGBP") isymbol = 7;
else if (symbol == "EURJPY") isymbol = 8;
else if (symbol == "EURCHF") isymbol = 9;
else if (symbol == "EURAUD") isymbol = 10;
else if (symbol == "EURCAD") isymbol = 11;
else if (symbol == "GBPUSD") isymbol = 12;
else if (symbol == "GBPJPY") isymbol = 13;
else if (symbol == "GBPCHF") isymbol = 14;
else if (symbol == "GBPAUD") isymbol = 15;
else if (symbol == "GBPCAD") isymbol = 16;
else isymbol = 17;
if(isymbol<10) MagicNumber = MagicNumber * 10;
return (StrToInteger(StringConcatenate(MagicNumber, isymbol, timeFrame)));
}
bool isNewBar(){   
  if (Time[0]!=dttm)     //if opening time changed, it means that we have a new candle
  { dttm=Time[0];        //.... so, store its time
    return (true);       //.... and tell back that is a new one
  }
  return (false);        //else, nothing to do, no new candle*/  
}

  void buy(){
   double precio=NormalizeDouble(Ask,Digits);
   int res=OrderSend(Symbol(),OP_BUY,lotes,precio,5,precio-stopLoss*Point,precio+takeProfit*Point,"",MAGICMA,0,Green);   
   if(res<0){
		 Print("OrderSend failed with error #",GetLastError());
		 return(0);
	}	
	//res=OrderSend(Symbol(),OP_SELLSTOP,lotes,precio-stopLoss*Point,5,precio,precio-takeProfit*Point,"",MAGICMA,0,Red);   
   return;
}

void sell(){
   double precio=NormalizeDouble(Bid,Digits);
   int res=OrderSend(Symbol(),OP_SELL,lotes,precio,5,precio+stopLoss*Point,precio-takeProfit*Point,"",MAGICMA,0,Red);
   if(res<0){
	    Print("OrderSend failed with error #",GetLastError());
	    return(0);
	}		         
	//res=OrderSend(Symbol(),OP_BUYSTOP,lotes,precio+stopLoss*Point,5,precio,precio+takeProfit*Point,"",MAGICMA,0,Green);   
   return;
}  
bool WorkingOrder() {
   int l_ord_total_0 = OrdersTotal();
   for (int l_pos_4 = 0; l_pos_4 < l_ord_total_0; l_pos_4++) {
      OrderSelect(l_pos_4, SELECT_BY_POS, MODE_TRADES);
      if (OrderSymbol() == Symbol() && OrderMagicNumber() == MAGICMA) return (TRUE);
   }
   return (FALSE);
  }
  
int closeBuy(){
  int total = OrdersTotal();
  for(int i=total-1;i>=0;i--)
  {
    OrderSelect(i, SELECT_BY_POS);
    if(OrderSymbol()==Symbol()){
      int type   = OrderType();
      bool result = false;    
      switch(type){
        //Close opened long positions
        case OP_BUY       : result = OrderClose( OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(), MODE_BID), 5, Red );
                            break;    
      }          
    }      
  } 
  return(0);
}

int closeSell(){
  int total = OrdersTotal();
  for(int i=total-1;i>=0;i--)
  {
    OrderSelect(i, SELECT_BY_POS);
    if(OrderSymbol()==Symbol()){
      int type   = OrderType();
      bool result = false;    
      switch(type){        
        //Close opened short positions
        case OP_SELL      : result = OrderClose( OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(), MODE_ASK), 5, Red );
                            break;        
      }          
    }      
  } 
  return(0);
}
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
   MAGICMA = subGenerateMagicNumber(MAGICMA, Symbol(), Period());
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
   double stoch1 = iStochastic(NULL, 0, 120, 3, 3, MODE_SMA, 0, MODE_MAIN, 0);
   double stoch2 = iStochastic(NULL, 0, 15, 3, 3, MODE_SMA, 0, MODE_MAIN, 0);
   if(!WorkingOrder()){
      //long trade stoch 1 must be 85 or above and stoch 2 must be 40 or less . stoploss 35 pips. exit the trade at 50 pips or stoch 2 reaches 95.
      if(stoch1>=85 && stoch2<=40){
         lotes=LotSize();
         buy();   
      }
     //short trade stoch 1 must be 10 or less and stoch 2 must be 70 or above.exit the trade at50 pips or stoch 2 reaches 10.
      if(stoch1<=10 && stoch2>=70){
         lotes=LotSize();
         sell();   
      }
   }else{
      if(stoch2>=95){
         closeBuy();
      }
      if(stoch2<=10){
         closeSell();
      }
   }
   return(0);
  }
//+------------------------------------------------------------------+