//
#property indicator_chart_window
#property indicator_buffers 2
#property indicator_color1 Blue
#property indicator_color2 Red
//---- input parameters
extern int Equals=5;
extern int nLeftUp=2;
extern int nRightUp=2;
extern int nLeftDown=2;
extern int nRightDown=2;
//---- buffers
double FractalsUp[];
double FractalsDown[];
//----
int pos=0,cntup=0,cntdown=0,cnt=0;
int r=0,l=0,e=0;
int fup=0,fdown=0;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
   SetIndexBuffer(0,FractalsUp);
   SetIndexBuffer(1,FractalsDown);
//----
   SetIndexStyle(0,DRAW_ARROW,0,1);
   SetIndexArrow(0,217);
//----
   SetIndexStyle(1,DRAW_ARROW,0,1);
   SetIndexArrow(1,218);
//----
   cntup=nLeftUp+nRightUp+Equals+1;
   cntdown=nLeftDown+Equals+1;
   if(cntup>=cntdown)
      cnt=cntup;
   if(cntup<cntdown)
      cnt=cntdown;
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   int i=0,j=0;
   int cbars=IndicatorCounted();
//----
   if(cbars<0)
      return(-1);
//----
   if(cbars>0)
      cbars--;
   pos=0;
//----
   if(cbars>(Bars-cnt-1))
      pos=(Bars-cnt-1);
   else
      pos=Bars -(cbars+nRightUp);
  if(cbars==0) pos-=Equals;       
//----
   while(pos>=nRightUp)
     {
      FractalsUp[pos]=NULL;
      FractalsDown[pos]=NULL;
      //ôÐÀÊÒÀË ÂÂÅÐÕ
      r=nRightUp; //ïðîâåðÿåì ïðàâóþ ñòîðîíó ôðàêòàëà
      //----
      for(i=1; i<=r; i++)
        {
         if(High[pos]<=High[pos-i])
            break;
        }
      //åñëè ñïðàâà âñå ÎÊ òî i äîëæíî áûòü ðàâíî r+1
      if(i==r+1) //FractalsUp[pos]=High[pos];
        {
         l=nLeftUp;  //ïðîâåðÿåì ëåâóþ ñòîðîíó ôðàêòàëà
         e= Equals;
         //----
         for(j=1; j<=l+Equals; j++)
           {
            if(High[pos]<High[pos+j])
               break;
            //----
            if(High[pos]>High[pos+j])
               l--;
            //----
            if(High[pos]==High[pos+j])
               e--;
            //----
            if(l==0)
              {
               FractalsUp[pos]=High[pos];
               break;
              }
            //----
            if(e<0)
               break;
           }
        }
      //ÔÐÀÊÒÀË ÂÍÈÇ
      r=nRightDown; //ïðîâåðÿåì ïðàâóþ ñòîðîíó ôðàêòàëà
      //----
      for(i=1; i<=r; i++)
        {
         if(Low[pos]>=Low[pos-i])
            break;
        }
      //----
      if(i==r+1) //FractalsUp[pos]=High[pos];
        {
         l=nLeftDown;  //ïðîâåðÿåì ëåâóþ ñòîðîíó ôðàêòàëà
         e= Equals;
         //----
         for(j=1; j<=l+Equals; j++)
           {
            if(Low[pos]>Low[pos+j])
               break;
            //----
            if(Low[pos]<Low[pos+j])
               l--;
            //----
            if(Low[pos]==Low[pos+j])
               e--;
            //----
            if(l==0)
              {
               FractalsDown[pos]=Low[pos];
               break;
              }
            if(e<0)
               break;
           }
        }
      pos--;
     }
//----
   return(0);
  }
//+------------------------------------------------------------------+

FP	0	07:16:06.333	Startup	MetaTester 5 x64 build 3320 (03 Jun 2022)
HF	0	07:16:06.341	Server	MetaTester 5 started on 127.0.0.1:3000
OO	0	07:16:06.343	Startup	initialization finished
NM	0	07:16:06.641	127.0.0.1	login (build 3320)
HJ	0	07:16:06.647	Network	4412 bytes of account info loaded
EL	0	07:16:06.647	Network	1478 bytes of tester parameters loaded
OI	0	07:16:06.647	Network	708 bytes of input parameters loaded
GO	0	07:16:06.647	Network	402 bytes of symbols list loaded (68 symbols)
GJ	0	07:16:06.648	Tester	expert file added: Experts\Advisors\1.ex5. 172075 bytes loaded
CK	0	07:16:06.649	Tester	7492 Mb available, 93 blocks set for ticks generating
PN	0	07:16:06.649	Tester	initial deposit 10000.00 USD, leverage 1:100
CK	0	07:16:06.650	Tester	successfully initialized
FQ	0	07:16:06.650	Network	169 Kb of total initialization data received
FD	0	07:16:06.650	Tester	AMD Ryzen 7 3700X 8-Core, 11998 MB
QL	0	07:16:06.656	Symbols	GBPUSD: symbol to be synchronized
LH	0	07:16:06.656	Symbols	GBPUSD: symbol synchronized, 3720 bytes of symbol info received
HL	0	07:16:06.657	History	GBPUSD: load 27 bytes of history data to synchronize in 0:00:00.000
DS	0	07:16:06.657	History	GBPUSD: history synchronized from 2020.01.01 to 2022.06.28
CK	0	07:16:06.721	History	GBPUSD,Daily: history cache allocated for 700 bars and contains 312 bars from 2020.01.01 00:00 to 2020.12.31 00:00
LI	0	07:16:06.721	History	GBPUSD,Daily: history begins from 2020.01.01 00:00
RH	0	07:16:06.722	Tester	GBPUSD,Daily (DecodeGlobal-Server): every tick generating
GE	0	07:16:08.316	History	GBPUSD,Monthly: history cache allocated for 32 bars and contains 12 bars from 2020.01.01 00:00 to 2020.12.01 00:00
OJ	0	07:16:08.316	History	GBPUSD,Monthly: 1 bar from 2021.01.01 00:00 added
DS	0	07:16:08.316	History	GBPUSD,Monthly: history begins from 2020.01.01 00:00
NI	2	07:16:08.392	History	: history cache build error
CP	2	07:16:08.472	History	: history cache build error
.....snip

//=============================================================================================================
// D E K L A R A T I O N   P R I C E
//=============================================================================================================

Pr_Hi=iHigh (NULL,NULL,i);
Pr_Op=iOpen (NULL,NULL,i);
Pr_Cl=iClose(NULL,NULL,i);
Pr_Lo=iLow  (NULL,NULL,i);

Pr_ME = ( Pr_Hi + Pr_Lo ) / 2.0;

Pr_TY = ( Pr_Hi + Pr_Cl + Pr_Lo ) / 3.0;

Pr_WE = ( Pr_Hi + Pr_Cl + Pr_Cl + Pr_Lo ) / 4.0;

// Zuweisung Price
if(Price==PRICE_HIGH    )PR=Pr_Hi;
if(Price==PRICE_CLOSE   )PR=Pr_Cl;
if(Price==PRICE_OPEN    )PR=Pr_Op;
if(Price==PRICE_LOW     )PR=Pr_Lo;
if(Price==PRICE_MEDIAN  )PR=Pr_ME;
if(Price==PRICE_TYPICAL )PR=Pr_TY;
if(Price==PRICE_WEIGHTED)PR=Pr_WE;

//=============================================================================================================
// D E K L A R A T I O N   M A
//=============================================================================================================

MA=iMA(Symbol(),Period(),MA_Period,MA_ChartShift,MA_Method,MA_Price,i);

//=============================================================================================================
// H P   D I V
//=============================================================================================================

HPdPR = ODIV(100.0// Soll dividiert werden
             ,
             PR// Wert, durch den dividiert werden soll
            );

HPdMA = ODIV(100.0// Soll dividiert werden
             ,
             MA// Wert, durch den dividiert werden soll
            );

//=============================================================================================================
// ?
//=============================================================================================================


HPPRdHPMA = ODIV(HPdPR// Soll dividiert werden
                 ,
                 HPdMA// Wert, durch den dividiert werden soll
                );


HPMAdHPPR = ODIV(HPdMA// Soll dividiert werden
                 ,
                 HPdPR// Wert, durch den dividiert werden soll
                );
                 

//=============================================================================================================
// ?
//=============================================================================================================




//=============================================================================================================
// B U F F E R
//=============================================================================================================


BUF_HPdPdM_fa[i] = OMUL(HPPRdHPMA// Soll multipliziert werden
                        ,
                        Perc_Fast// Wert, der kleiner als 1.0 ist
                       );


//-------------------------------------------------------------------------------------------------------------


BUF_HPdPdM_sl[i] = OMUL(HPMAdHPPR// Soll multipliziert werden
                        ,
                        Perc_Slow//
                       );

//=============================================================================================================
// O P Z   D I V
//=============================================================================================================

double ODIV(

  double ODIV_ToDiv// Soll dividiert werden
  ,
  double ODIV_Div// Wert, der kleiner als 1.0 ist
  
){
  
  double
  ODIV_DIV_mt
  ,
  ODIV_DivEd
  ,
  ODIV_DivEd_t;
  
  int ODIV_mt;
  

  if( ODIV_Div <= -1.0 || ODIV_Div >= 1.0 )ODIV_DivEd = ODIV_ToDiv / ODIV_Div;


  if( ODIV_Div > -1.0 && ODIV_Div < 1.0 ){
  
    ODIV_mt=0;
    while( ODIV_Div > -1.0 && ODIV_Div < 1.0 ){
  
      ODIV_DIV_mt = ODIV_Div * 10.0;
    
      ODIV_Div = ODIV_DIV_mt;
    
      ODIV_mt++;}
  
  
    ODIV_DivEd = ODIV_ToDiv / ODIV_DIV_mt;


    for( ODIV_mt ; ODIV_mt > 1 ; ODIV_mt-- ){
  
      ODIV_DivEd_t = ODIV_DivEd * 10.0;
    
      ODIV_DivEd = ODIV_DivEd_t;}
  
  }

  return ODIV_DivEd;

}

//=============================================================================================================
// O P Z   M U L
//=============================================================================================================

double OMUL(

  double OMUL_ToMul// Soll multipliziert werden
  ,  
  double OMUL_Mul// Wert, der kleiner als 1.0 ist

){
  
  double
  OMUL_MUL_mt
  ,
  OMUL_MulEd
  ,
  OMUL_MulEd_t;
  
  int OMUL_mt;


  if( OMUL_ToMul <= -1.0 || OMUL_ToMul >= 1.0 || OMUL_Mul <= -1.0 || OMUL_Mul >= 1.0 )OMUL_MulEd = OMUL_ToMul * OMUL_Mul;
  
  
  if( OMUL_ToMul > -1.0 && OMUL_ToMul < 1.0 && OMUL_Mul > -1.0 && OMUL_Mul < 1.0 ){

    OMUL_mt=0;
    while( OMUL_Mul > -1.0 && OMUL_Mul < 1.0 ){
  
      OMUL_MUL_mt = OMUL_Mul * 10.0;
    
      OMUL_Mul = OMUL_MUL_mt;
    
      OMUL_mt++;}
  
  
    OMUL_MulEd = OMUL_ToMul * OMUL_MUL_mt;


    for( OMUL_mt ; OMUL_mt > 1 ; OMUL_mt-- ){
  
      OMUL_MulEd_t = OMUL_MulEd / 10.0;
    
      OMUL_MulEd = OMUL_MulEd_t;}
  
  }

   return OMUL_MulEd;

 }

if( PR > -1.0 && PR <  1.0 ){

  PR_mt=PR;
  mt=-1;
  while( PR_mt > -1.0 && PR_mt < 1.0 ){
  
    PR_t = PR_mt * 10.0;
    
    PR_mt = PR_t;
    
    mt++;}

OPZ_PR = 1.0 / PR_mt;

double roundLotdown(double lots)
  {
   double startLots = lots;
   double lotstep = NormalizeDouble(SymbolInfoDouble(_Symbol,SYMBOL_VOLUME_STEP),2);
   lots = NormalizeDouble(lots,2);

   double rest = (lots - NormalizeDouble(lots/lotstep,2)) * lotstep;
   rest = NormalizeDouble(rest,2);
   if(rest != 0)
     {
      for(double i = 0.01; i <= lotstep; i += 0.01)
        {
         lots = NormalizeDouble(lots - 0.01,2);
         rest = (lots - NormalizeDouble(lots/lotstep,2)) * lotstep;
         rest = NormalizeDouble(rest,2);
         if(rest == 0)
            break;
        }
     }
     
   return lots;
  }

input bool ea_on=true;
// Live-Handel erlaubt
//  Mehr als 20 geschlossene Trades=> berechne EMA(Kontostand);
// Wenn Kontostand der abgeschlossenen Trades kleiner EMA(Kontostand)
ea_on=false;
// Sobald Kontostand abgeschlossene Trade größer EMA(Kontostand)
ea_on=true;