>	with(plots):

Warning, the name changecoords has been redefined

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

>	line10:=spacecurve([1+t,1,7-2*t-t^2,t=-1.2..1.2],thickness=2,color=blue,axes=normal,orientation=[-80,45]):

>	vector7:=arrow(<1,1,0>,<-1,0,0>,width=[0.06,relative],color=cyan,thickness=3):

>	vector9:=arrow(<1,1,7>,<-1,0,0>,width=[0.06,relative],color=cyan,thickness=3):

>	vector8:=arrow(<1,1,7>,<-1,0,2>,width=[0.026,relative],color=cyan):

>	vector13:=arrow(<0,1,7>,<0,0,2>,width=[0.026,relative],color=cyan):

>	line7:=spacecurve([1-t,1+t,7,t=-1..1],thickness=2,color=blue,axes=normal,orientation=[-80,45]):

>	line8:=spacecurve([1-t,1+t,7-2*t^2,t=-1..1],thickness=2,color=blue,axes=normal,orientation=[-80,45]):

>	vector5:=arrow(<1,1,0>,<-0.7071,0.7071,0>,width=[0.06,relative],color=brown,thickness=3):

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

>	vector6:=arrow(<1,1,7>,<-0.7071,0.7071,0>,width=[0.05,relative],color=brown):

>	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]):

>	line6:=spacecurve([1,t,8-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]):

>	line1:=spacecurve([1,1+t,7-2*t,t=-1.3..1.3],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.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):

>	vector3:=arrow(<1,1,0>,<0,1,0>,width=[0.06,relative],color=green,thickness=3):

>	vector12:=arrow(<1,1,7>,<0,1,0>,width=[0.06,relative],color=green,thickness=3):

>	vector4:=arrow(<1,1,7>,<0,1,-2>,width=[0.026,relative],color=green):

>	vector15:=arrow(<1,2,7>,<0,0,-2>,width=[0.026,relative],color=green):

>	display(vector1,vector2,vector3,vector4,vector5,vector6,vector7,vector8,vector9,vector10,vector11,vector12,vector13,vector14,vector15,surface1,line1,line2,line3,line4,line5,line6,line7,line8,line9,line10);

>	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(vector1,vector2,vector3,vector4,vector5,vector6,vector7,vector8,vector9,vector10,vector11,vector12,vector13,vector14,vector15,surface1,line1,line2,line3,line4,line5,line6,line7,line8,line9,line10);

>	line9:=spacecurve([1+t,1,7-2*t,t=-1..1],thickness=2,color=blue,axes=normal,orientation=[-80,45],view=[-1..3,-1..3,4..9]):

>	display(vector1,vector2,vector3,vector4,vector5,vector6,vector7,vector8,vector9,vector10,vector11,vector12,vector13,vector14,vector15,line1,line2,line3,line4,line5,line6,line7,line8,line9,line10);

>