Group Abstract

Message Boards

WOLFRAM COMMUNITY

5.3K Views

3 Replies

1 Total Like

View groups...

Follow this post

Share this post:

GROUPS:

Disrupted coloring near the wall of RevolutionPlot3D?

KRISHAN SHARMA

Posted 4 years ago

I'm attempting to plot a 3-D figure, and the code is provided below. ClearAll["Global`*"]; \[Sigma] = 3; M = 120; \[Beta] = Sqrt[\[Sigma]^2 + M^2]; ucap[\[Beta]_, r_] := ( 3 \[Beta]^2 ((1 + r \[Beta]^2) BesselI[0, 2 \[Beta]] - (1 + \[Beta]^2) BesselI[0, 2 Sqrt[r] \[Beta]]))/((6 + 9 \[Beta]^2 + 2 \[Beta]^4) BesselI[ 0, 2 \[Beta]] - 6 (1 + \[Beta]^2)^2 Hypergeometric0F1Regularized[2, \[Beta]^2]); RevolutionPlot3D[ ucap[\[Beta], r], {r, 0, 1}, ImageSize -> Large, Axes -> None, Boxed -> False, ColorFunction -> "Rainbow", MeshStyle -> {None, None}, PlotLegends -> Placed[BarLegend[{"Rainbow", {0, N[MaxValue[ucap[\[Beta], r], r]]}}, LabelStyle -> {FontFamily -> "Times New Roman", FontSize -> 35, Black}, LegendMarkerSize -> {900, 40}], Above] ] The plot seems OK at M=6, 20, but when I increase M>30, it begins to display some strange coloring near the figure's wall. This might be due to a lower number of points taken near the wall by Mathematica or an abrupt decrease in the value of the function, resulting in the bizarre coloring at the 3D plot's wall. What can I do to solve this? I want it to be as smooth as possible.

I'm attempting to plot a 3-D figure, and the code is provided below.

ClearAll["Global`*"];
\[Sigma] = 3;
M = 120;
\[Beta] = Sqrt[\[Sigma]^2 + M^2];
ucap[\[Beta]_, r_] := (
  3 \[Beta]^2 ((1 + r \[Beta]^2) BesselI[0, 
       2 \[Beta]] - (1 + \[Beta]^2) BesselI[0, 
       2 Sqrt[r] \[Beta]]))/((6 + 9 \[Beta]^2 + 2 \[Beta]^4) BesselI[
     0, 2 \[Beta]] - 
   6 (1 + \[Beta]^2)^2 Hypergeometric0F1Regularized[2, \[Beta]^2]);

RevolutionPlot3D[
 ucap[\[Beta], r], {r, 0, 1},
 ImageSize -> Large,
 Axes -> None,
 Boxed -> False,
 ColorFunction -> "Rainbow",
 MeshStyle -> {None, None},
 PlotLegends -> 
  Placed[BarLegend[{"Rainbow", {0, N[MaxValue[ucap[\[Beta], r], r]]}},
     LabelStyle -> {FontFamily -> "Times New Roman", FontSize -> 35, 
      Black}, LegendMarkerSize -> {900, 40}], Above]

 ]

enter image description here

The plot seems OK at M=6, 20, but when I increase M>30, it begins to display some strange coloring near the figure's wall. This might be due to a lower number of points taken near the wall by Mathematica or an abrupt decrease in the value of the function, resulting in the bizarre coloring at the 3D plot's wall. What can I do to solve this? I want it to be as smooth as possible.

POSTED BY: KRISHAN SHARMA