0
$\begingroup$

I'm trying to plot a function r(theta, phi) but having some difficulty. It's also possible that I've misinterpreted the paper I'm pulling these formula from, but I think I'm most likely making some error in Mathematica.

This is the function I'm trying to plot, and the plot that the authors were able to generate:

plot A component of r r(theta,phi)

I'm using the code SphericalPlot3D[-2*ProductLog[(0.003*Sqrt[6])/Abs[(Sqrt[3]*Sin[\[Theta]]*Cos[\[Phi]])/(2*Sqrt[Pi])]], {\[Theta], 0, Pi}, {\[Phi], 0, 2*Pi}]

and end up with this Screenshot

$\endgroup$
1
  • 2
    $\begingroup$ This appears to be the same as the question you asked here: Unknown plotting issue . Better to add to, expand, or clarify your original question than to start a new one. $\endgroup$ – Jagra Feb 9 at 20:21
0
$\begingroup$

Extended comment.

Just suggestions so that you can (maybe) see what you actually plot vs what you want to plot:

Plot3D[-2*
  ProductLog[(0.003*Sqrt[6])/
    Abs[(Sqrt[3]*Sin[\[Theta]]*Cos[\[Phi]])/(2*Sqrt[Pi])]],
 {\[Theta], 0, Pi},
 {\[Phi], 0, 2*Pi}, PlotRange -> All,
 ImageSize -> 500]

enter image description here

or...

SphericalPlot3D[-2*
  ProductLog[(0.003*Sqrt[6])/
    Abs[(Sqrt[3]*Sin[\[Theta]]*Cos[\[Phi]])/(2*Sqrt[Pi])]],
 {\[Theta], 0, Pi},
 {\[Phi], 0, 2*Pi},
 PlotRange -> All,
 ImageSize -> 500]

enter image description here

$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.