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