Some Space Curves

Defined Parametrically (vector valued functions)

>	with(plots):

Warning, the name changecoords has been redefined

11.1 #33

>	spacecurve([2*cos(t),2*sin(t),t,t=0..4*Pi],thickness=2,color=blue,axes=normal,labels=[x,y,z]);

>	spacecurve([2*cos(t),2*sin(t),t,t=0..4*Pi],thickness=2,color=blue,axes=normal,orientation=[40,75],labels=[x,y,z]);

>	curve1:=spacecurve([2*cos(t),2*sin(t),t,t=0..4*Pi],thickness=2,color=blue,axes=boxed,labels=[x,y,z]):

>	display(curve1);

11.1 #35

>	spacecurve([2*sin(t),2*cos(t),exp(-t),t=0..4*Pi],thickness=2,color=blue,axes=normal,labels=[x,y,z]);

>	spacecurve([2*sin(t),2*cos(t),exp(-t),t=0..6*Pi],thickness=2,color=red,axes=normal,labels=[x,y,z]);

>	spacecurve([2*sin(t),2*cos(t),exp(-t),t=0..6*Pi],thickness=2,color=red,axes=normal,labels=[x,y,z],numpoints=100);

>	spacecurve([2*sin(t),2*cos(t),exp(-t),t=0..6*Pi],thickness=3,color=red,axes=normal,labels=[x,y,z],numpoints=100);

11.1 #35 variation

>	spacecurve([2*sin(t),2*cos(t),exp(t),t=0..4*Pi],thickness=2,color=blue,axes=normal,labels=[x,y,z]);

11.1 #38

>	spacecurve([cos(t)+sin(t),sin(t)-t*cos(t),t,t=0..4*Pi],thickness=2,color=blue,axes=normal,labels=[x,y,z]);

11.1 #42

>	spacecurve([-sqrt(2)*sin(t),2*cos(t),sqrt(2)*sin(t),t=0..2*Pi],thickness=2,color=blue,axes=normal,labels=[x,y,z],scaling=constrained);

A Pair Of Curves

>	curve2:=spacecurve([-sqrt(2)*sin(t),2*cos(t),sqrt(2)*sin(t),t=0..2*Pi],thickness=2,color=blue,axes=normal,labels=[x,y,z],scaling=constrained):

>	curve3:=spacecurve([-sqrt(2)*sin(t),2*cos(t),0,t=0..2*Pi],thickness=2,color=red,axes=normal,labels=[x,y,z],scaling=constrained):

>	display(curve2,curve3);

A Curve In The Plane

>	plot([10*sin(t),t^2,t=0..2*Pi],thickness=2,labels=[x,y]);

>