%**********************************************************
%**                   pokusy s fraktály                  **
%**         konkrétne s mandelbrotovými mnozinami        **
%** Leos Marsalek (c) 2002-2003 Leos.Marsalek@tiscali.cz **
%**********************************************************
tic;                        %spusteni vnitrnich hodin
obr=0;                      
for x=1:400                 %krokovani a vypocet barvy pixelu
   
x_v=(x-300)/200;         %krok pixelu
    
for y=1:400             
       y_v=(y-200)/200;
       q(1)=(x_v)+(y_v)*i;     
       
for n=2:100          % maximalni pocet interakci
           
q(n)=(q(n-1))^2+q(1);
           
if abs(q(n))>2
           obr(y,x)=n;          
           
break
           end
       end
   end
end
imageview(obr);             %vykresleni obrazku
image(obr);
toc;                        
%zastaveni a vypsani delky vypoctu.