#Header Begins--Do not remove##################################################
#
#	Maple code to plot space curves as in Figures 1.12-14 of book.
#
#	(c) Eugene Fiume, University of Toronto, 1995.
#
#	You are permitted to use this code for noncommercial, educational
#	purposes only.  This header must not be removed from this file.
#
#Header Ends--Do not remove####################################################

with(plots):

x := 5*t^2 -2*t + 1 ;
y := -5*t^2 ;				# experiment with different curves
z := 2*t^2 + 4*t;


spacecurve([x,y,z],t=-1.5..1.5,numpoints=100,axes=FRAME,labels=[X,Y,Z],scaling=CONSTRAINED);

xx := 16*t^3 - 5*t^2 -2*t + 1 ;
yy := 12*t^3 - 8*t^2;
zz := 8*t^3 - 2*t^2;

spacecurve([xx,y,z],t=-3.0..2,numpoints=100,axes=FRAME,labels=[X,Y,Z],scaling=UNCONSTRAINED);

spacecurve([xx,yy,zz],t=-0.5..0.5,numpoints=100,axes=FRAME,labels=[X,Y,Z],scaling=UNCONSTRAINED);