>	with(plots):surface2:=implicitplot3d(x=y,x=0..2,y=0..2,z=0..9,axes=normal,orientation=[-80,45],labels=[x,y,z]):

>	with(plots):line5:=spacecurve([1+t,1+t,7-4*t,t=-0.8..0.8],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=normal,orientation=[-80,45],labels=[x,y,z]):

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

>	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.5,-0.5,0>,width=[0.06,relative],color=red,thickness=3):

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

>	vector3:=arrow(<1,1,7>,<0.707107,0.707107,-3.82843>,width=[0.016,relative],color=green):

>	display(vector1,vector2,vector3,surface1,surface2,line1,line2,line3,line4,line5);

>	display(vector1,vector2,vector3,surface1,line1,line2,line3,line4,line5);

>	display(vector1,vector2,vector3,line1,line2,line3,line4,line5);

>	surface3:=plot3d(9-y^2-x^2,x=-3..3,y=-sqrt(9-x^2)..sqrt(9-x^2),view=0..9,axes=normal,orientation=[-30,45],labels=[x,y,z]):

>	display(vector1,vector2,vector3,surface3,line1,line2,line3,line4,line5);

>	surface2:=implicitplot3d(x=y,x=0..2,y=0..2,z=0..9,axes=normal,orientation=[-30,45],labels=[x,y,z]):

>	display(vector1,vector2,vector3,surface2,surface3,line1,line2,line3,line4,line5);

>