//+------------------------------------------------------------------+
//|                                                    Wednesday.mq4 |
//|                                     Copyright © 2010, NutCracher |
//|                                              forex-way@yandex.ru |
//|                                              http://wellforex.ru |
//-------------------------------------------------------------------+

#property copyright "Copyright © 2010, http://wellforex.ru"
#property link      "forex-way@yandex.ru"
extern string   ParamertSet = "Параметры эксперта";
extern int      K=20;                          //K - параметр стохастика
extern int      S=35;                          //S - параметр стохастика
extern double   Stop_Loss=40;                  //Стоплосс
extern double   Take_Profit=75;                //Тейкпрофит
extern double   L_open=21;                     //Уровень перекупленности/перепроданности
extern double   EndTime=19;                    //Время окончания работы эксперта
extern string   BrokerSet = "Установки ДЦ";  
extern int      NumberOfDigit=5;               //Количество знаков в котировках торгового сервера: 4 или 5
extern string   MMSet = "Управление капиталом";
extern bool     MM=false;                      // Включение ММ
extern double   MMRisk=0.1;                    // Риск-фактор
extern double   Lots = 0.1;                    //Лот по умолчанию


#define MAGICMA  20050610
double SMain_current_M15; double SMain_past_M15;
double SS_current_M15, SS_past_M15, Axel;
double Trend_M15;
double TrailingStop; 
int MODE_AV, D=1;
int res, cnt; int Slippage=3; int MaxTries=5, mode=0, Dec;


double MoneyManagement ( bool flag, double risk)
{
   double Lotsi=Lots;
	    
   if ( flag ) Lotsi=NormalizeDouble(AccountFreeMargin()*risk/1000,2);   
   if (Lotsi<0.1) Lotsi=0.1;  
   return(Lotsi);
}   


int CalculateCurrentOrders(string symbol)
  {
   int buys=0,sells=0;
//----
   for(int i=0;i<OrdersTotal();i++)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==MAGICMA)
        {
         if(OrderType()==OP_BUY)  buys++;
         if(OrderType()==OP_SELL) sells++;
        }
     }
//---- return orders volume
   if(buys>0) return(buys);
   else       return(-sells);
  }

void CloseOrdbyTime()
{
     bool result;
     int total=OrdersTotal();
     
     for (cnt=0;cnt<total;cnt++)
     { 
        OrderSelect(cnt, SELECT_BY_POS);   
        mode=OrderType();

if (mode==OP_BUY ) 
 {
  for (int try=1;try<=MaxTries;try++)
       {
       while (!IsTradeAllowed()) Sleep(500);
       RefreshRates();	
			     result=OrderClose(OrderTicket(),OrderLots(),Bid,Slippage*Dec,Yellow);
			     Sleep(200);
			     if (result) break;
		  }
   }
if (mode==OP_SELL)
{
  for (int tryy=1;tryy<=MaxTries;tryy++)
       {
       while (!IsTradeAllowed()) Sleep(500);
       RefreshRates();	
			     result=OrderClose(OrderTicket(),OrderLots(),Ask,Slippage*Dec,White);
			     Sleep(200);
			     if (result) break;
		  }
   }
}       
}
void CheckForOpen()
  {

   if(Volume[0]>1) return;

      SMain_current_M15=iStochastic(NULL,PERIOD_M15,K,D,S,MODE_AV,1,MODE_MAIN,1);
      SS_current_M15=iStochastic(NULL,PERIOD_M15,K,D,S,MODE_AV,1,MODE_SIGNAL,1);      
      SMain_past_M15=iStochastic(NULL,PERIOD_M15,K,D,S,MODE_AV,1,MODE_MAIN,2);  
      
           
      if (SMain_current_M15>L_open && SMain_past_M15<L_open) 
    
      {
 for (int try=1;try<=MaxTries;try++)
       {
       while (!IsTradeAllowed()) Sleep(500);
       RefreshRates();	
      res=OrderSend(Symbol(),OP_BUY,Lots,Ask,3*Dec,Bid-Stop_Loss*Dec*Point,Ask+Take_Profit*Dec*Point,"",MAGICMA,0,Blue);
      Sleep(200);
      if(res>0)
           {
            if(OrderSelect(res,SELECT_BY_TICKET,MODE_TRADES)) Print("BUY по цене : ",OrderOpenPrice());
            break;
            }
         else 
         {
         Print("Error opening BUY order : ",GetLastError()); 
         }
      }
      }
       
      if (SMain_current_M15<100-L_open && SMain_past_M15>100-L_open)
      
      {
for (int tryy=1;tryy<=MaxTries;tryy++)
       {
       while (!IsTradeAllowed()) Sleep(500);
       RefreshRates();	      
      res=OrderSend(Symbol(),OP_SELL,Lots,Bid,3*Dec,Ask+Stop_Loss*Dec*Point,Bid-Take_Profit*Dec*Point,"",MAGICMA,0,Red);
        Sleep(200);    
      if(res>0)
           {
            if(OrderSelect(res,SELECT_BY_TICKET,MODE_TRADES)) Print("SELL по цене : ",OrderOpenPrice());
             break;
            }
         else 
         {
         Print("Error opening BUY order : ",GetLastError()); 
        }
        }
       }
      return;
      }

  


int start()
  {

   MODE_AV=MODE_EMA;
   if (NumberOfDigit==4) Dec=1;
   if (NumberOfDigit==5) Dec=10;   
   if (MM) Lots = MoneyManagement (MM,MMRisk);
 

   if(Bars<100 || IsTradeAllowed()==false) return;

   if(CalculateCurrentOrders(Symbol())==0)
   {
   if (DayOfWeek()==3 && Hour()<EndTime) CheckForOpen();

   }
   else                                    
   if ( Hour()>=EndTime && Hour()<EndTime+1 ) 
      { CloseOrdbyTime(); }

   return(0);
  }
//+------------------------------------------------------------------+