MA2CCI

Download MA2CCI.mq4 script
Sample Trading Sistem for cross 2MA & CCI
Display/hide source code
#define MAGICMA  20050610
 
//---- input parameters
extern int       FMa=4; // Ð Â±Ð¡â€¹Ð¡ÐƒÐ¡â€šÐ¡Ð‚Ð¡â€¹Ð â„– Ð Ñ˜Ð¡Ñ“Ð Ð†Ð Ñ‘Ð Ð…Ð Ñ–
extern int       SMa=8; // Ð Ñ˜Ð ÂµÐ Ò‘Ð Â»Ð ÂµÐ Ð…Ð Ð…Ð¡â€¹Ð â„– Ð Ñ˜Ð¡Ñ“Ð Ð†Ð Ñ‘Ð Ð…Ð Ñ–
extern int       PCCi=4; // Ð Ñ—Ð ÂµÐ¡Ð‚Ð Ñ‘Ð Ñ•Ð Ò‘ CCI
extern int       pATR=4; //Ð ÑŸÐ ÂµÐ¡Ð‚Ð Ñ‘Ð Ñ•Ð Ò‘ ATR Ð Ò‘Ð Â»Ð¡Ð Ð¡ÐƒÐ¡â€šÐ Ñ•Ð Ñ—/Ð Â»Ð Ñ•Ð¡ÐƒÐ¡ÐƒÐ Â°
extern double    Lots=10.0; // Ð Â»Ð Ñ•Ð¡â€š
extern double    DcF = 3.0;// Ð Â¤Ð Â°Ð Ñ”Ð¡â€šÐ Ñ•Ð¡Ð‚ Ð Ñ•Ð Ñ—Ð¡â€šÐ Ñ‘Ð Ñ˜Ð Ñ‘Ð Â·Ð Â°Ð¡â€ Ð Ñ‘Ð Ñ‘ 
extern double    MaxR = 0.02; // Ð ÑšÐ Â°Ð Ñ”Ð¡ÐƒÐ Ñ‘Ð Ñ˜Ð Â°Ð Â»Ð¡ÐŠÐ Ð…Ð¡â€¹Ð â„– Ð¡Ð‚Ð Ñ‘Ð¡ÐƒÐ Ñ”
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
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);
  }
  
  //+------------------------------------------------------------------+
//| Ð Â Ð Â°Ð¡ÐƒÐ¡â€¡Ð ÂµÐ¡â€š Ð Ñ•Ð Ñ—Ð¡â€šÐ Ñ‘Ð Ñ˜Ð Â°Ð Â»Ð¡ÐŠÐ Ð…Ð Ñ•Ð â„– Ð Ð†Ð ÂµÐ Â»Ð Ñ‘Ð¡â€¡Ð Ñ‘Ð Ð…Ð¡â€¹ Ð Â»Ð Ñ•Ð¡â€šÐ Â°                                 |
//+------------------------------------------------------------------+
double LotsOptimized()
  {
   double lot=Lots;
   int    orders=OrdersHistoryTotal();     // history orders total
   int    losses=0;                        // number of losses orders without a break
//---- select lot size
   lot=NormalizeDouble(AccountFreeMargin()*MaxR/1000.0,1);
//---- calculate number of losses orders without a break
   if(DcF>0)
     {
      for(int i=orders-1;i>=0;i--)
        {
         if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==false) break;
         if(OrderSymbol()!=Symbol() || OrderType()>OP_SELL) continue;
         //----
         if(OrderProfit()>0) break;
         if(OrderProfit()<0) losses++;
        }
      if(losses>1) lot=NormalizeDouble(lot-lot*losses/DcF, 1);
     }
//---- return lot size
   if(lot<1 ||lot>Lots)
     lot=Lots;
   return(lot);
}
  
void CheckForOpen()
{
   double mas;
   double maf;
   double mas_p;
   double maf_p;
   double Atr;
   double icc;
   double icc_p;
   int    res;
 
//---- Ð Ð…Ð Â°Ð¡â€¡Ð Ñ‘Ð Ð…Ð Â°Ð ÂµÐ Ñ˜ Ð¡â€šÐ Ñ•Ð¡Ð‚Ð Ñ–Ð Ñ•Ð Ð†Ð Â»Ð¡Ð‹ Ð¡â€šÐ Ñ•Ð Â»Ð¡ÐŠÐ Ñ”Ð Ñ• Ð¡Ðƒ Ð Ñ—Ð ÂµÐ¡Ð‚Ð Ð†Ð¡â€¹Ð Ñ˜ Ð¡â€šÐ Ñ‘Ð Ñ”Ð Ñ•Ð Ñ˜ Ð Ð…Ð Ñ•Ð Ð†Ð Ñ•Ð Ñ–Ð Ñ• Ð Â±Ð Â°Ð¡Ð‚Ð Â°
//   if(Volume[0]>1) return;
//---- Ð Ñ•Ð Ñ—Ð¡Ð‚Ð ÂµÐ Ò‘Ð ÂµÐ Â»Ð¡ÐÐ ÂµÐ Ñ˜ Moving Average 
   mas=iMA(NULL,0,SMa,0,MODE_SMA,PRICE_CLOSE,1); // Ð Ò‘Ð Ñ‘Ð Ð…Ð Ð…Ð¡â€¹Ð â„– Ð Ñ˜Ð¡Ñ“Ð Ð†Ð Ñ‘Ð Ð…Ð Ñ– 1 Ð Ñ—Ð ÂµÐ¡Ð‚Ð Ñ‘Ð Ñ•Ð Ò‘ Ð Ð…Ð Â°Ð Â·Ð Â°Ð Ò‘
   maf=iMA(NULL,0,FMa,0,MODE_SMA,PRICE_CLOSE,1);// Ð Ñ”Ð Ñ•Ð¡Ð‚Ð Ñ•Ð¡â€šÐ Ñ”Ð Ñ‘Ð â„– Ð Ñ˜Ð¡Ñ“Ð Ð†Ð Ñ‘Ð Ð…Ð Ñ– 1 Ð Ñ—Ð ÂµÐ¡Ð‚Ð Ñ‘Ð Ñ•Ð Ò‘ Ð Ð…Ð Â°Ð Â·Ð Â°Ð Ò‘
   mas_p=iMA(NULL,0,SMa,0,MODE_SMA,PRICE_CLOSE,2); // Ð Ò‘Ð Ñ‘Ð Ð…Ð Ð…Ð¡â€¹Ð â„– Ð Ñ˜Ð¡Ñ“Ð Ð†Ð Ñ‘Ð Ð…Ð Ñ– 2 Ð Ñ—Ð ÂµÐ¡Ð‚Ð Ñ‘Ð Ñ•Ð Ò‘Ð Â° Ð Ð…Ð Â°Ð Â·Ð Â°Ð Ò‘
   maf_p=iMA(NULL,0,FMa,0,MODE_SMA,PRICE_CLOSE,2);// Ð Ñ”Ð Ñ•Ð¡Ð‚Ð Ñ•Ð¡â€šÐ Ñ”Ð Ñ‘Ð â„– Ð Ñ˜Ð¡Ñ“Ð Ð†Ð Ñ‘Ð Ð…Ð Ñ– 2 Ð Ñ—Ð ÂµÐ¡Ð‚Ð Ñ‘Ð Ñ•Ð Ò‘Ð Â° Ð Ð…Ð Â°Ð Â·Ð Â°Ð Ò‘
   Atr = iATR(NULL,0,pATR,0);
   icc = iCCI(NULL,0,PCCi,PRICE_CLOSE,1);// CCI 1 Ð Ñ—Ð ÂµÐ¡Ð‚Ð Ñ‘Ð Ñ•Ð Ò‘ Ð Ð…Ð Â°Ð Â·Ð Â°Ð Ò‘
   icc_p = iCCI(NULL,0,PCCi,PRICE_CLOSE,2);// CCI 2 Ð Ñ—Ð ÂµÐ¡Ð‚Ð Ñ‘Ð Ñ•Ð Ò‘Ð Â° Ð Ð…Ð Â°Ð Â·Ð Â°Ð Ò‘
 //---- Ð ÐˆÐ¡ÐƒÐ Â»Ð Ñ•Ð Ð†Ð Ñ‘Ð Âµ Ð Ñ—Ð¡Ð‚Ð Ñ•Ð Ò‘Ð Â°Ð Â¶Ð Ñ‘
   if ( (maf<mas && maf_p>=mas_p)&&(icc<0 && icc_p >=0 )) 
     {
      res=OrderSend(Symbol(),OP_SELL,LotsOptimized(),Bid,3,Ask+Atr,0,"",MAGICMA,0,CLR_NONE);
      return;
     }
//---- Ð ÐˆÐ¡ÐƒÐ Â»Ð Ñ•Ð Ð†Ð Ñ‘Ð Âµ Ð Ñ—Ð Ñ•Ð Ñ”Ð¡Ñ“Ð Ñ—Ð Ñ”Ð Ñ‘
   if ((maf>mas && maf_p<=mas_p)&& (icc > 0 && icc_p <=0 ))  
     {
      res=OrderSend(Symbol(),OP_BUY,LotsOptimized(),Ask,3,Bid-Atr,0,"",MAGICMA,0,CLR_NONE);
      return;
     }
}  
 
void CheckForClose()
{
   double mas;
   double maf;
   double mas_p;
   double maf_p;
   bool CloseOrd;
//---- 
   //if(Volume[0]>1) return;
//----  
   mas=iMA(NULL,0,SMa,0,MODE_SMA,PRICE_CLOSE,1); // Ð Ò‘Ð Ñ‘Ð Ð…Ð Ð…Ð¡â€¹Ð â„– Ð Ñ˜Ð¡Ñ“Ð Ð†Ð Ñ‘Ð Ð…Ð Ñ– 1 Ð Ñ—Ð ÂµÐ¡Ð‚Ð Ñ‘Ð Ñ•Ð Ò‘ Ð Ð…Ð Â°Ð Â·Ð Â°Ð Ò‘
   maf=iMA(NULL,0,FMa,0,MODE_SMA,PRICE_CLOSE,1);// Ð Ñ”Ð Ñ•Ð¡Ð‚Ð Ñ•Ð¡â€šÐ Ñ”Ð Ñ‘Ð â„– Ð Ñ˜Ð¡Ñ“Ð Ð†Ð Ñ‘Ð Ð…Ð Ñ– 1 Ð Ñ—Ð ÂµÐ¡Ð‚Ð Ñ‘Ð Ñ•Ð Ò‘ Ð Ð…Ð Â°Ð Â·Ð Â°Ð Ò‘
   mas_p=iMA(NULL,0,SMa,0,MODE_SMA,PRICE_CLOSE,2); // Ð Ò‘Ð Ñ‘Ð Ð…Ð Ð…Ð¡â€¹Ð â„– Ð Ñ˜Ð¡Ñ“Ð Ð†Ð Ñ‘Ð Ð…Ð Ñ– 2 Ð Ñ—Ð ÂµÐ¡Ð‚Ð Ñ‘Ð Ñ•Ð Ò‘Ð Â° Ð Ð…Ð Â°Ð Â·Ð Â°Ð Ò‘
   maf_p=iMA(NULL,0,FMa,0,MODE_SMA,PRICE_CLOSE,2);// Ð Ñ”Ð Ñ•Ð¡Ð‚Ð Ñ•Ð¡â€šÐ Ñ”Ð Ñ‘Ð â„– Ð Ñ˜Ð¡Ñ“Ð Ð†Ð Ñ‘Ð Ð…Ð Ñ– 2 Ð Ñ—Ð ÂµÐ¡Ð‚Ð Ñ‘Ð Ñ•Ð Ò‘Ð Â° Ð Ð…Ð Â°Ð Â·Ð Â°Ð Ò‘
//----
   for(int i=0;i<OrdersTotal();i++)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false)        break;
      if(OrderMagicNumber()!=MAGICMA || OrderSymbol()!=Symbol()) continue;
      //----  
      if(OrderType()==OP_BUY)
        {
         if(maf<mas && maf_p>=mas_p) CloseOrd=OrderClose(OrderTicket(),OrderLots(),Bid,3,CLR_NONE);
         break;
        }
      if(OrderType()==OP_SELL)
        {
         if(maf>mas && maf_p<=mas_p) OrderClose(OrderTicket(),OrderLots(),Ask,3,CLR_NONE);
         break;
        }
     }
//----
}  
 
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
//---- 
   if(Bars<10)
      return;
//---- calculate open orders by current symbol
   if(CalculateCurrentOrders(Symbol())==0) CheckForOpen();
   else                                    CheckForClose();
//----
   return(0);
  }
//+------------------------------------------------------------------+
User login

Scripts base

Comments
