function cykloida(r,d,tmax)

%cykloida
%volani cykloida(2,2) resp. cykloida(2,2,2*pi)
%r..polomer pohyblive kruznice
%d...vzdalenost bodu od stredu pohyblive kruznice
%tmax...max.hodnota parametru pro vykreslovani(implicitne 6*pi)

if nargin<3
    tmax=6*pi;
end
if nargin<2
   error('Zadejte alespon 2 vstupy!')
end
if r<=0 || d<=0 || tmax<=0
   error('Vsechny vstupy musi byt kladna cela cisla!')
end

syms t
x=r*t-d*sin(t);
y=r-d*cos(t);
ezplot(x,y,[0,tmax]);%graf cykloidy

