>	with(plots):

Warning, the name changecoords has been redefined

>	with(plots):line5:=spacecurve([1+t,1+t,7-4*t,t=-1.3..1.3],thickness=2,color=blue,axes=normal,orientation=[-80,45]):

>	line4:=spacecurve([t,t,9-2*t^2,t=0.2..1.8],thickness=2,color=blue,axes=normal,orientation=[-80,45]):

>	surface1:=plot3d(9-y^2-x^2,x=0..2,y=0..2,view=0..9,axes=boxed,orientation=[-80,45],labels=[x,y,z]):

>	line2:=spacecurve([t,1,0,t=0..2],thickness=1,color=black,axes=normal,orientation=[-80,45]):

>	line3:=spacecurve([1,1,9*t,t=0..1],thickness=1,color=black,axes=normal,orientation=[-80,45]):

>	vector1:=arrow(<1,1,0>,<0.7071,0.7071,0>,width=[0.06,relative],color=red,thickness=3):

>	vector11:=arrow(<1,1,7>,<0.7071,0.7071,0>,width=[0.06,relative],color=red,thickness=3):

>	vector2:=arrow(<1,1,7>,<0.707107,0.707107,-2.828427>,width=[0.02,relative],color=red):

>	vector14:=arrow(<1.707107,1.707107,7>,<0,0,-2.828427>,width=[0.02,relative],color=red):

>	display(vector1,vector2,vector11,vector14,surface1,line2,line3,line4,line5);

>	surface1:=plot3d(9-y^2-x^2,x=-1..3,y=-1..3,view=4..9,axes=boxed,orientation=[-80,45],labels=[x,y,z]):

>	display(vector2,vector11,vector14,surface1,line3,line4,line5);

>	line4:=spacecurve([t,t,9-2*t^2,t=0.2..1.8],thickness=2,color=blue,axes=normal,orientation=[-80,45],view=[-1..3,-1..3,4..9],labels=[x,y,z]):

>	display(vector2,vector11,vector14,line3,line4,line5);

>