double BreakEvenKurs()
   {
      double AktuelleOpenLotsBETotal = 0;
      double AktuelleEinstiegeBETotal = 0;
      double aktuellerBE = 0;
      
      for(int Zaehler = 0; Zaehler <= OrdersTotal()-1; Zaehler++)
         {
            bool Orderwahl = OrderSelect(Zaehler, SELECT_BY_POS);
            if(Orderwahl == true && OrderSymbol() == Symbol()) 
               {
                  if(OrderType() == OP_BUY) 
                     {
                     	 AktuelleOpenLotsBETotal = AktuelleOpenLotsBETotal + OrderLots(); 
                     	 AktuelleEinstiegeBETotal = AktuelleEinstiegeBETotal + (OrderOpenPrice()*OrderLots());
                     }
                  else if(OrderType() == OP_SELL)
                     {
                     	 AktuelleOpenLotsBETotal = AktuelleOpenLotsBETotal + OrderLots(); 
                     	 AktuelleEinstiegeBETotal = AktuelleEinstiegeBETotal + (OrderOpenPrice()*OrderLots());
                     }
               }
         }
      if(AktuelleOpenLotsBETotal != 0) aktuellerBE = AktuelleEinstiegeBETotal / AktuelleOpenLotsBETotal;
      
      return(aktuellerBE);
   }

//+==================================================================================+
//| Calculate open positions                                                         | 
//+==================================================================================+

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()==OrderMagicNumber)
        {
         if(OrderType()==OP_BUY)  buys++;
         if(OrderType()==OP_SELL) sells++;
        }
     }
     if(openOrders>0) openOrders = buys+sells;
   return (openOrders);
}  
//+===================================================================================+
//| MoneyManagement - Calculate martingale lot size for open positiones               |            
//|===================================================================================+
double LotsOptimized()
  {
   double lot=Lots;
   
//--- select lot size
   lot=NormalizeDouble(AccountFreeMargin() *MaximumRisk / 100, 2);  //  2 = Digits for DAX

//--- calculate martingale steps
   if(ProfitFactor>0)
     {
//-- MathPow(double base,double exponent); = bereits im Editor implementiert
//-- Formel für Zahlenreihe der Verdopplung: a(openOrders) = 2 *2(hoch openOrders - 1)
     lot = NormalizeDouble(lot *2 *MathPow(2,openOrders - 1),2);
     }  
//--- return lot size
   if(lot<0.01) lot=0.01;
   return(lot);
  }  
//+=======================================================================================+

//---
void CheckOpen()
// .....
// .....     
      //--- check order type 
      if(OrderType()==OP_BUY && OrderSHORT==false)
        { 
         if(Close[0] < OrderOpenPrice()-6*100*Point)
           {
            OrderSHORT=OrderSend(Symbol(),OP_SELL,LotsOptimized(),Bid,3,0,0,"",MagicNumb_1,0,Red);
            OrderSHORT=true;
           }
         break;
        }
//---
void OnTick()
  {
//--- check for history and trading
   if(Bars<100 || IsTradeAllowed()==false)
      return;
//--- calculate open orders by current symbol --> and close, if TP
   if(CalculateCurrentOrders(Symbol())==0) CheckOpen();
      else                                 CheckTakeProfit();

//--- calculate open orders --> and opening a new position (Hedge against SL) 
   if(CalculateCurrentOrders(Symbol())!=0) CheckOpen();
      return;
  }
//----