function evolventa
% evolventa kružnice
% Jako každá evolventa køivky vznikne tak, že poèínaje poèáteèním bodem
% nanášíme na teènu délku oblouku mezi poèáteèním bodem a bodem dotyku teèny s køivkou.
% (Evolventu kružnice tedy vytváøí konec napjaté niti odmotávané z kruhové cívky.)
t=[0:0.1:8*pi];            % t je z intervalu od 0 do 8*pi
x=(t.*sin(t)+cos(t));   % parametrické rovnice evolventy kružnice:
y=(sin(t)-t.*cos(t));   % x=a*(t.*sin(t)+cos(t)); y=a*(sin(t)-t.*cos(t));
                        % zde a=1, t je z intervalu od 0 do 8*pi
                    
plot(x,y,'k','LineWidth',3) % vykreslení dvourozmìrného grafu
% zvolena barva (k èerná) a tlouš�ka èáry ('LineWidth',3)
xlabel('x') % popis osy x
ylabel('y') % popis osy y