David Underhill – P716 #23

> with(plots):

Warning, the name changecoords has been redefined

> spacecurve( [t, (2^.5)*cos(t), (2^.5)*sin(t)], t=-2*Pi..2*Pi, color=blue, axes=normal); #P716 #23 (curve)

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