Wolfram mathematica 使用带有MaxValue和或PlotRegion的布尔

Wolfram mathematica 使用带有MaxValue和或PlotRegion的布尔,wolfram-mathematica,Wolfram Mathematica,为什么这样不行? 我以前跳过过这个,但我不记得我是怎么做到的,我也从来没有弄清楚为什么这种类型的输入不起作用。是时候了解它了 对于看不到图片的人: RegionPlot3D[ x^2 + 2 y^2 - 2 z^2 = 1 && -1 <= z <= 1, {x, -5, 5}, {y, -5, 5}, {z, -1, 1}] Set::write: "Tag Plus in -2.+25.+50. is Protected" RegionPlot3

为什么这样不行? 我以前跳过过这个,但我不记得我是怎么做到的,我也从来没有弄清楚为什么这种类型的输入不起作用。是时候了解它了

对于看不到图片的人:

RegionPlot3D[
 x^2 + 2 y^2 - 2 z^2 = 1 && -1 <= z <= 1, {x, -5, 5}, {y, -5, 
  5}, {z, -1, 1}]    
Set::write: "Tag Plus in -2.+25.+50. is Protected"
RegionPlot3D[
x^2+2y^2-2z^2=1&&1试试这个

RegionPlot3D[x^2 + 2 y^2 - 2 z^2 < 1, 
  {x, -5, 5}, {y, -5, 5}, {z, -1, 1}]

请注意双等号,而不是单等号。

如果z受到其他曲面的限制,您可以这样做:

RegionPlot3D[
 x^2 + 2 y^2 - 2 z^2 < 1 && z < x + 2 y && z^2 < .5, 
 {x, -2, 2}, {y, -2, 2}, {z, -1, 1}, 
 PlotPoints -> 50, MeshFunctions -> {Function[{x, y, z}, z]}, 
 PlotStyle -> Directive[Red, Opacity[0.8]]]  
RegionPlot3D[
x^2+2y^2-2z^2<1&&z50,网格函数->函数[{x,y,z},z]},
打印样式->指令[红色,不透明度[0.8]]

或使用轮廓图:

ContourPlot3D[
 x^2 + 2 y^2 - 2 z^2 == 1,
 {x, -2, 2}, {y, -2, 2}, {z, -1, 1}, 
 RegionFunction -> Function[{x, y, z}, z < x + 2 y && z^2 < .5], 
 PlotPoints -> 50, MeshFunctions -> {Function[{x, y, z}, z]}, 
 ContourStyle -> Directive[Red, Opacity[0.8]]]]
ContourPlot3D[
x^2+2y^2-2z^2==1,
{x,-2,2},{y,-2,2},{z,-1,1},
区域函数->函数[{x,y,z},z50,网格函数->函数[{x,y,z},z]},
轮廓样式->指令[红色,不透明度[0.8]]]

首先,您使用
Set
=
)而不是
Equal
=
)。这就是设置::write:
消息的原因。谢谢。如果z受到其他曲面的限制,比如说一个平面。那我该怎么办呢?(使用CountourPlot3D功能)我不记得该怎么做了。谢谢
ContourPlot3D[
 x^2 + 2 y^2 - 2 z^2 == 1,
 {x, -2, 2}, {y, -2, 2}, {z, -1, 1}, 
 RegionFunction -> Function[{x, y, z}, z < x + 2 y && z^2 < .5], 
 PlotPoints -> 50, MeshFunctions -> {Function[{x, y, z}, z]}, 
 ContourStyle -> Directive[Red, Opacity[0.8]]]]