求助三维空间画图
mathematica吧
全部回复
仅看楼主
level 4
代码如下:ClearAll["Global`*"];
\[Omega] = 1;
figA = RegionPlot3D[(kd + 2*\[Xi]*\[Omega]) > 0 && (kp + \[Omega]^2) >
0, {\[Xi], 0, 1}, {kd, -4, 4}, {kp, -4, 4},
AxesLabel -> Automatic,
PlotStyle -> Directive[Green, Opacity[0.1]],
BoundaryStyle -> Directive[Black, Thick], Mesh -> None,
ViewPoint -> {Pi/4, Pi/2, 0.8}];
figB = RegionPlot3D[-1 <= kd <= 1 && -1 <= kp <= 1 && -1 <= \[Xi] <=
1, {\[Xi], 0, 1}, {kd, -4, 4}, {kp, -4, 4}, Mesh -> None,
PlotPoints -> 50];
Show[figA, figB]
想知道怎么才能把格式改为图1那样(图二是自己画的)
2020年08月20日 02点08分 1
level 4
改了透明度也不太想,想问问大佬怎么样才能做到图1那样
2020年08月20日 02点08分 2
level 4
图一中看不到后边的坐标轴,感觉绿色的立体图不是透明的
2020年08月20日 03点08分 3
吧务
level 15
……那后面的绿色部分到底是用来充当坐标面的还是?如果是坐标面的话,建议看看 PlotTheme 的帮助,里面有好几个具备类似效果的主题。如果非要自己画,那也不该用RegionPlot3D,用 SliceContourPlot3D 或者 SliceDensityPlot3D 简单直接得多,比如:
SliceContourPlot3D[1, "BackPlanes", {x, -2, 2}, {y, -2, 2}, {z, -2, 2}]
2020年09月05日 08点09分 10
解决了。感谢
2020年09月09日 01点09分
1