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那样(图二是自己画的)