stozac_plot3(9)

f(3,5,10);
function []=f(R,h,N)
    full=2*pi*N;
    fi=-2*full:0.1:0;
    x=R*fi/full.*cos(fi);
    y=R*fi/full.*sin(fi);
    z=h*fi/full+h;
    plot3(x,y,z);
end