David Underhill – P710 #21M, 23M

>  with(plots):

Warning, the name changecoords has been redefined

 

>  spacecurve( [sin(t), cos(t), t^2], t=-2*Pi..2*Pi, color=blue, axes=normal); #P710 #21M

 

 

>  spacecurve( [t^2, (t-1)^.5, (5-t)^.5], t=-2*Pi..2*Pi, color=blue, axes=normal); #P710 #23M