function sroubovice(krok)

% volani: sroubovice (0.1)

if krok<=0
    error('Krok musi byt cislo z intervalu (0,1)!')
end

if krok>=1
    error('Krok musi byt cislo z intervalu (0,1)!')
end

u=0:krok:6*pi;
v=0:krok:1;

[u,v]=meshgrid(u,v);

x=2*(1-v).*cos(u);
y=2*(1-v).*sin(u);
z=u+v;

surf(y,z,x)
view(30,20);
axis equal

end
