Clear["Global`*"]
Kplus = wp/Sqrt[1 + wp/omega];
Kminus = wp/Sqrt[1 - wp/omega];
Plot3D[{Kplus, -Kplus, Kminus, -Kminus}, {wp, 0, 2}, {omega, -2, 2},
PlotRange -> {-4, 4}, BoxRatios -> {1, 1, 1}, BoundaryStyle -> None,
ClippingStyle -> None, PlotPoints -> 30, AxesLabel -> Automatic]

我想得到下面的图，但是总会有一些跳变点，这些跳变点应该是由于分母等于0导致的，但是我不知道怎么debug

调下exclusion

PlotPoints 设置不够大，100往上，电脑配置可以的话设置到200也行

每个表达式单独加If
If[FunctionDomain[
#, {wp, omega}], #
] & /@ {Kplus, -Kplus, Kminus, -Kminus} // Evaluate
或排除奇点
Exclusions -> "Singularities",MaxRecursion -> 6