Message Boards Message Boards

Get a smooth line in Spherical 3D plot?

GROUPS:

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.

Attachments:
POSTED BY: Ghady Almufleh
Answer
9 days ago
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]

fig1

POSTED BY: Alexander Trounev
Answer
9 days ago

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?

POSTED BY: Ghady Almufleh
Answer
6 days ago

Group Abstract Group Abstract