Изобразяване на области в (ℝ^3)

Пример 1

a=RegionPlot3D[x+y+z≤1&& -x+y+z<=1&& x-y+z<=1&& -x-y+z<=1,{x,-1,1},{y,-1,1},{z,0,1},Axes->True,PlotStyle->Opacity[0.7],Mesh->3]

Пример 2

a=RegionPlot3D[(x^2)+(y^2)+(z^2)<=2&&x+y+z≤1,{x,-2,2},{y,-2,2},{z,-2,2},Axes->True,Mesh->None,PlotStyle->Opacity[0.7]]
b=ContourPlot3D[{(x^2)+(y^2)+(z^2)==2,x+y+z==1},{x,-2,2},{y,-2,2},{z,-2,2},Axes->True,Mesh->None]

Пример 3

a=RegionPlot3D[(x^2)+(y^2)+(z^2)≥ 1&&(((x-(1/2)))^2)+(y^2)≤(1/4),{x,-2,2},{y,-2,2},{z,-2,2},Axes->True,PlotStyle->Directive[Specularity[White, 10],Opacity[0.65],Purple],PlotPoints->20,AxesLabel->Automatic,AxesEdge->{{-1,0},{1,0},{-1,0}},Mesh->False]
b=ContourPlot3D[{(x^2)+(y^2)+(z^2)== 1,(((x-(1/2)))^2)+(y^2)==(1/4)},{x,-2,2},{y,-2,2},{z,-2,2},Axes->True,Mesh->None]

Пример 4

a=RegionPlot3D[(x^2)-(y^2)>=  ((((x^2)+(y^2)))^2) || -(x^2)+(y^2)>= ((((x^2)+(y^2)))^2),{x,-2,2},{y,-2,2},{z,-2,2},Axes->True,ColorFunction->"Rainbow"]
b=ContourPlot3D[{(x^2)-(y^2)== ((((x^2)+(y^2)))^2) , -(x^2)+(y^2)== ((((x^2)+(y^2)))^2)},{x,-2,2},{y,-2,2},{z,-2,2},Axes->True]

a=RegionPlot3D[  ((((x^2)+(9/4)(y^2)+(z^2)-1))^3)-(x^2)(z^3)-(9/80)(y^2)(z^3)≤0,{x,-2,2},{y,-2,2},{z,-2,2},Axes->True,ColorFunction->"Rainbow"]
b=ContourPlot3D[{((((x^2)+(9/4)(y^2)+(z^2)-1))^3)-(x^2)(z^3)-(9/80)(y^2)(z^3)==(0^2)},{x,-2,2},{y,-2,2},{z,-2,2},Axes->True]