ma_angle_ea.mq4

#include <stdlib.mqh>

#define UP 1
#define DOWN 2

#define SMA 0
#define EMA 1
#define SMMA 2
#define LWMA 3
#define LSMA 4

extern bool Debug = false;               // Change to true to allow print

extern bool AccountIsMini = true;      // Change to true if trading mini account

extern bool MoneyManagement = true; // Change to false to shutdown money management controls.

extern double TradeSizePercent = 10;      // Change to whatever percent of equity you wish to risk.
extern double Lots = 0.1;             // standard lot size. 
extern double MaxLots = 30;

extern double StopLoss = 0;        // Maximum pips willing to lose per position.
extern bool UseTrailingStop = false;
extern int TrailingStopType = 1;
extern double TrailingStop = 20;    // Change to whatever number of pips you wish to trail your position with.
 double FirstMove = 20;       // Type 3  first level pip gain
 double FirstStopLoss = 50;       // Move Stop to Breakeven
 double SecondMove = 30;       // Type 3 second level pip gain
 double SecondStopLoss = 30;       // Move stop to lock is profit
 double ThirdMove = 40;       // type 3 third level pip gain
 double TrailingStop3 = 20;       // Move stop and trail from there
extern int Slippage = 10;           // Possible fix for not getting filled or closed    
extern int TakeProfit = 0;
extern double Margincutoff = 800;   // Expert will stop trading if equity level decreases to that level.

 int SignalCandle = 1;

extern int     MA_Period=34;
extern string  m = "--Moving Average Types--";
extern string  m0 = " 0 = SMA";
extern string  m1 = " 1 = EMA";
extern string  m2 = " 2 = SMMA";
extern string  m3 = " 3 = LWMA";
extern string  m4 = " 4 = LSMA";
extern int     MA_Type = 1; //0=SMA, 1=EMA, 2=SMMA, 3=LWMA, 4=LSMA
extern string  p = "--Applied Price Types--";
extern string  p0 = " 0 = close";
extern string  p1 = " 1 = open";
extern string  p2 = " 2 = high";
extern string  p3 = " 3 = low";
extern string  p4 = " 4 = median(high+low)/2";
extern string  p5 = " 5 = typical(high+low+close)/3";
extern string  p6 = " 6 = weighted(high+low+close+close)/4";
extern int     MA_AppliedPrice = 4;
extern double  Angle_Threshold=15;
extern int     PrevMAShift=4;
extern int     CurMAShift=0;

string setup;
double lotMM;
int TradesInThisSymbol;
int MagicNumber;

double MACurrent, MAPrevious;

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

int deinit()
  {
   return(0);
  }

double fLSMA(int Rperiod, int prMode, int shift)
{
   int i;
   double sum, pr;
   int length;
   double lengthvar;
   double tmp;
   double wt;

   length = Rperiod;

   sum = 0;
   for(i = length; i >= 1  ; i--)
   {
     lengthvar = length + 1;
     lengthvar /= 3;
     tmp = 0;
     switch (prMode)
     {
     case 0: pr = Close[length-i+shift];break;
     case 1: pr = Open[length-i+shift];break;
     case 2: pr = High[length-i+shift];break;
     case 3: pr = Low[length-i+shift];break;
     case 4: pr = (High[length-i+shift] + Low[length-i+shift])/2;break;
     case 5: pr = (High[length-i+shift] + Low[length-i+shift] + Close[length-i+shift])/3;break;
     case 6: pr = (High[length-i+shift] + Low[length-i+shift] + Close[length-i+shift] + Close[length-i+shift])/4;break;
     }
     tmp = ( i - lengthvar)*pr;
     sum+=tmp;
    }
    wt = sum*6/(length*(length+1));

    return(wt);
}

double MA_Angle( int PrevShift, int CurShift, double fPrevMA, double fCurMA)
{
   double fAngle, mFactor;
   string Sym;
   int ShiftDif;

   mFactor = 100000.0;
   Sym = StringSubstr(Symbol(),3,3);
   if (Sym == "JPY") mFactor = 1000.0;
   ShiftDif = PrevShift-CurShift;
   mFactor /= ShiftDif; 

    fAngle = mFactor * (fCurMA - fPrevMA)/2.0;

    return(fAngle);
}

void GetMA(int MAPeriod, int Prev, int Cur)
{
   MACurrent=iMA(NULL,0,MAPeriod,0,MA_Type,MA_AppliedPrice,Cur);
   MAPrevious=iMA(NULL,0,MAPeriod,0,MA_Type,MA_AppliedPrice,Prev);
}

void GetLSMA(int MAPeriod, int Prev, int Cur)
{
   MACurrent=fLSMA(MAPeriod,MA_AppliedPrice,Cur);
   MAPrevious=fLSMA(MAPeriod,MA_AppliedPrice,Prev);
}

void GetMA_Trend (int TrendMethod, int myPeriod, int PrevShift, int CurShift)
{
   switch (TrendMethod)
   {
     case LSMA :  GetLSMA(myPeriod, PrevShift, CurShift);
                  break;
     default : GetMA( myPeriod, PrevShift, CurShift);
   }
}

bool CheckTrend(int cmd)
{
   bool TrendUP, TrendDOWN;
	double maAngle;

   GetMA_Trend(MA_Type, MA_Period , PrevMAShift, CurMAShift);
	maAngle = MA_Angle(PrevMAShift, CurMAShift, MAPrevious, MACurrent);
   switch (cmd)
   {
      case OP_BUY : if (maAngle > Angle_Threshold) return(true);
                    break;
      case OP_SELL : if (maAngle < -Angle_Threshold) return(true);
   }

   return(false);
}

bool CheckExitCondition(int cmd)
{

   bool trend;

   switch (cmd)
   {
     case OP_BUY : trend = CheckTrend(OP_SELL);
                   break;
     case OP_SELL: trend = CheckTrend (OP_BUY);
   }

   return (trend);
}

bool CheckEntryCondition(int cmd)
{
   bool trend;

   trend = CheckTrend(cmd);

   return (trend);

}

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

void OpenBuyOrder()
{
   int err,ticket, digits;
   double myPrice, myStopLoss = 0, myTakeProfit = 0;

   myPrice = MarketInfo(Symbol( ), MODE_ASK);
   myStopLoss = 0;
   if ( StopLoss > 0 ) myStopLoss = myPrice - StopLoss * Point ;
   myTakeProfit = 0;
   if (TakeProfit>0) myTakeProfit = myPrice + TakeProfit * Point;

   digits = MarketInfo(Symbol( ), MODE_DIGITS) ;
   if (digits > 0) 
   {
     myPrice = NormalizeDouble( myPrice, digits);
     myStopLoss = NormalizeDouble( myStopLoss, digits);
     myTakeProfit = NormalizeDouble( myTakeProfit, digits); 
   }
   ticket=OrderSend(Symbol(),OP_BUY,lotMM,myPrice,Slippage,myStopLoss,myTakeProfit,setup,MagicNumber,0,Green); 
	if (ticket > 0)
	{
		if (OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) 
		{
		   if (Debug) Print("BUY order opened : ", OrderOpenPrice());

		}
	}
	else
	{ 
		   err = GetLastError();
         Print("Error opening BUY order [" + setup + "]: (" + err + ") " + ErrorDescription( err) );
   }
}

void OpenSellOrder()
{
   int err, ticket, digits;
   double myPrice, myStopLoss = 0, myTakeProfit = 0;

   myPrice = MarketInfo(Symbol( ), MODE_BID);
   myStopLoss = 0;
   if ( StopLoss > 0 ) myStopLoss = myPrice + StopLoss * Point;
   myTakeProfit = 0;
   if (TakeProfit > 0) myTakeProfit = myPrice - TakeProfit * Point;

   digits = MarketInfo(Symbol( ), MODE_DIGITS) ;
   if (digits > 0) 
   {
     myPrice = NormalizeDouble( myPrice, digits);
     myStopLoss = NormalizeDouble( myStopLoss, digits);
     myTakeProfit = NormalizeDouble( myTakeProfit, digits); 
   }
   ticket=OrderSend(Symbol(),OP_SELL,lotMM,myPrice,Slippage,myStopLoss,myTakeProfit,setup,MagicNumber,0,Red); 
	if (ticket > 0)
	{
		if (OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES)) 
			{
			  if (Debug) Print("SELL order opened : ", OrderOpenPrice());

			}
	}
	else 
   {
      err = GetLastError();
      Print("Error opening Sell order [" + setup + "]: (" +

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