两个曲面相交部分用不同的作色,凹进去的曲面的颜色显示不出来
mathematica吧
全部回复
仅看楼主
level 10
丙亭昱🌞 楼主
两个曲面相交,只显示相交部分的图象。然后两个曲面用不同的颜色作色,结果凹进去的那个曲面的颜色显示不出来。是我的代码有问题吗?求高人指点!!!
ContourPlot3D[{x^2/2 + y^2 + z^2/2 - 1 == 0,
z == x^2 + Sin[y]}, {x, -2, 2}, {y, -2, 2},
{z, -2, 2}, MeshFunctions -> Function[{x, y, z},
x^2/2 + y^2 + z^2/2 - 1 - (z - x^2 - Sin[y])],
Mesh -> {{0}}, MeshStyle -> {Red, Thick},
AxesLabel -> {"x", "y", "z"},
RegionFunction -> Function[{x, y, z},
x^2/2 + y^2 + z^2/2 - 1 <= 0 &&
z <= x^2 + Sin[y]], ContourStyle ->
{{Opacity[0.6], Yellow}, {Opacity[0.6], Blue}}]
图像显示如下
2018年04月20日 00点04分 1
level 10
丙亭昱🌞 楼主
@cvgmt @草红样
[哈哈]再烦二位,这个是个什么状况?
2018年04月20日 06点04分 2
level 10
丙亭昱🌞 楼主
@cvgmt
[真棒]高,果然如此。多谢啦!怎么删帖啦?
2018年04月20日 15点04分 5
不是我删的,系统删了,奇怪
2018年04月20日 15点04分
@cvgmt 我这里也没系统删帖的提示,不知怎么搞的。幸好看清了仁兄的提示,操作了一下,果然就对了。
2018年04月20日 15点04分
@cvgmt 再次感谢!
2018年04月20日 15点04分
level 3
ImplicitRegion[{x^2/2 + y^2 + z^2/2 - 1 <= 0 &&
z <= x^2 + Sin[y]}, {x, y, z}] //
RegionPlot3D[#, PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}, {-1.5, 1.5}},
PlotPoints -> 100, ColorFunction -> Function[{x, y, z}, Hue[y]],
AspectRatio -> Automatic, Boxed -> False] &
这个方案不知道如何着色。(测试一下能否发帖)
2018年04月22日 04点04分 7
1