function klotoida(a)
%klotoida - kresli klotoidu (Cornuovu spirálu)
%a..parametr krivosti, implicitne 1

if nargin<1
    a=1;    %implicitni hodnota vstupu
end

t=.1:.05:7; %hodnoty parametru, pro které se bude vyhodnocovat

x=t;y=t;    %priprava

f1=@(x) cos(a*x.^2/2);
f2=@(x) sin(a*x.^2/2);

for i=1:length(t)   %numericky spocteme pozadovane integraly
    x(i)=integ_fce(f1,0,t(i),100);
    y(i)=integ_fce(f2,0,t(i),100);
end
x=[-x(end:-1:1) 0 x];   %pridame i zaporne otoceny vektor a nulu
y=[-y(end:-1:1) 0 y]; 
plot(x,y,'k')