Quantum London Trading EA

#import "user32.dll"
int MessageBoxA(int Ignore,string Caption,string Title,int Icon);
#import
#property strict

enum enum_QT
  {
   Quantum=1,
   QuantumStochasticOB_OS=2,
  };

input int mn=2015; //Magic Number
input string comm="Quantum London Trading EA";//Order Comment
input enum_QT QT=1;//Quantum Indicator
input string q="-----------";//If using QuantumStochasticOB_OS -
input int K = 5;
input int D = 3;
input int S = 3;
input int OS = 20;
input int OB = 80;
input string o="-----------";//-----------
input int ema=0;// Daily EMA Filter Period
input bool had=false;//Weekly Heiken Ashi Filter
input bool fulltime=true; //Trade 24/5
input bool manual=false;//Manually Close Trades
input double mm=0;//Money Management (multiply lots every $ x)
input string a="-----------"; //If Trade 24/5 = false then:
input string open1="07:00"; // Trading Window Start Time 1 (Broker)
input string close1="13:00"; // Trading Window End Time 1 (Broker)
input int max1=0;//Max Trades per Trading Slot 1
input int cyc1=0;//Max Cycles per Trading Slot 1
input string open2="07:00"; // Trading Window Start Time 2 (Broker)
input string close2="13:00"; // Trading Window End Time 2 (Broker)
input int max2=0;//Max Trades per Trading Slot 2
input int cyc2=0;//Max Cycles per Trading Slot 2
input string open3="07:00"; // Trading Window Start Time 3 (Broker)
input string close3="13:00"; // Trading Window End Time 3 (Broker)
input int max3=0;//Max Trades per Trading Slot 3
input int cyc3=0;//Max Cycles per Trading Slot 3
input bool closeend=false;//Close all trades at End Time
input int wait=0;//Wait X boxes before opening trades
input bool onlylowerhigher=false;//Only open higher (sells) or lower (buys) than previous order
input int xdist=0;//Minimum distance between entries
input int numcycles=0;//Number of Daily Cycles to run
input bool stop=false;//Stop after each cycle
input int tf=1;//Time Frame (minutes)
input bool fifo=false;//Use FIFO Rule
input bool mon=true;//Trade on Monday
input bool tue=true;//Trade on Tuesday
input bool wed=true;//Trade on Wednesday
input bool thurs=true;//Trade on Thursday
input bool fri=true;//Trade on Friday
input int xcandles=0;//Only trade every X candles
input int qde=325;//Quantum eintDepth3 for Entry
input int qdc=325;//Quantum eintDepth3 for Close
input bool reverse=false;//Reverse Trading (Buy on Red, Sell on Blue)
input string l="-----------"; // Set up lots and/or grid for trades
input double T1=0.01; //Trades 1-12
input double T2=0.02; //Trades 13-21
input double T3=0.05; //Trades 22-29
input double T4=0.13; //Trades 30-36
input double T5=0.34; //Trades 37-39
input double T6=0.89; //Trade 40 & >
input bool grid=false;//Use Grid
input bool drawgrid=false;//Draw Grid Lines
input int grid1size=0; //Grid 1 Size (Eg. 100)
input int grid1inc=0; //Grid 1 Increment (Space between entries)
input int grid1maxtrades=0; //Max Trades For Grid 1
input double grid1lots=0; //Grid 1 Lots
input int grid2size=0; //Grid 2 Size (Eg. 100)
input int grid2inc=0; //Grid 2 Increment (Space between entries)
input int grid2maxtrades=0; //Max Trades For Grid 2
input double grid2lots=0; //Grid 2 Lots
input int grid3size=0; //Grid 3 Size (Eg. 100)
input int grid3inc=0; //Grid 3 Increment (Space between entries)
input int grid3maxtrades=0; //Max Trades For Grid 3
input double grid3lots=0; //Grid 3 Lots
input bool ber=false;//Use Break Even Recovery
input double percbedd=0;//% Equity Draw Down to Activate Break Even Recovery
bool beractive=false;
input int pointstp=0;//Points Take Profit (Eg. 100)
input double dollartp=0;//$ Take Profit (Eg. 100)
input double percequitytp=0;//% Equity Take Profit (Eg. 10)
input int pointssl=0;//Points Stop Loss (Eg. -100)
input double dollarsl=0;//$ Stop Loss (Eg. -50)
input double percequitysl=0;//% Equity Stop Loss (Eg. -10)
input double indivtp=0;//Individual Trade TP
input double indivsl=0;//Individual Trade SL
input int closex=0;//Close after X trades
input bool debug=false;//Debug Mode

double lots,prevorderprice;
datetime curtime,prevtime,curday,prevday;
bool donefortheday,buys,buyclosed,sellclosed;
double initialstartbuy,initialstartsell;
double digits;
int openorders,mt1,mt2,mt3,thewait,cycles,c1,c2,c3;

int init()
  {
      // код доступен только после оплаты
   }

int deinit()
  {
   DeleteLines();
   ObjectDelete(0,"start");
   return(0);
  }

int start()
  {
      // код доступен только после оплаты
   }
   digits=1;

   if(debug)
     {
      if(IsTradeAllowed()==false)
         Alert("Broker does not allow EA to trade");
     }

   curday=iTime(Symbol(),PERIOD_D1,0);

   if(curday>prevday)// && 

     {

      cycles=0;
      prevday=iTime(Symbol(),PERIOD_D1,0);
     }

   CheckCloseTrades();

   if(grid==true &&
      (grid1size==0 || grid2size==0 || grid3size==0))
     {
      Alert("Please set ALL grid sizes");
      return(0);
     }

   openorders=0;
   for(int j=OrdersTotal()-1;j>=0;j--)
     {
      if(!OrderSelect(j,SELECT_BY_POS,MODE_TRADES))
         continue;
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==mn)
        {
         openorders+=1;
        }
     }

   double g1s=grid1size*Point*digits;
   double g2s=grid2size*Point*digits;
   double g3s=grid3size*Point*digits;

   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
         continue;
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==mn)
        {
         prevorderprice=OrderOpenPrice();
         break;
        }
     }

   bool buttonstarted=ObjectGetInteger(0,"start",OBJPROP_STATE);

   if(QT==1)
     {
      if(iCustom(Symbol(),tf,"Quantum",qde,0,1)>0 && buys==false)
        {
         buys=true;
         thewait=0;
        }
      if(iCustom(Symbol(),tf,"Quantum",qde,1,1)>0 && buys==true)
        {
         buys=false;
         thewait=0;
        }
     }
   if(QT==2)
     {
      if(iCustom(Symbol(),tf,"Quantum - Stochastic OB_OS",qde,K,D,S,OS,OB,0,1)>0 && buys==false)
        {
         buys=true;
         thewait=0;
        }
      if(iCustom(Symbol(),tf,"Quantum - Stochastic OB_OS",qde,K,D,S,OS,OB,1,1)>0 && buys==true)
        {
         buys=false;
         thewait=0;
        }
     }

   bool gocycle=true;
   if(fulltime==false)
     {
      if(iTime(Symbol(),1,0)>=open1 && iTime(Symbol(),1,0)<close1 && c1>=cyc1 && cyc1>0)
         gocycle=false;
      if(iTime(Symbol(),1,0)>=open2 && iTime(Symbol(),1,0)<close2 && c2>=cyc2 && cyc2>0)
         gocycle=false;
      if(iTime(Symbol(),1,0)>=open3 && iTime(Symbol(),1,0)<close3 && c3>=cyc3 && cyc3>0)
         gocycle=false;
     }

   curtime=iTime(Symbol(),tf,0);
   if((stop==true && buttonstarted==true && openorders<=0) || stop==false || openorders>0)
     {
      if((cycles<numcycles && numcycles>0) || numcycles<=0)
        {
         if(gocycle)
           {
            if(((iTime(Symbol(),1,0)>=StrToTime(open1) && iTime(Symbol(),1,0)<StrToTime(close1)) || (iTime(Symbol(),1,0)>=StrToTime(open2) && iTime(Symbol(),1,0)<StrToTime(close2)) || (iTime(Symbol(),1,0)>=StrToTime(open3) && iTime(Symbol(),1,0)<StrToTime(close3)) || (fulltime==true)) && curtime>prevtime)
              {
               bool cantrade=true;
               int grid1trades,grid2trades,grid3trades;

               if(((iCustom(Symbol(),tf,"Quantum",qde,0,1)>0 && reverse==false && QT==1) || (iCustom(Symbol(),tf,"Quantum - Stochastic OB_OS",qde,K,D,S,OS,OB,0,1)>0 && reverse==false && QT==2) || (iCustom(Symbol(),tf,"Quantum",qde,1,1)>0 && reverse && QT==1) || (iCustom(Symbol(),tf,"Quantum - Stochastic OB_OS",qde,K,D,S,OS,OB,1,1)>0 && reverse && QT==2)) && buyclosed==false)
                 {
                  if((Bid>iMA(Symbol(),PERIOD_D1,ema,0,MODE_EMA,PRICE_CLOSE,1) && ema>0) || ema<=0)
                    {
                     sellclosed=false;
                     if(wait>0 && thewait<wait)
                       {
                        thewait+=1;

                       }
                     else
                       {
                        if(debug)
                           Alert("Quantum Buy Signal detected --- checking other conditions...");

                        if(grid==true && OrdersTotal()>0)
                          {
                           for(int j=OrdersTotal()-1;j>=0;j--)
                             {
                              if(!OrderSelect(j,SELECT_BY_POS,MODE_TRADES))
                                 continue;
                              if(OrderSymbol()==Symbol() && OrderMagicNumber()==mn)
                                {
                                 if(OrderOpenPrice()>initialstartbuy-g1s)
                                   {
                                    grid1trades+=1;
                                   }
                                 if(OrderOpenPrice()<=initialstartbuy-g1s && OrderOpenPrice()>initialstartbuy-g1s-g2s)
                                   {
                                    grid2trades+=1;
                                   }
                                 if(OrderOpenPrice()<=initialstartbuy-g1s-g2s && OrderOpenPrice()>initialstartbuy-g1s-g2s-g3s)
                                   {
                                    grid3trades+=1;
                                   }
                                }
                             }
                          }
                        if((grid==true) && Ask>initialstartbuy-g1s && ((grid1trades>=grid1maxtrades && grid1maxtrades>0) || (prevorderprice>0 && prevorderprice-(grid1inc*Point*digits)<=Ask)))
                           cantrade=false;
                        if((grid==true) && Ask<=initialstartbuy-g1s && Ask>initialstartbuy-g1s-g2s && ((grid2trades>=grid2maxtrades && grid2maxtrades>0) || (prevorderprice-(grid2inc*Point*digits)<=Ask)))
                           cantrade=false;
                        if((grid==true) && Ask<=initialstartbuy-g1s-g2s && Ask>initialstartbuy-g1s-g2s-g3s && ((grid3trades>=grid3maxtrades && grid3maxtrades>0) || (prevorderprice-(grid2inc*Point*digits)<=Ask)))
                           cantrade=false;

                        if(debug && cantrade==false)
                           Alert("Trade Cancelled because of Grid Conditions");

                        if(mon==false && DayOfWeek()==1)
                           cantrade=false;
                        if(tue==false && DayOfWeek()==2)
                           cantrade=false;
                        if(wed==false && DayOfWeek()==3)
                           cantrade=false;
                        if(thurs==false && DayOfWeek()==4)
                           cantrade=false;
                        if(fri==false && DayOfWeek()==5)
                           cantrade=false;

                        if(prevorderprice-(xdist*Point)<=Ask && xdist>0 && prevorderprice>0)
                           cantrade=false;

                        if(debug && cantrade==false)
                           Alert("Trade Cancelled because of week Conditions");

                        if(iCustom(Symbol(),PERIOD_W1,"Heiken Ashi",Red,White,Red,White,2,0)>iCustom(Symbol(),0,"Heiken Ashi",Red,White,Red,White,3,0) && had)
                           cantrade=false;

                        if(xcandles>0)
                          {
                           int lastorderbar;
                           for(int i=OrdersTotal()-1;i>=0;i--)
                             {
                              if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
                                 continue;
                              if(OrderSymbol()==Symbol() && OrderMagicNumber()==mn)
                                {
                                 lastorderbar=iBarShift(Symbol(),tf,OrderOpenTime(),false);
                                 break;
                                }
                             }

                           if(lastorderbar<xcandles && lastorderbar>0)
                             {
                              cantrade=false;
                              if(debug)
                                 Alert("Trade Cancelled because of X Candles Conditions");
                             }
                          }

                        mt1 = 0;
                        mt2 = 0;
                        mt3 = 0;
                        for(int t=OrdersHistoryTotal()-1;t>=0;t--)
                          {
                           if(!OrderSelect(t,SELECT_BY_POS,MODE_HISTORY))
                              continue;
                           if(OrderSymbol()==Symbol() && OrderMagicNumber()==mn && OrderOpenTime()>=iTime(Symbol(),PERIOD_D1,0))
                             {
                              if(OrderOpenTime()>=StrToTime(open1) && OrderOpenTime()<StrToTime(close1))
                                 mt1+=1;
                              if(OrderOpenTime()>=StrToTime(open2) && OrderOpenTime()<StrToTime(close2))
                                 mt2+=1;
                              if(OrderOpenTime()>=StrToTime(open3) && OrderOpenTime()<StrToTime(close3))
                                 mt3+=1;
                             }
                          }
                        for(int r=OrdersTotal()-1;r>=0;r--)
                          {
                           if(!OrderSelect(r,SELECT_BY_POS,MODE_TRADES))
                              continue;
                           if(OrderSymbol()==Symbol() && OrderMagicNumber()==mn && OrderOpenTime()>=iTime(Symbol(),PERIOD_D1,0))
                             {
                              if(OrderOpenTime()>=StrToTime(open1) && OrderOpenTime()<StrToTime(close1))
                                 mt1+=1;
                              if(OrderOpenTime()>=StrToTime(open2) && OrderOpenTime()<StrToTime(close2))
                                 mt2+=1;
                              if(OrderOpenTime()>=StrToTime(open3) && OrderOpenTime()<StrToTime(close3))
                                 mt3+=1;
                             }
                          }

                        if((iTime(Symbol(),1,0)>=StrToTime(open1) && iTime(Symbol(),1,0)<StrToTime(close1)) && mt1>=max1 && max1>0)
                           cantrade=false;
                        if((iTime(Symbol(),1,0)>=StrToTime(open2) && iTime(Symbol(),1,0)<StrToTime(close2)) && mt2>=max2 && max2>0)
                           cantrade=false;
                        if((iTime(Symbol(),1,0)>=StrToTime(open3) && iTime(Symbol(),1,0)<StrToTime(close3)) && mt3>=max3 && max3>0)
                           cantrade=false;

                        if(debug && cantrade==false)
                           Alert("Trade Cancelled due to time window factors");

                        if(Ask>prevorderprice && onlylowerhigher)
                           cantrade=false;

                        if(cantrade==true)
                          {
                           lots=GetLots(Ask,"Buy");
                           if(stop==true)
                             {
                              ObjectSetInteger(0,"start",OBJPROP_STATE,false);
                             }
                           if(lots>0)
                             {
                              int ticket;
                              RefreshRates();
                              if(indivsl>0 || indivtp>0)
                                {
                                 double newsl=0;
                                 double newtp=0;
                                 if(indivsl>0)
                                    newsl=NormalizeDouble(Ask-(indivsl*Point),Digits);
                                 if(indivtp>0)
                                    newtp=NormalizeDouble(Ask+(indivtp*Point),Digits);
                                 ticket=OrderSend(Symbol(),OP_BUY,lots,Ask,5,newsl,newtp,comm,mn,0,0);
                                }
                              else
                                {
                                 ticket=OrderSend(Symbol(),OP_BUY,lots,Ask,5,0,0,comm,mn,0,0);
                                }
                              if(ticket<=-1)
                                {
                                 RefreshRates();
                                 if(indivsl>0 || indivtp>0)
                                   {
                                    double newsl=0;
                                    double newtp=0;
                                    if(indivsl>0)
                                       newsl=NormalizeDouble(Ask-(indivsl*Point),Digits);
                                    if(indivtp>0)
                                       newtp=NormalizeDouble(Ask+(indivtp*Point),Digits);
                                    ticket=OrderSend(Symbol(),OP_BUY,lots,Ask,5,newsl,newtp,comm,mn,0,0);
                                   }
                                 else
                                   {
                                    ticket=OrderSend(Symbol(),OP_BUY,lots,Ask,5,0,0,comm,mn,0,0);
                                   }

                                }
                              if(ticket<=-1)
                                 Alert("OrderSend Error: ",GetLastError());

                              if(debug)
                                 Alert("Trade should definitely have happened!");
                             }
                           int bopenorders;
                           for(int s=OrdersTotal()-1;s>=0;s--)
                             {
                              if(!OrderSelect(s,SELECT_BY_POS,MODE_TRADES))
                                 continue;
                              if(OrderSymbol()==Symbol() && OrderMagicNumber()==mn)
                                {
                                 bopenorders+=1;
                                }
                             }
                           if(bopenorders<=1 && bopenorders>0)
                             {
                              initialstartbuy=Ask;
                              initialstartsell=0;
                              if(drawgrid==true)
                                {
                                 Alert("Grid should have been drawn");
                                 DrawGrid(initialstartbuy,"Buy");
                                }
                             }
                          }
                       }
                    }
                 }
               if(((iCustom(Symbol(),tf,"Quantum",qde,1,1)>0 && reverse==false && QT==1) || (iCustom(Symbol(),tf,"Quantum",qde,0,1)>0 && reverse && QT==1) || (iCustom(Symbol(),tf,"Quantum - Stochastic OB_OS",qde,K,D,S,OS,OB,1,1)>0 && reverse==false && QT==2) || (iCustom(Symbol(),tf,"Quantum - Stochastic OB_OS",qde,K,D,S,OS,OB,0,1)>0 && reverse && QT==2)) && sellclosed==false)
                 {
                  if((Bid<iMA(Symbol(),PERIOD_D1,ema,0,MODE_EMA,PRICE_CLOSE,1) && ema>0) || ema<=0)
                    {
                     buyclosed=false;
                     if(wait>0 && thewait<wait)
                       {
                        thewait+=1;

                       }
                     else
                       {
                        if(debug)
                           Alert("Quantum Sell Signal detected --- checking other conditions...");
                        cantrade=true;
                        if(grid==true && OrdersTotal()>0)
                          {
                           for(int j=OrdersTotal()-1;j>=0;j--)
                             {
                              if(!OrderSelect(j,SELECT_BY_POS,MODE_TRADES))
                                 continue;
                              if(OrderSymbol()==Symbol() && OrderMagicNumber()==mn)
                                {
                                 if(OrderOpenPrice()<initialstartsell+g1s)
                                   {
                                    grid1trades+=1;
                                   }
                                 if(OrderOpenPrice()>=initialstartsell+g1s && OrderOpenPrice()<initialstartsell+g1s+g2s)
                                   {
                                    grid2trades+=1;
                                   }
                                 if(OrderOpenPrice()>=initialstartsell+g1s+g2s && OrderOpenPrice()<initialstartsell+g1s+g2s+g3s)
                                   {
                                    grid3trades+=1;
                                   }
                                }
                             }
                          }
                        if((grid==true) && Bid<initialstartsell+g1s && ((grid1trades>=grid1maxtrades && grid1maxtrades>0) || (prevorderprice>0 && prevorderprice+(grid1inc*Point*digits)>=Bid)))
                           cantrade=false;
                        if((grid==true) && Bid>=initialstartsell-g1s && Bid<initialstartsell+g1s+g2s && ((grid2trades>=grid2maxtrades && grid2maxtrades>0) || (prevorderprice+(grid2inc*Point*digits)>=Bid)))
                           cantrade=false;
                        if((grid==true) && Bid>=initialstartsell-g1s-g2s && Bid<initialstartsell+g1s+g2s+g3s && ((grid3trades>=grid3maxtrades && grid3maxtrades>0) || (prevorderprice+(grid3inc*Point*digits)>=Bid)))
                           cantrade=false;

                        if(debug && cantrade==false)
                           Alert("Trade Cancelled because of Grid Conditions");

                        if(mon==false && DayOfWeek()==1)
                           cantrade=false;
                        if(tue==false && DayOfWeek()==2)
                           cantrade=false;
                        if(wed==false && DayOfWeek()==3)
                           cantrade=false;
                        if(thurs==false && DayOfWeek()==4)
    

Показано первые 50% кода (символов: 25893)