/*[[
	Name := wlxFractals
	Author := Copyright © 2004 A.Veliks
	Notes := Общий индикатор фраткалов BW
	Separate Window := No
	First Color := Blue
	First Draw Type := Symbol
	First Symbol := 217
	Use Second Data := Yes
	Second Color := Red
	Second Draw Type := Symbol
	Second Symbol := 218
]]*/

Inputs : nAccountedBars(300), nAnalize(10), nSignBars(2);
Variable : CurrentBar(0), price(0), counter(0),fdwn(0), fup(0);
Var: Cont(True);
 
SetLoopCount(0);

For CurrentBar = nSignBars+1 to nAccountedBars Begin
//фракталы вверх 
    price = High[CurrentBar];
    cont=true;
    for Counter=nSignBars downto 1 Begin
     if High[CurrentBar-Counter]>=Price then begin 
       Cont=false;
       Break;
     end;  
    end;
    
    if cont then Begin
        fup=0;
        for Counter=1 to nAnalize 
        Begin
          if High[CurrentBar+Counter]>Price then Break;          
          if High[CurrentBar+Counter]<Price then 
          Begin
            fup=fup+1;
            if fup=nSignBars then 
            Begin
              SetIndexValue(CurrentBar, price);
              Break;
            end;
          end;
        end;
    end;
    
    
//Фракталы вниз	
    price = Low[CurrentBar];
    cont=true;
    
    for Counter=nSignBars downto 1 Begin
     if Low[CurrentBar-Counter]<=Price then begin 
       Cont=false;
       Break;
     end;  
    end;
   
    if cont then Begin   
        fdwn=0;
        for Counter=1 to nAnalize 
        Begin
          if Low[CurrentBar+Counter]<Price then Break;          
          if Low[CurrentBar+Counter]>Price then 
          Begin
            fdwn=fdwn+1;
            if fdwn=nSignBars then 
            Begin
              SetIndexValue2(CurrentBar, Price);
              Break;
            end;
          end;
        end;
    end;
    
	
End;