//+------------------------------------------------------------------+
//|Stochastic_Env.mq4.mq4
//| leonid553 & Co
//| http://www.tradersforum.net.ru/
//+------------------------------------------------------------------+
#property copyright "leonid553 & Co"
#property link      "http://www.tradersforum.net.ru/"

//---- input parameters---------

extern int MagicNum = 294;
extern int MagicLock = 295;
//-----------------------------------
extern int     Stochastic_period=8;
extern int     Env_period=25;
extern int     Env_shift=1;
extern double  Env_deviation=20;
//------------------------------
extern int     TP=55;
extern int     SL=55;
extern int m=20;
extern int TP_lock=30;
extern int SL_lock=30;

extern double  Lot=0.1;
extern int     Slippage=3;
//-------------------
int ticket;

//*********************************************************************

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
if (Env_deviation==0) Env_deviation=0.1;
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
  
//----
   return(0);
  }

//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
  
  // int cnt=0;
   int total = OrdersTotal(); // количество открытых ордеров
  if( total==0)               //если нет открытых ордеров

  {  

double Stochastic_array[49];
//заполняем массив значениями Stochastic-----------------]
int    i=0;
while (i<50)
{
Stochastic_array[i]= iStochastic(NULL, 0, Stochastic_period, 3,3,MODE_SMA,0,MODE_MAIN, i);
i++;
}
//------------------------------------------------------

ArraySetAsSeries(Stochastic_array,true);
// Цепляем на стохастик конверт - Envelope :
double
En0_low=iEnvelopesOnArray(Stochastic_array,0,Env_period,0,Env_shift,Env_deviation,MODE_LOWER,0);

double
En0_up=iEnvelopesOnArray(Stochastic_array,0,Env_period,0,Env_shift,Env_deviation,MODE_UPPER,0);

double Stochastic_0=iStochastic(NULL, 0, Stochastic_period, 3,3,MODE_SMA,0,MODE_MAIN, 0);
double Stochastic_1=iStochastic(NULL, 0, Stochastic_period, 3,3,MODE_SMA,0,MODE_MAIN, 1);

//]===== Ищем возможность войти в рынок ]=========================================================


//проверяем условие на покупку-------------[/
  if   (
          (Stochastic_1<En0_low)  &&
          (Stochastic_0>En0_low)  )
   {  // ---покупаем-----
  ticket=OrderSend(Symbol(),0,Lot,Ask,Slippage,Bid-SL*Point,Ask+TP*Point,NULL,MagicNum,0,Blue);
  if (ticket<0) { Print("Ошибка открытия ордера BUY #", GetLastError()); return (0); }              
   }


//--------проверяем условие на продажу
  if  ( //-------продаем------------
          (Stochastic_1>En0_up)  &&
          (Stochastic_0<En0_up))
   {      
  ticket=OrderSend(Symbol(),1,Lot,Bid,Slippage,Bid+SL*Point,Bid-TP*Point,NULL,MagicNum,0,Yellow);
  if (ticket<0) { Print("Ошибка открытия ордера SELL #", GetLastError()); return (0); }              
   }
  
//------------------------------------------------------------------
  }

//***************ЛОКИРОВАНИЕ**********************

if( total==1)//если есть открытый ордер  

{  
      double val=iForce(NULL, 0, 5,MODE_SMA,PRICE_CLOSE,0);        
    if (OrderSelect(0, SELECT_BY_POS, MODE_TRADES))

{
  
//----------------------------------------------------------------------
    if (OrderType() == OP_BUY && (OrderMagicNumber() == MagicNum)) //и если это - длинная позиция открыта----------
  {
     if ((OrderProfit() < (-m) ) && val<-0 )
      // - если убыток позиции превышает "m", то открываем лок SELL
    {
    
  ticket=OrderSend(Symbol(),1,Lot,Bid,Slippage, Bid+SL_lock*Point, Bid-TP_lock*Point,NULL,MagicLock,0,Aqua);
if (ticket<0) { Print("Ошибка открытия ордера SELL #", GetLastError()); return (0);}
        
     }
}
    //------------------------------------------------------------------
    if (OrderType() == OP_SELL && (OrderMagicNumber() == MagicNum)) //и если это - короткая позиция открыта----------
  {
     if ((OrderProfit() <(-m) ) &&  val>0)
      // - если убыток позиции превышает "m", то открываем лок BUY
    {    
ticket=OrderSend(Symbol(),0,Lot,Ask,Slippage,Bid-SL_lock*Point,Ask+ TP_lock*Point,NULL,MagicLock,0,Green);
    
  if (ticket<0) { Print("Ошибка открытия ордера BUY #", GetLastError()); return (0); }  
        
     }
    }
    //----------------------------------------------------------
   }
  }
      return(0);
      }