%**********************************************************
%**                   pokusy s fraktály                  **
%**                   Hénonùv  atraktor                  **
%** Leos Marsalek (c) 2002-2003 Leos.Marsalek@tiscali.cz **
%**********************************************************
tic;
x(1)=0.025;                 
%pocatecni podminky
y(1)=0.025;
for t=2:2999                   %cyklus vypoctu
   
x(t)=y(t-1)+1-1.4*(x(t-1)^2);
   y(t)=0.3*x(t-1);
end
plot(x,y,'.');                   %vykresleni grafu
toc;