Lagrange.mw

>

> sph:=sphere([0,0,0],1,color=blue):

>

> sur:=implicitplot3d(3*x+2*y^2+x*z=-4, x=-3..3,y=-3..3,z=-3..8):

> display(sur,sph);

[Plot]

> sur:=implicitplot3d(3*x+2*y^2+x*z=-3.0, x=-3..3,y=-3..3,z=-3..8):

> display(sur,sph);

[Plot]

> sur:=implicitplot3d(3*x+2*y^2+x*z=-3.0, x=-3..3,y=-3..3,z=-3..8):

> display(sur,sph);

[Plot]

> sur:=implicitplot3d(3*x+2*y^2+x*z=-3.15, x=-3..3,y=-3..3,z=-3..8,numpoints=10000):

> display(sur,sph);

[Plot]

> sur:=implicitplot3d(3*x+2*y^2+x*z=-2.0, x=-3..3,y=-3..3,z=-3..8):

> display(sur,sph);

[Plot]

> sur:=implicitplot3d(3*x+2*y^2+x*z=0.0, x=-3..3,y=-3..3,z=-3..8):

> display(sur,sph);

[Plot]

> sur:=implicitplot3d(3*x+2*y^2+x*z=1.0, x=-3..3,y=-3..3,z=-3..8):

> display(sur,sph);

[Plot]

> sur:=implicitplot3d(3*x+2*y^2+x*z=2.0, x=-3..3,y=-3..3,z=-3..8):

> display(sur,sph);

[Plot]

> sur:=implicitplot3d(3*x+2*y^2+x*z=3.0, x=-3..3,y=-3..3,z=-3..8):

> display(sur,sph);

[Plot]

> sur:=implicitplot3d(3*x+2*y^2+x*z=3.1, x=-3..3,y=-3..3,z=-3..8,numpoints=10000):

> display(sur,sph);

[Plot]

> sur:=implicitplot3d(3*x+2*y^2+x*z=3.2, x=-3..3,y=-3..3,z=-3..8,numpoints=10000):

> display(sur,sph);

[Plot]

> sur:=implicitplot3d(3*x+2*y^2+x*z=4.0, x=-3..3,y=-3..3,z=-3..8):

> display(sur,sph);

[Plot]

>