Ingrit_8

//+------------------------------------------------------------------+
//|                   ingrit 8 EURJPY                     |
//|                         VZ                                       |
//|                                                                  |
//+------------------------------------------------------------------+
#property copyright "VZ"
#property link      "gftr06@gmail.com"

extern double step=65;
extern double proffactor=15;
extern int Th1=3600;
extern int Th2=3600;
extern int T=900;
extern  double lot=1;
extern double mult=1.3;
extern double tp=10;
datetime LastTradeTimeh2 = 0;
datetime LastTradeTimeh1 = 0;
datetime LastTradeTime = 0;
double Magicbuy=444;
double Magicsell=777;
extern double Q=11717.77;


double openpricebuy1,openpricesell1,lotsbuy21,lotssell21,lastlotbuy1,lastlotsell1,tpb1,tps1,slbuy1,slsell1,smbuy1,smsell1,
maxLot,free,balance,dig1,sig_buy1,sig_sell1,ask1,bid1,openpricebuy,openpricesell,lotsbuy2,lotssell2,lastlotbuy,lastlotsell,tpb,tps,cnt,slbuy,slsell,smbuy,smsell,lotstep,
lotsell,lotbuy,dig,sig_buy,sig_sell,ask,bid,lotsbuy3,lotssell3;
int  ticketbuy,ticketbuy1;int ticketsell1,ticketsell;double cnt1; 
int slippage=2;
   int  open;
   double point;
//ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ  //ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ                                 
                                 
                                int OrdersTotalMagicbuy(int Magicbuy)
 {
   int j=0;
   int r;
   for (r=0;r<OrdersTotal();r++)
   {
     if(OrderSelect(r,SELECT_BY_POS,MODE_TRADES))
     {
        if (OrderMagicNumber()==Magicbuy) j++;
     }
   }   
 return(j); 
 }

                                int OrdersTotalMagicsell(int Magicsell)
{
   int d=0;
   int n;
   for (n=0;n<OrdersTotal();n++)
   {
     if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES))
     {
        if (OrderMagicNumber()==Magicsell) d++;
     }
   }    
 return(d);
  }     
                                       int orderclosebuy(int ticketbuy)
     {
string symbol = Symbol();
double dig2=MarketInfo(symbol,MODE_DIGITS);
int cnt;
    for(cnt = OrdersTotal(); cnt >= 0; cnt--)
       {
       OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);       
       if(OrderSymbol() == symbol && OrderMagicNumber()==Magicbuy) 
         {
         ticketbuy=OrderTicket();OrderSelect(ticketbuy, SELECT_BY_TICKET, MODE_TRADES);lotsbuy2=OrderLots() ;                         
         double bid = MarketInfo(symbol,MODE_BID); 
         RefreshRates();
         OrderClose(ticketbuy,lotsbuy2,NormalizeDouble(bid,dig2),3,Green); 
         }
       }
       lotsbuy2=lot;return(0);
     } 
                                      int orderclosesell(int ticketsell)
     {
string symbol = Symbol();
double dig2=MarketInfo(symbol,MODE_DIGITS);
int cnt;   
    for(cnt = OrdersTotal(); cnt >= 0; cnt--)
       {
       OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);       
       if(OrderSymbol() == symbol && OrderMagicNumber()==Magicsell) 
         {
         ticketsell=OrderTicket();OrderSelect(ticketsell, SELECT_BY_TICKET, MODE_TRADES);lotssell2=OrderLots() ;                         
         double ask = MarketInfo(symbol,MODE_ASK); 
         RefreshRates();
         OrderClose(ticketsell,lotssell2,NormalizeDouble(ask,dig2),3, Green); 
         }
       }
       lotssell2=lot;return(0); 
     }
 int deinit()
  {
   ObjectsDeleteAll(0,OBJ_TREND);
   return(0);
  }
                        
                                     
                               
//ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ  //ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ            
                                 
                                                 int start()
  {   
  double profitbuy=0;double profitsell=0; double Profit1 = (free-Q);double profitbuy1=0;double profitsell1=0;
  double Profit2 =AccountEquity()-Q;double Profit3 =Q/100;double Prosent =Profit2/Profit3;
  string symbol = OrderSymbol();
  double spread = MarketInfo(symbol,MODE_SPREAD);
  double dig2 = MarketInfo(symbol,MODE_DIGITS);
  double minLot = MarketInfo(symbol,MODE_MINLOT);
   
   
   if (minLot==0.01){dig=2;maxLot=MarketInfo(symbol,MODE_MAXLOT);}
  if (minLot==0.1){dig=1;maxLot=((AccountBalance()/2)/10);} 
   
//ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ  //ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ      
         
//ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ//          
                                       if(OrdersTotalMagicbuy(Magicbuy)>0)
  {
  double smbuy;
                                          for (cnt=0;cnt<OrdersTotal();cnt++)
    {
    OrderSelect(cnt,SELECT_BY_POS, MODE_TRADES);
    if (OrderSymbol() == Symbol() && OrderMagicNumber () == Magicbuy) 
      {
      ticketbuy = OrderTicket();OrderSelect(ticketbuy,SELECT_BY_TICKET, MODE_TRADES);
      smbuy = smbuy+OrderLots();openpricebuy = OrderOpenPrice();lastlotbuy = OrderLots();
      }
    }if (smbuy>95)return(0);
    {   
    if (smbuy+(NormalizeDouble((lastlotbuy*mult),dig))<maxLot)
      {  {
        if(Ask<=openpricebuy-step*Point)
          {
          lotsbuy2=mult*lot*OrdersTotalMagicbuy(Magicbuy);
          RefreshRates();ticketbuy=OrderSend(Symbol(),OP_BUY,NormalizeDouble(lotsbuy2,dig),Ask,0,0,0,"MartingailExpert",Magicbuy,0,Blue);
          }} }} }
  if(OrdersTotalMagicsell(Magicsell)>0)
  {
  double smsell;
  for (cnt=0;cnt<OrdersTotal();cnt++)
    {
    OrderSelect(cnt,SELECT_BY_POS, MODE_TRADES);
    if (OrderSymbol() == Symbol() && OrderMagicNumber () == Magicsell)
      {
      ticketsell = OrderTicket();OrderSelect(ticketsell,SELECT_BY_TICKET, MODE_TRADES);
      smsell = smsell + OrderLots();openpricesell = OrderOpenPrice();lastlotsell = OrderLots();
      }     
    }if (smsell>95)return(0);
    {
    if (smsell+(NormalizeDouble((lastlotsell*mult),dig))<maxLot)
      {
     
        {
        if(Bid>=openpricesell+step*Point)
          {
          lotssell2 = mult*lot*OrdersTotalMagicsell(Magicsell);
          RefreshRates();ticketsell=OrderSend(Symbol(),OP_SELL,NormalizeDouble(lotssell2,dig),Bid,0,0,0,"MartingailExpert",Magicsell,0,Red);
          }}}}  }
//ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ//          
//ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ//          

//ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ//          
//ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ//          
  double dh0=iHigh(0,PERIOD_D1,0);double dl0=iLow(0,PERIOD_D1,0);
  double dh1=iHigh(0,PERIOD_D1,1);double dl1=iLow(0,PERIOD_D1,1);double dc1=iClose(0,PERIOD_D1,1);
  double dh2=iHigh(0,PERIOD_D1,2);double dl2=iLow(0,PERIOD_D1,2);double dc2=iClose(0,PERIOD_D1,2);
//ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ//          
  double P = (dh1 + dl1 + dc1) / 3;
  double P1 = (dh2 + dl2 + dc2) / 3;
  double R1 = (2*P)-dl1;//Âåðõ
  double R2 = P+(dh1 - dl1);
  double S1 = (2*P)-dh1;//Íèç
  double S2 = P-(dh1 - dl1);//Íèç
  double M3 = (P+R1)/2;//Âåðõ
  double M2 = (P+S1)/2;//Íèç
  double M1 = (S1+S2)/2;//Íèç
  double M4 = (R1+R2)/2;
  double R3 = (2*P)+(dh1-(2*dl1));
  double S3 = (2*P)-((2*dh1)-dl1);
   double c1=iClose(0,PERIOD_M15,1);   double o1=iOpen(0,PERIOD_M15,1);      double h115 = iHigh(0,PERIOD_M15,15);
   double l1 = iLow(0,PERIOD_M15,1);   double h1 = iHigh(0,PERIOD_M15,1);    double l115 = iLow(0,PERIOD_M15,15);
   double c1h1=iClose(0,PERIOD_H1,1);  double o1h1=iOpen(0,PERIOD_H1,1);     double c2h1=iClose(0,PERIOD_H1,2);
   double l1h1 = iLow(0,PERIOD_H1,1);  double h1h1 = iHigh(0,PERIOD_H1,1);  double o2h1=iOpen(0,PERIOD_H1,2);
   double c130=iClose(0,PERIOD_M30,1); double o130=iOpen(0,PERIOD_M30,1);    double c230=iClose(0,PERIOD_M30,2);
   double l130 = iLow(0,PERIOD_M30,1); double h130 = iHigh(0,PERIOD_M30,1);  double o230=iOpen(0,PERIOD_M30,2);
   double c15=iClose(0,PERIOD_M5,1);   double o15=iOpen(0,PERIOD_M5,1);      double h14 = iHigh(0,PERIOD_M5,14);
   double l15 = iLow(0,PERIOD_M5,1);   double h15 = iHigh(0,PERIOD_M5,1);    double l14 = iLow(0,PERIOD_M5,14);
   double c11=iClose(0,PERIOD_M1,1);   double o11=iOpen(0,PERIOD_M1,1);
   double l11 = iLow(0,PERIOD_M1,1);   double h11 = iHigh(0,PERIOD_M1,1);
   
   //buy if(S2>Ask)if(o3>c1)
   //sell if(R2<Ask)if(c1>o3)
   double h100 = High[iHighest(0,0,MODE_HIGH,100,0)];
   double h50  = High[iHighest(0,0,MODE_HIGH,50,0)];
   double l100 = Low[iLowest(0,0,MODE_LOW,100,0)];
   double l50 = Low[iLowest(0,0,MODE_LOW,50,0)];
   // buy  if(h100>h50)if(h100>l100)if(h50>l100)
   // sell  if(l100<l50)if(h100>l100)if(h100>l50)
      
      if(OrdersTotalMagicbuy(Magicbuy)<1)  if(o15>c15)if((h14-l15)>216*Point){ticketbuy = OrderSend(Symbol(),OP_BUY,lot,Ask,0,0,Ask+tp*Point,"1",Magicbuy,0,White);}
      if(OrdersTotalMagicsell(Magicsell)<1)if(c15>o15)if((h15-l14)>216*Point){ticketsell = OrderSend(Symbol(),OP_SELL,lot,Bid,0,0,Bid-tp*Point,"2",Magicsell,0,White);}

      if(OrdersTotalMagicbuy(Magicbuy)<1)  if((Open[15]-Open[14])<30*Point&&(Open[14]-Open[13])<30*Point&&
      (Open[13]-Open[12])<30*Point&&(Open[12]-Open[11])<30*Point&&(Open[11]-Open[10])<30*Point&&(Open[10]-Open[9])<30*Point&&
      (Open[9]-Open[8])<30*Point&&(Open[8]-Open[7])<30*Point&&(Open[7]-Open[6])<30*Point&&(Open[6]-Open[5])<30*Point&&
      (Open[5]-Open[4])<30*Point&&(Open[4]-Open[3])<30*Point&&(Open[3]-Open[2])<30*Point&&(Open[2]-Open[1])<30*Point)
      if((h115-l1)>255*Point){ticketbuy = OrderSend(Symbol(),OP_BUY,lot,Ask,0,0,Ask+tp*Point,"3",Magicbuy,0,White);}
      if(OrdersTotalMagicsell(Magicsell)<1)if((h1-l115)>255*Point){ticketsell = OrderSend(Symbol(),OP_SELL,lot,Bid,0,0,Bid-tp*Point,"4",Magicsell,0,White);}

//4444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444   
     //1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
      // M 5
      if(OrdersTotalMagicbuy(Magicbuy)<1)  if(Ask<M2)if((c15-o15)>1*Point)if(o15<c15)if((o15-l15)>15*(c15-o15)){ticketbuy = OrderSend(Symbol(),OP_BUY,lot,Ask,0,0,Ask+tp*Point,"5",Magicbuy,0,Lime);}
      if(OrdersTotalMagicsell(Magicsell)<1)if(Ask>M3)if((c15-o15)>1*Point)if(o15<c15)if((h15-c15)>15*(c15-o15)){ticketsell = OrderSend(Symbol(),OP_SELL,lot,Bid,0,0,Bid-tp*Point,"6",Magicsell,0,Red);}
      //  M 1
      if(OrdersTotalMagicbuy(Magicbuy)<1)  if(Ask<M2)if((c11-o11)>2*Point)if(o11<c11)if((o11-l11)>15*(c11-o11)){ticketbuy = OrderSend(Symbol(),OP_BUY,lot,Ask,0,0,Ask+tp*Point,"7",Magicbuy,0,Orange);}
      if(OrdersTotalMagicsell(Magicsell)<1)if(Ask>M3)if((c11-o11)>2*Point)if(o11<c11)if((h11-c11)>15*(c11-o11)){ticketsell = OrderSend(Symbol(),OP_SELL,lot,Bid,0,0,Bid-tp*Point,"8",Magicsell,0,Blue);}
     ///  M30
      if(OrdersTotalMagicbuy(Magicbuy)<1)  if(Ask<M2)if((c130-o130)>1*Point)if(o130<c130)if((o130-l130)>15*(c130-o130)){ticketbuy = OrderSend(Symbol(),OP_BUY,lot,Ask,0,0,Ask+tp*Point,"9",Magicbuy,0,DeepPink);}
      if(OrdersTotalMagicsell(Magicsell)<1)if(Ask>M3)if((c130-o130)>1*Point)if(o130<c130)if((h130-c130)>15*(c130-o130)){ticketsell = OrderSend(Symbol(),OP_SELL,lot,Bid,0,0,Bid-tp*Point,"10",Magicsell,0,DarkViolet);}

      //  M15 ÷åðíàÿ     
      if(OrdersTotalMagicbuy(Magicbuy)<1)  if(Ask<M2)if((o1-c1)>1*Point) if(o1>c1)if((c1-l1)>17*(o1-c1)){ticketbuy = OrderSend(Symbol(),OP_BUY,lot,Ask,0,0,Ask+tp*Point,"11",Magicbuy,0,Aqua);}
      if(OrdersTotalMagicsell(Magicsell)<1)if(Ask>M3)if((o1-c1)>1*Point) if(o1>c1)if((h1-o1)>17*(o1-c1)){ticketsell = OrderSend(Symbol(),OP_SELL,lot,Bid,0,0,Bid-tp*Point,"12",Magicsell,0,Yellow);}
      // M 5  ÷åðíàÿ 
      if(OrdersTotalMagicbuy(Magicbuy)<1)  if(Ask<M2)if((o15-c15)>1*Point)if(o15>c15)if((c15-l15)>15*(o15-c15)){ticketbuy = OrderSend(Symbol(),OP_BUY,lot,Ask,0,0,Ask+tp*Point,"13",Magicbuy,0,Lime);}
      if(OrdersTotalMagicsell(Magicsell)<1)if(Ask>M3)if((o15-c15)>1*Point)if(o15>c15)if((h15-o15)>15*(o15-c15)){ticketsell = OrderSend(Symbol(),OP_SELL,lot,Bid,0,0,Bid-tp*Point,"14",Magicsell,0,Red);}
      // M 1 
      if(OrdersTotalMagicbuy(Magicbuy)<1)  if(Ask<M2)if((o11-c11)>1*Point)if(o11>c11)if((c11-l11)>15*(o11-c11)){ticketbuy = OrderSend(Symbol(),OP_BUY,lot,Ask,0,0,Ask+tp*Point,"15",Magicbuy,0,Orange);}
      if(OrdersTotalMagicsell(Magicsell)<1)if(Ask>M3)if((o11-c11)>1*Point)if(o11>c11)if((h11-o11)>15*(o11-c11)){ticketsell = OrderSend(Symbol(),OP_SELL,lot,Bid,0,0,Bid-tp*Point,"16",Magicsell,0,Blue);}
       // M30
      if(OrdersTotalMagicbuy(Magicbuy)<1)  if(Ask<M2)if(o230>c230)if((o130-c130)>1*Point)if(o130>c130)if((c130-l130)>15*(o130-c130)){ticketbuy = OrderSend(Symbol(),OP_BUY,lot,Ask,0,0,Ask+tp*Point,"17",Magicbuy,0,DeepPink);}
      if(OrdersTotalMagicsell(Magicsell)<1)if(Ask>M3)if((o130-c130)>1*Point)if(o130>c130)if((h130-o130)>15*(o130-c130)){ticketsell = OrderSend(Symbol(),OP_SELL,lot,Bid,0,0,Bid-tp*Point,"18",Magicsell,0,DarkViolet);}
      
          if(TimeLocal() - LastTradeTime < T){return(-1);} 
     if(OrdersTotalMagicbuy(Magicbuy)<1)  if(Ask<M2)if((c1-o1)>2*Point) if(o1<c1)if((o1-l1)>15*(c1-o1)){ticketbuy = OrderSend(Symbol(),OP_BUY,lot,Ask,0,0,Ask+tp*Point,"19",Magicbuy,0,Green);LastTradeTime = TimeLocal();}
      if(OrdersTotalMagicsell(Magicsell)<1)if(Ask>M3)if((c1-o1)>2*Point) if(o1<c1)if((h1-c1)>15*(c1-o1)){ticketsell = OrderSend(Symbol(),OP_SELL,lot,Bid,0,0,Bid-tp*Point,"20",Magicsell,0,Olive);LastTradeTime = TimeLocal();}

      
       if(TimeLocal() - LastTradeTimeh1 < Th1){return(-1);} 
      if(OrdersTotalMagicbuy(Magicbuy)<1)  if(Ask<M2)if((c1h1-o1h1)>1*Point)if(c2h1>o1h1) if(o1h1<c1h1)if((o1h1-l1h1)>10*(c1h1-o1h1)){ticketbuy = OrderSend(Symbol(),OP_BUY,lot,Ask,0,0,Ask+tp*Point,"21",Magicbuy,0,Aqua);LastTradeTimeh1 = TimeLocal(); }
      if(OrdersTotalMagicsell(Magicsell)<1)if(Ask>M3)if((c1h1-o1h1)>1*Point) if(o1h1<c1h1)if((h1h1-c1h1)>10*(c1h1-o1h1)){ticketsell = OrderSend(Symbol(),OP_SELL,lot,Bid,0,0,Bid-tp*Point,"22",Magicsell,0,Yellow);LastTradeTimeh1 = TimeLocal(); }
     
      if(TimeLocal() - LastTradeTimeh2 < Th2){return(-1);}
      if(OrdersTotalMagicbuy(Magicbuy)<1)  if(Ask<M2)if(o2h1>c2h1)if((o1h1-c1h1)>1*Point) if(o1h1>c1h1)if((c1h1-l1h1)>10*(o1h1-c1h1)){ticketbuy = OrderSend(Symbol(),OP_BUY,lot,Ask,0,0,Ask+tp*Point,"23",Magicbuy,0,Aqua);LastTradeTimeh2 = TimeLocal();}
      if(OrdersTotalMagicsell(Magicsell)<1)if(Ask>M3)if(c2h1>o2h1)if((o1h1-c1h1)>1*Point) if(o1h1>c1h1)if((h1h1-o1h1)>10*(o1h1-c1h1)){ticketsell = OrderSend(Symbol(),OP_SELL,lot,Bid,0,0,Bid-tp*Point,"24",Magicsell,0,Yellow);LastTradeTimeh2 = TimeLocal();}

//ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ            44444444                   ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ
     double D1o0=iOpen(0,PERIOD_D1,0);
//ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ  //ÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ
                                           
                                           for (cnt=0;cnt<OrdersTotal();cnt++)
  {
  OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
  if (OrderSymbol()==Symbol() && OrderMagicNumber () == Magicbuy)
    {
    ticketbuy = OrderTicket();OrderSelect(ticketbuy,SELECT_BY_TICKET, MODE_TRADES);profitbuy = profitbuy+OrderProfit() ;
    openpricebuy = OrderOpenPrice();
    }
  }  
  tpb = (OrdersTotalMagicbuy(Magicbuy)*proffactor*Point)+openpricebuy;
  double bid = MarketInfo(Symbol(),MODE_BID);
  if (profitbuy>0)
  {
  //if(Bid>=openpricebuy+step*Point) orderclosebuy(ticketbuy);
  if(OrdersTotalMagicbuy(Magicbuy)>1)
  if (Bid>=tpb) orderclosebuy(ticketbuy);
  }
                                           
                                           for (cnt=0;cnt<OrdersTotal();cnt++)
  {   
  OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
  if (OrderSymbol() == Symbol() && OrderMagicNumber() == Magicsell)
    {
    ticketsell = OrderTicket();OrderSelect(ticketsell,SELECT_BY_TICKET, MODE_TRADES);profitsell = profitsell+OrderProfit();
    openpricesell = OrderOpenPrice(); 
    }
  }
  tps = openpricesell-(OrdersTotalMagicsell(Magicsell)*proffactor*Point);
  double ask = MarketInfo(Symbol(),MODE_ASK);    
  if (profitsell>0)
  {
  //if(Ask<=openpricesell-step*Point)orderclosesell(ticketsell);
  if(OrdersTotalMagicsell(Magicsell)>1)
  if (Ask<=tps)orderclosesell(ticketsell);     
  }                             
//1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111  
  free = AccountFreeMargin();balance = AccountBalance();

 
   Comment("       ÑÂÎÁÎÄÍÎ ",DoubleToStr(free,2),"              ÁÀËÀÍÑ = ",NormalizeDouble(balance,2),"\n"
   , "\n","                                                  ÏÐÎÑÀÄÊÀ = " ,  DoubleToStr(AccountEquity()-AccountBalance(),2)
     ,"  Totalsell = ",OrdersTotalMagicsell(Magicsell)
      ,"  Totalbuy = ",OrdersTotalMagicbuy(Magicbuy),
     "   ÒÅÊÓÙÈÉ ËÎÒ  = ",lot ,"  Cóììà ëîòîâ buy = ",smbuy,"  Cóììà ëîòîâ sell = ",smsell," Îòêðûòèå äíÿ =  ",
          D1o0," profitsell =  ", profitsell," profitbuy =  ", profitbuy,"\n",
          "                                         ÏÐÈÁÛËÜ = ",Profit1 ,"   ×èñòûé ïðîöåíò= ",  Prosent           ); 
   
   return(0);
}  
//+------------------------------------------------------------------