Get a smooth line in Spherical 3D plot?

Questions
,
1

Can any one please help me to get a smooth line in Spherical 3D plot.
I tried to get the minima of the Log of a function which is as a ring in the 3D plot, but my problem is how to make this ring smoother.

I have attached my code.

Thanks.

2

c = SphericalPlot3D[1, {u, 0, Pi}, {v, 0.0, 2.0 Pi}, Mesh → None,
TextureCoordinateFunction → ({#5, 3 - #4} &),
PlotStyle → Directive[Texture[p]], Lighting → “Neutral”,
SphericalRegion → False,
PlotLabel → Row[{"Energy = “, Energy , " eV”}],
ViewPoint → {-12.0, -2.0 , -11}, ViewRange → All,
ViewVector → Automatic, ViewVertical → {1, -20, 0.5},
PlotLegends → Automatic,
BaseStyle → {FontWeight → Bold, FontSize → 13}, PlotPoints → 50]

SP3D.jpg
SP3D.jpg581×517 37.5 KB

3

Thank you so much Mr.Alexander!

If you can please I need you to explain something to me in this code. Actually, in this code I followed the instructions, but I noticed there are some numbers in degree in the loop that is using to create the function {diffcrosslog}. I know that in Mathematica the angles should be in radian. Do you think that is for the interpolation function?