function []=code1;
% Draws a curve in 3-space
% Set up your domain
mint=0; maxt=4*pi; dt=0.1;
t=mint:dt:maxt;
% Assign values to parameters
a=2; k=3;
% Enter the functions for your curve
x=a*cos(t); y=a*sin(t); z=k*t;
% Plot the curve
plot3(x,y,z);
xlabel('x'); ylabel('y'); zlabel('z');
title('Circular Helix');
view(120,20);

% Draw a set of axes
z1=min(min(z)); z2=max(max(z));
line([0,max(x)],[0,0],[0,0],'LineWidth',2,'Color','r');
line([0,0],[0,max(y)],[0,0],'LineWidth',2,'Color','r');
line([0,0],[0,0],[0,z2],'LineWidth',2,'Color','r');
text(max(x)+0.1,0,0,'X','Color','r','FontSize',15);
text(0,max(y)+0.1,0,'Y','Color','r','FontSize',15);
text(0,0,z2+0.1,'Z','Color','r','FontSize',15);

% --------------------------------------------------------