Let's discuss video "EMA-Heiken Ashi | This is The Trading Strategy The Top 5% Use"

input int magic_number=1234; //magic number
input double risk_percentage = 1; //Risk per trade %

double Ask,Bid;

#include <Trade\Trade.mqh>
CTrade trade;

ENUM_TIMEFRAMES HTF=PERIOD_H4;
ENUM_TIMEFRAMES LTF=PERIOD_H1;

int htf_handle=0;
int ltf_handle=0;

int OnInit()
  {
   htf_handle=iCustom(_Symbol, HTF, "HAEMA");
   ltf_handle=iCustom(_Symbol, LTF, "HAEMA");
   return(INIT_SUCCEEDED);
  }

datetime timer=NULL;
void OnTick()
  {
      if(timer==NULL){}
      else if(timer==iTime(_Symbol, LTF, 0)) return;
      timer=iTime(_Symbol, LTF, 0);
/////////////////////////////////////////////////////
      if(BuyCount()>0 && OHA_LTF(1)==HHA_LTF(1))
         CloseAll();
      if(SellCount()>0 && OHA_LTF(1)==LHA_LTF(1))
         CloseAll();
  
      bool buy_condition=true;
      buy_condition &= (BuyCount()==0);
      buy_condition &= (OHA_HTF(1)==LHA_HTF(1));
      buy_condition &= (OHA_HTF(1)<CHA_HTF(1));
      buy_condition &= (EMA10_HTF(1)>EMA30_HTF(1));
      buy_condition &= (OHA_LTF(1)==LHA_LTF(1));
      buy_condition &= (OHA_LTF(1)<CHA_LTF(1));
      buy_condition &= (EMA10_LTF(1)>EMA30_LTF(1));
      if(buy_condition) Buy();

      bool sell_condition=true;
      sell_condition &= (SellCount()==0);
      sell_condition &= (OHA_HTF(1)==HHA_HTF(1));
      sell_condition &= (OHA_HTF(1)>CHA_HTF(1));
      sell_condition &= (EMA10_HTF(1)<EMA30_HTF(1));
      sell_condition &= (OHA_LTF(1)==HHA_LTF(1));
      sell_condition &= (OHA_LTF(1)>CHA_LTF(1));
      sell_condition &= (EMA10_LTF(1)<EMA30_LTF(1));
      if(sell_condition) Sell();
   
  }

double OHA_HTF(int i)
{
   double array[];
   ArraySetAsSeries(array, true);
   CopyBuffer(htf_handle, 0, i, 1, array);
   return array[0];
}
double HHA_HTF(int i)
{
   double array[];
   ArraySetAsSeries(array, true);
   CopyBuffer(htf_handle, 1, i, 1, array);
   return array[0];
}
double LHA_HTF(int i)
{
   double array[];
   ArraySetAsSeries(array, true);
   CopyBuffer(htf_handle, 2, i, 1, array);
   return array[0];
}
double CHA_HTF(int i)
{
   double array[];
   ArraySetAsSeries(array, true);
   CopyBuffer(htf_handle, 3, i, 1, array);
   return array[0];
}


double OHA_LTF(int i)
{
   double array[];
   ArraySetAsSeries(array, true);
   CopyBuffer(ltf_handle, 0, i, 1, array);
   return array[0];
}
double HHA_LTF(int i)
{
   double array[];
   ArraySetAsSeries(array, true);
   CopyBuffer(ltf_handle, 1, i, 1, array);
   return array[0];
}
double LHA_LTF(int i)
{
   double array[];
   ArraySetAsSeries(array, true);
   CopyBuffer(ltf_handle, 2, i, 1, array);
   return array[0];
}
double CHA_LTF(int i)
{
   double array[];
   ArraySetAsSeries(array, true);
   CopyBuffer(ltf_handle, 3, i, 1, array);
   return array[0];
}

double EMA10_HTF(int i)
{
   double array[];
   ArraySetAsSeries(array, true);
   CopyBuffer(htf_handle, 5, i, 1, array);
   return array[0];
}
double EMA30_HTF(int i)
{
   double array[];
   ArraySetAsSeries(array, true);
   CopyBuffer(htf_handle, 6, i, 1, array);
   return array[0];
}

double EMA10_LTF(int i)
{
   double array[];
   ArraySetAsSeries(array, true);
   CopyBuffer(ltf_handle, 5, i, 1, array);
   return array[0];
}
double EMA30_LTF(int i)
{
   double array[];
   ArraySetAsSeries(array, true);
   CopyBuffer(ltf_handle, 6, i, 1, array);
   return array[0];
}

void CloseAll()
{
   for(int i=0;i<PositionsTotal();i++)
   {
      PositionSelectByTicket(PositionGetTicket(i));
      if(PositionGetInteger(POSITION_MAGIC) == magic_number)
      {
         trade.PositionClose(PositionGetTicket(i), -1);
         i--;
      }
   }  
}


void Buy()
{
   Ask=SymbolInfoDouble(_Symbol, SYMBOL_ASK);
   double sl=iLow(_Symbol, LTF, iLowest(_Symbol, LTF, MODE_LOW, 10, 0));
   double points = (Ask-sl)/_Point;
   double lot = AccountInfoDouble(ACCOUNT_EQUITY)*risk_percentage*0.01/(SymbolInfoDouble(Symbol(), SYMBOL_TRADE_TICK_VALUE)*points);
   double vol_step=SymbolInfoDouble(_Symbol, SYMBOL_VOLUME_STEP);
   lot=int(lot / vol_step)*vol_step;
   trade.SetExpertMagicNumber(magic_number);
   if(!trade.Buy(lot, _Symbol, Ask, sl, 0, ""))
   {
      Alert("Error executing order: " + (string)GetLastError());
      //ExpertRemove();
   }
}


void Sell()
{
   Bid=SymbolInfoDouble(_Symbol, SYMBOL_BID);
   double sl=iHigh(_Symbol, LTF, iHighest(_Symbol, LTF, MODE_HIGH, 10, 0));
   double points = (sl-Bid)/_Point;
   double lot = AccountInfoDouble(ACCOUNT_EQUITY)*risk_percentage*0.01/(SymbolInfoDouble(Symbol(), SYMBOL_TRADE_TICK_VALUE)*points);
   double vol_step=SymbolInfoDouble(_Symbol, SYMBOL_VOLUME_STEP);
   lot=int(lot / vol_step)*vol_step;
   trade.SetExpertMagicNumber(magic_number);
   if(!trade.Sell(lot, _Symbol, Bid, sl, 0, ""))
   {
      Alert("Error executing order: " + (string)GetLastError());
      //ExpertRemove();
   }
}

int BuyCount()
{
   int buy=0;
   for(int i=0;i<PositionsTotal();i++)
   {
      PositionSelectByTicket(PositionGetTicket(i));
      if(PositionGetInteger(POSITION_TYPE) == POSITION_TYPE_BUY && PositionGetInteger(POSITION_MAGIC) == magic_number)
         buy++;
   }  
   return buy;
}

int SellCount()
{
   int sell=0;
   for(int i=0;i<PositionsTotal();i++)
   {
      PositionSelectByTicket(PositionGetTicket(i));
      if(PositionGetInteger(POSITION_TYPE) == POSITION_TYPE_SELL && PositionGetInteger(POSITION_MAGIC) == magic_number)
         sell++;
   }  
   return sell;
}