clc clear all close all %%GEOMETRIC PARAMETERS rhomin=1; rhomax=2; turns=7; phi=pi/12*; h=0.5; %%GRAPHICAL PARAMETERS n=400; h=h/(2*pi); %%VECTORS rho=linspace(rhomin,rhomax,n); theta=linspace(0,2*pi*turns,n); [X,Y]=meshgrid(theta,rho); x=Y.*cos(X); y=Y.*sin(X); z=Y.*tan(phi)+h.*X; figure(1) mesh(x,y,z) axis equal angle=360/(2*pi/phi); filename=sprintf(‘min%.2f_max%.2f_turns%.0f_angle%.0f_pitch%.2f.pdf’,rhomin,rhomax,turns,angle,h*2*pi); filename2=sprintf(‘min%.2f max%.2f turns%.0f angle%.0f pitch%.2f.pdf’,rhomin,rhomax,turns,angle,h*2*pi); title (filename2) saveas(gcf,filename) filename=sprintf(‘min%.2f_max%.2f_turns_%.0f_angle%.0f_pitch%.2f.jpg’,rhomin,rhomax,turns,angle,h*2*pi); saveas(gcf,filename)