function spirala3D
while(1)
k=input('Zadej konec intervalu: ');
if(k<0)||(k>200)
    disp('Chyba v zadani');
    continue;
else
    disp('zadani OK');
    break;
end %konec if
end %konec while
t=0:0.1:k;
x=t.*sin(t);
y=t.*cos(t);
z=t;
plot3(x,y,z,'r--o')
xlabel('x')
ylabel('y')
zlabel('z')
title('Spirala')
end %konec funkce

