<code>//+------------------------------------------------------------------+
//|                                               NEW_Stochastic.mq4 |
//|                        Copyright 2019, MetaQuotes Software Corp. |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2019, MetaQuotes Software Corp."
#property link "www.mql5.com"
#property version "1.00"
#property strict
//+------------------------------------------------------------------+
//input double lot= 0.01;
input double RiskPercent = 2;
input double K_TP = 3; // Соотношение SL к ПРОФИТ
input double K_PR_B = 3; // Процент перемещения SL от ТР Buy
input double K_PR_S = 5; // Процент перемещения SL от ТР Sell
extern bool _modifi = true; // вкл. модификацию
input int magic = 20201218;
extern int    KPeriod               =  28;
extern int    DPeriod               =  10;
extern int    Slowing               =  6;
//------------------------------------------------


//+------------------------------------------------------------------+
//| Расчет риска в % от величины SL                                  |
//+------------------------------------------------------------------+
double CalculateLot(double _stop)
  {
   double loss = _stop / MarketInfo(_Symbol, MODE_TICKSIZE) * MarketInfo(_Symbol, MODE_TICKVALUE);
   double lots = AccountFreeMargin() * RiskPercent / 100 / loss;
   return (NormalizeDouble(MathMin(MarketInfo(_Symbol, MODE_MAXLOT), MathMax(MarketInfo(_Symbol, MODE_MINLOT), lots)), 2));
  }
//+------------------------------------------------------------------+
//| Подсчет ордеров по типу |
//+------------------------------------------------------------------+
int CountOrders(int type=-1)
  {
   int count=0;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic)
           {
            if(OrderType()==type || type==-1)
               count++;
           }
        }
     }
   return(count);
  }
//+------------------------------------------------------------------+
//| Expert tick function |
//+------------------------------------------------------------------+
void OnTick()
  {
   if(_modifi)
     {
      _Modifi();
     }

   int r=0;
   double stoch_1=iStochastic(NULL,0,KPeriod,DPeriod,Slowing,MODE_SMA,1,MODE_MAIN,1);
   double stoch_2=iStochastic(NULL,0,KPeriod,DPeriod,Slowing,MODE_SMA,1,MODE_MAIN,2);
   double ATR=NormalizeDouble(iATR(NULL,PERIOD_D1,21,1), Digits);
   double TP=ATR*100000;
   CountOrders();
   if(stoch_1 > 20 && stoch_2 < 20 && NormalizeDouble(iHigh(Symbol(),0,1), Digits) < Ask && CountOrders(OP_BUY) < 1)
     {
      r = OrderSend(Symbol(),
                    OP_BUY,
                    //NormalizeDouble(lot, 2),
                    CalculateLot(Ask -(NormalizeDouble(Ask - 0.3*TP*Point, Digits))),
                    Ask,
                    30,
                    /*NormalizeDouble(Ask — 0.3*TP*Point, Digits)*/0, //SL
                    NormalizeDouble(Ask + K_TP*TP*Point, Digits), //TP
                    "STOCHASTIC",
                    magic,
                    0,
                    Blue); // BUY
     }
   else
      if(stoch_1 < 80 && stoch_2 > 80 && NormalizeDouble(iLow(Symbol(),0,1), Digits) > Bid && CountOrders(OP_SELL) < 1)
        {
         r = OrderSend(Symbol(),
                       OP_SELL,
                       //NormalizeDouble(lot, 2),
                       CalculateLot((NormalizeDouble(Bid + 0.3*TP*Point, Digits)) - Bid),
                       Bid,
                       30,
                       /* NormalizeDouble(Bid + 0.3*TP*Point, Digits)*/0, //SL
                       NormalizeDouble(Bid - K_TP*TP*Point, Digits), //TP
                       "STOCHASTIC",
                       magic,
                       0,
                       Red); // SELL
        }
  }
//+------------------------------------------------------------------+
void _Modifi()
  {
   int i;
   bool m;
   double profitByu=0.0, profitSell=0.0;
   for(i=OrdersHistoryTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
        {
         if(OrderType()==OP_BUY && OrderProfit()>0)
            if(OrderProfit()>0)
               profitByu += NormalizeDouble(OrderProfit()*Point*K_PR_S,Digits);
         if(OrderProfit() < 0)
            profitByu = 0;
         if(OrderType()==OP_SELL && OrderProfit()>0)
            if(OrderProfit()>0)
               profitSell += NormalizeDouble(OrderProfit()*Point*K_PR_B,Digits);
         if(OrderProfit() < 0)
            profitSell = 0;
           {
            Comment("Посчитаем профит:","\n","Buy = ",profitByu,
                    " Sell = ", profitSell);
           }
         for(i=OrdersTotal()-1; i>=0; i--)
           {
            if(OrderSelect(i,SELECT_BY_POS))
              {
               if(OrderSymbol()==Symbol() && OrderMagicNumber()==magic)
                 {

                  if(OrderType()==OP_BUY && profitSell > 0)
                    {
                     m = OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),
                                     NormalizeDouble(OrderOpenPrice()-profitSell,Digits),OrderExpiration(),CLR_NONE);
                    }
                  if(OrderType()==OP_SELL && profitByu > 0)
                    {
                     m = OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),
                                     NormalizeDouble(OrderOpenPrice()+profitByu,Digits),OrderExpiration(),CLR_NONE);
                    }
                 }
              }
           }
        }
     }
   return;
  }
//+------------------------------------------------------------------+
</code>