// START OF TRAILING *****************************************************************

    
 TrailingStop=0.00003;
                 
for(int i=OrdersTotal()-1;i>=0;i--)
  
   {
    if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue;
     

       if(OrderMagicNumber()==Expert_Id && OrderSymbol()==Symbol()) //only primary Order
      {
        switch(OrderType())
         {
         //==========================================================
          
          case OP_BUY:
             //RefreshRates();
             
         
           // TRAILING OF PRIMARY BUY-ORDER *******************
          if(Trail==TRUE && CountOrders(OP_BUY,HedgeMagic,Symbol())<1).... d.h. es ist keine Hedge-Order geöffnet
          {
                                          
            if(TrailingStop>0)  
             {                                    
             if(ND(BidValue-OrderOpenPrice())>ND(TrailingStop+spread))
               {
                  if(OrderStopLoss()<BidValue-spread)
                  {
                  
                  //--- modify order
                   
                   mt=OrderModify(OrderTicket(),OrderOpenPrice(),ND(BidValue-spread),0,0,Green);
                  
                   
                  }
               }
            }
          }  
             OpenOrderCount++;
             CheckHedge(Expert_Id);
             //RefreshRates();
             break;

 

....  usw für Sell..

//+------------------------------------------------------------------+
//|                                      smash-day            |
             |
//+------------------------------------------------------------------+
#property copyright ""
#property link      ""
#property version   "1.00"
#property strict

//Globale externen Variablen


extern double HandelsLots = 1;
extern double SL_inPunkten = 20;
extern double TP_inPunkten = 20;
extern int MagicNummer = 1974;

//Globale Variablen
datetime PeriodenStartZeit;
bool NeuePeriodeBegonnen;
bool LongSignal;
bool ShortSignal;
int LongOrder;
int ShortOrder;
double TakeProfit;
double StoppLoss;
bool OrderAngepasst;
bool LongOrderGeclosed;
bool ShortOrderGeclosed;


//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
      PeriodenStartZeit = Time[0];
//---
   return(INIT_SUCCEEDED);
  }
  
  
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---
   
  }
  
  
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
//---
      //Überprüfen ob neuer Periodenbeginn vorliegt
      if (PeriodenStartZeit != Time[0])
        {
            NeuePeriodeBegonnen = true;
            PeriodenStartZeit = Time[0];
        }
     else NeuePeriodeBegonnen = false;
 
      
      
      //Handelssignale ermitteln
      if(NeuePeriodeBegonnen == true)
         {
            //Buy Signal
            if(iClose(NULL,0,0) < iLow(NULL,0,1))
              {
                  LongSignal = true;
              }
            else LongSignal = false;
         }
      else
         {
            LongSignal = false;
            ShortSignal = false;
         }
     
     
      //Long Signale umsetzen
      if(LongSignal == true)
         {  
                TakeProfit = iHigh(NULL,0,1)+TP_inPunkten;
                StoppLoss = iHigh(NULL,0,1)-SL_inPunkten;
        
           //Long Order eröffnen
           while(LongOrder<=0)
             {

                LongOrder = OrderSend(Symbol(),OP_BUYSTOP,HandelsLots,iHigh(NULL,0,1),10,StoppLoss,TakeProfit,"Longorder eröffnet",MagicNummer,0,Green);
                   }
           //Alarm ausgeben
             {
                Alert("Long-Trade wurde gestartet!");
             }        
         }

        
       //Ticketnummern nach Closing auf 0 zurück setzen
       if(OrderSelect(LongOrder,SELECT_BY_TICKET) == true)
         {
           if(OrderTicket()>0 && OrderCloseTime()>0) LongOrder=0;
           
         }
         
      
 }
//+------------------------------------------------------------------+

// entspricht exakt der HA Formel
   d1haOpen=( iOpen(NULL,PERIOD_D1,1)+iClose(NULL,PERIOD_D1,1) )/2;

Print( " d1haOpen=",DoubleToStr(d1haOpen,2) );
// Ergebnis: d1haOpen=10904.65

// Open: 10860.37

 
double EMA15P10;
EMA15P10=iMA(NULL,15,10,0,1,0,0);

double EMA15P10;
string EMA15P10GENAU;
EMA15P10=iMA(NULL,15,10,0,1,0,0);
EMA15P10GENAU=DoubleToStr(EMA15P10,5);

if (EMA15P10>EMA15P16)
{}

OnCalculate()
{
   if(ShowEma1) FuncEma1(); //SigWanted
   if(ShowEma2) FuncEma2(); //SigWanted
}

FuncEma1()
{
   double CClose=iClose(NULL,PERIOD_M1,0);
   double m1MAcur=iMA(NULL,PERIOD_M1,MA1peri,0,MA1meth,MA1price,0);
   double m1MApre=iMA(NULL,PERIOD_M1,MA1peri,0,MA1meth,MA1price,1);

   if(m1MAcur>m1MApre) { if(CClose>m1MAcur) ...; else ...; }
   if(m1MAcur<m1MApre) { if(CClose<dmMAcur) ...; else ...; }
}
FuncEma2()
{
   double CClose=iClose(NULL,PERIOD_M1,0);
   double m1MAcur=iMA(NULL,PERIOD_M1,MA2peri,0,MA2meth,MA2price,0);
   double m1MApre=iMA(NULL,PERIOD_M1,MA2peri,0,MA2meth,MA2price,1);

   if(m1MAcur>m1MApre) { if(CClose>m1MAcur) ...; else ...; }
   if(m1MAcur<m1MApre) { if(CClose<m1MAcur) ...; else ...; }
}

for(i=OrdersTotal()-1;i>=0;i--){
  if(OrderSelect(i,SELECT_BY_POS)){

    if(OrderType()==OP_BUY&&OrderMagicNumber()==Buy_Market_MN&&OrderSymbol()==Symbol()){
       if((CP_1<Slow_MA)||(Close_all_Orders_after_Time_O_Clock==true&&TC>CA))OrderClose(OrderTicket(),OrderLots(),Bid,Slippage,DarkBlue);}

    if(OrderType()==OP_SELLSTOP&&OrderMagicNumber()==Sell_Stop_MN&&OrderSymbol()==Symbol()){

      for(i=OrdersTotal()-1;i>=0;i--){
        if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)){

          if(OrderType()==OP_BUY&&OrderMagicNumber()==Buy_Market_MN&&OrderSymbol()==Symbol()){

            double old_Buy_Mark_OrPr = OrderProfit();}
              
                if((Buy_Mark_inv==false&&old_Buy_Mark_OrPr >= 0 )||(Close_all_Orders_after_Time_O_Clock==true&&TC>CA))OrderDelete(OrderTicket(),OrangeRed);} } }