David Underhill – P733 #15a, 16a

> with(plots):

Warning, the name changecoords has been redefined

> spacecurve( [.5*t^2 + 1, t^2, 1/3*t^3 + 1], t=-10..10, color=blue, axes=normal); #P733 #15a

> spacecurve( [1/6*t^3 + t, 1/12*t^4 +1, -1/4*cos(2*t) + t], t=-2*Pi..2*Pi, color=blue, axes=normal); #P733 #16a