1
$\begingroup$

i tried to plot a picture of a nat comm and found some bugs. how to eliminate the extra lines in the figure i post in the following?

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

enter image description here

$\endgroup$
3
  • 1
    $\begingroup$ As workaround add option RegionFunction -> Function[{x, y, z}, (x + y)^2 > .01] $\endgroup$ Jan 4 at 7:40
  • 2
    $\begingroup$ try also large values for PlotPoints and MaxRecursion (say, PlotPoints -> 100 and MaxRecursion ->7). $\endgroup$
    – kglr
    Jan 4 at 7:53
  • 1
    $\begingroup$ Just adding MaxRecursion -> 5 work for me. $\endgroup$
    – Bob Hanlon
    Jan 4 at 7:58

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Browse other questions tagged or ask your own question.