Plotting the space curve of intersection

To get the curve of intersection, let , , and then solve for as a function of . The curve is thus given by:

> intcurve:=[t,t^2,1/2*sqrt(16-t^2-4*t^4)];

We also need to find the and which :

> solve(16-t^2-4*t^4=0,t);

> evalf(%);

The last two solutions are imaginary so we can ignore them. We thus let go from -1.37 to 1.37:

> spacecurve(intcurve,t=-1.37..1.37,thickness=3,axes=frame,labels=['x','y','z'],orientation=[60,55]);

Looking good!

>