使用具有MaxValue和/或PlotRegion的Boole

时间:2011-05-21 13:05:51

标签: 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"

然后只有一个没有表面的空立方体。

no description

2 个答案:

答案 0 :(得分:3)

试试这个

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

或者,如果你只是想要表面

ContourPlot3D[x^2 + 2 y^2 - 2 z^2 == 1, 
  {x, -5, 5}, {y, -5, 5}, {z, -1, 1}]

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

答案 1 :(得分:3)

如果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]]]  

enter image description here

或使用ContourPlot:

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

enter image description here