%**********************************************************
%**                  pokusy s fraktály                   **
%**                     King's dream                     **
%** Leos Marsalek (c) 2002-2003 Leos.Marsalek@tiscali.cz **
%**********************************************************
tic;
x(1)=rand;                 
%pocatecni podminky
y(1)=rand;
for t=2:9999                     %cyklus vypoctu
   
x(t)=(sin(y(t-1)*2.879879)+0.765145*sin(x(t-1)*2.879879));
   y(t)=(sin(x(t-1)*-0.966918)+0.744728*sin(y(t-1)*-0.966918));
end
plot(x,y,'.');                   %vykresleni grafu
toc;