Skip to main content
added 64 characters in body
Source Link

The real contour plot is taken from a textbook (Quantum Optics by Girish Agarwal, Cambridge U Press, 2013, page 80page 80):

The real contour plot is taken from a textbook (Quantum Optics by Girish Agarwal, Cambridge U Press, 2013, page 80):

The real contour plot is taken from a textbook (Quantum Optics by Girish Agarwal, Cambridge U Press, 2013, page 80):

added 360 characters in body
Source Link
Saeid
  • 801
  • 4
  • 13

Adding Contours -> Range[-0.35, 0.35, 0.1] + 0.03 to my code generated the following plot, which is better, but another problem happened: the colors in the legend are not as they should be. For example, we have the same color for (-0.12,-0.02) and for (0.28,0.38)

enter image description here

Adding Contours -> Range[-0.35, 0.35, 0.1] + 0.03 to my code generated the following plot, which is better, but another problem happened: the colors in the legend are not as they should be. For example, we have the same color for (-0.12,-0.02) and for (0.28,0.38)

enter image description here

added 714 characters in body
Source Link
Saeid
  • 801
  • 4
  • 13

The real contour plot is taken from a textbook (Quantum Optics by Girish Agarwal, Cambridge U Press, 2013, page 80):

enter image description here

To emphasize that it is not a problem for a special case, here I have added another code and figure. You can see the "ugly" ovals are definitely incorrect.

ContourPlot[
1/((2 + 2/E^16) \[Pi])
2 (E^(((2 + 2 I) - x - I y) ((-2 + 2 I) + x - I y)) + 
E^(((-2 - 2 I) - x - I y) ((2 - 2 I) + x - I y)) + 
E^((-x - I y) (x - I y)) Cos[4 Im[(2 - 2 I) (x + I y)]]), {x, -4, 
4}, {y, -4, 4}, PlotLegends -> Automatic, 
ColorFunction -> "Rainbow", FrameLabel -> {"x", "y"}, Frame ->  True,
FrameStyle -> Directive[Black, 18], PlotPoints -> 180, 
PlotRange -> All, PlotRangePadding -> 0]

enter image description here

The real contour plot is taken from a textbook:

enter image description here

The real contour plot is taken from a textbook (Quantum Optics by Girish Agarwal, Cambridge U Press, 2013, page 80):

enter image description here

To emphasize that it is not a problem for a special case, here I have added another code and figure. You can see the "ugly" ovals are definitely incorrect.

ContourPlot[
1/((2 + 2/E^16) \[Pi])
2 (E^(((2 + 2 I) - x - I y) ((-2 + 2 I) + x - I y)) + 
E^(((-2 - 2 I) - x - I y) ((2 - 2 I) + x - I y)) + 
E^((-x - I y) (x - I y)) Cos[4 Im[(2 - 2 I) (x + I y)]]), {x, -4, 
4}, {y, -4, 4}, PlotLegends -> Automatic, 
ColorFunction -> "Rainbow", FrameLabel -> {"x", "y"}, Frame ->  True,
FrameStyle -> Directive[Black, 18], PlotPoints -> 180, 
PlotRange -> All, PlotRangePadding -> 0]

enter image description here

added 138 characters in body
Source Link
Saeid
  • 801
  • 4
  • 13
Loading
Source Link
Saeid
  • 801
  • 4
  • 13
Loading