with(plots); -1 

`:=`(A1, implicitplot3d(`+`(x, 
`*`(`^`(y, 2)), `*`(2, `*`(z))) = 4, x = 0 .. 2, y = 0 .. 2, z = 0 .. 2,
 style = surfacecontour, axes = boxed)) 

PLOT3D(ISOSURFACE(Array(1..10, 1..10, 1..10, 1..4, {(1, 1, 1, 1) = 
.0, (1, 1, 1, 2) = .0, (1, 1, 1, 3) = .0, (1, 1, 1, 4) = .0, (1, 1, 2, 
1) = .0, (1, 1, 2, 2) = .0, (1, 1, 2, 3) = .0, (1, 1, 2, 4) = ... (1)
 

`:=`(A2, implicitplot3d(x = 1, x
 = 0 .. 2, y = 0 .. 2, z = 0 .. 2, style = surface, color = grey, axes =
 boxed)) 

PLOT3D(ISOSURFACE(Array(1..10, 1..10, 1..10, 1..4, {(1, 1, 1, 1) = 
.0, (1, 1, 1, 2) = .0, (1, 1, 1, 3) = .0, (1, 1, 1, 4) = .0, (1, 1, 2, 
1) = .0, (1, 1, 2, 2) = .0, (1, 1, 2, 3) = .0, (1, 1, 2, 4) = ... (2)
 

`:=`(A3, spacecurve([1, y, 
`*`(`+`(3, `-`(`*`(`^`(y, 2)))), `/`(1, 2))], y = 0 .. sqrt(3), color = 
red, thickness = 3)) 

PLOT3D(CURVES([[1., 0., 1.500000000], [1., 0.3534797567e-1, 
1.499375260], [1., 0.7069595134e-1, 1.497501041], [1., .1060439270, 
1.494377343], [1., .1413919027, 1.490004165], [1., .1767398784, 
1.484381... (3)
 

display(A1, display(A1, A2), 
display(A1, A2, A3), insequence = true) 

Plot
 

with(VectorCalculus); -1 

`:=`(A4, 
PlotVector(RootedVector(root = `<,>`(1, 1, 1), `<,>`(1, 2, 
2)), color = black)) 

PLOT3D(POLYGONS([[1.022360680, 1.044721360, .9440983006], 
[1.822360680, 2.644721360, 2.544098301], [1.857520003, 2.616465423, 
2.554774575], [1.057520003, 1.016465423, .9547745752]], [[1.057520003, 
1.0... (4)
 

`:=`(A5, 
PlotVector(RootedVector(root = `<,>`(1, 1, 1), `<,>`(1, 0, 
0)), color = blue)) 

PLOT3D(POLYGONS([[1., 1., .9750000000], [1.800000000, .9999999998, 
.9749999998], [1.800000000, .9853053685, .9797745750], [1., .9853053687,
 .9797745751]], [[1., .9853053687, .9797745751], [1.800000000... (5)
 

`:=`(A6, 
PlotVector(RootedVector(root = `<,>`(1, 1, 1), `<,>`(0, 2, 
VectorCalculus:-`-`(2))), color = yellow)) 

PLOT3D(POLYGONS([[1., .9500000000, .9500000000], [1., 2.550000000, 
-.650000000], [1.041562694, 2.559549150, -.640450850], [1.041562694, 
.9595491503, .9595491503]], [[1.041562694, .9595491503, .9595491... (6)
 

display(A1, display(A1, A4), 
display(A2, A5), display(A1, A2, A3, A4, A5, A6), insequence = true, 
scaling = constrained)
display(A1, display(A1, A4), display(A2, A5), display(A1, A2, A3, 
A4, A5, A6), insequence = true, scaling = constrained)
 

Plot