Mathematica绘制函数图像—三维“极坐标”( 二 ) _电脑

文章插图

6 画图时，去失落网格线：
SphericalPlot3D[
Re[Sin[\[Theta]] Cos[\[Theta]] Exp[2 I*\[CurlyPhi]]], {\[Theta],
0, \[Pi]}, {\[CurlyPhi], 0, 2 \[Pi]}, Mesh -> None]

文章插图

文章插图

7 红色，不透明，高光：
SphericalPlot3D[
1 + 2 Cos[2 \[Theta]], {\[Theta], 0, Pi}, {\[Phi], 0, 2 Pi},
PlotStyle -> Directive[Red, Opacity[1], Specularity[White, 10]],
Mesh -> None, PlotPoints -> 30, Axes -> False, Boxed -> False]
蓝色，半透明，高光：
SphericalPlot3D[
1 + 2 Cos[2 \[Theta]], {\[Theta], 0, Pi}, {\[Phi], 0, 2 Pi},
PlotStyle -> Directive[Blue, Opacity[0.7], Specularity[White, 6]],
Mesh -> None, PlotPoints -> 30, Axes -> False, Boxed -> False]

文章插图

文章插图

8 绿色的半透明“仙人掌”：
SphericalPlot3D[
Re[Sin[\[Theta]] Cos[\[Theta]] Exp[2 I*\[CurlyPhi]]], {\[Theta], 0,
Pi}, {\[CurlyPhi], 0, 2 Pi},
PlotStyle -> Directive[Green, Opacity[0.5], Specularity[White, 6]],
Mesh -> None, PlotPoints -> 30, Axes -> False, Boxed -> False]

文章插图

文章插图

9 五个楞的“什么瓜”：
SphericalPlot3D[
1 + Sin[5 \[Phi]]/5, {\[Theta], 0, Pi}, {\[Phi], 0, 2 Pi},
PlotStyle -> Directive[Green, Opacity[0.5], Specularity[White, 10]],
Mesh -> None, PlotPoints -> 30, Axes -> False, Boxed -> False]

文章插图

文章插图

10 色彩渐变：
SphericalPlot3D[
Re[Sin[\[Theta]] Cos[\[Theta]] Exp[2 I*\[CurlyPhi]]], {\[Theta], 0,
Pi}, {\[CurlyPhi], 0, 2 Pi},
ColorFunction -> (ColorData["Rainbow"][#6] &), Mesh -> None,
PlotPoints -> 25, Boxed -> False, Axes -> False]
和
SphericalPlot3D[
1 + Sin[5 \[Phi]]/5, {\[Theta], 0, Pi}, {\[Phi], 0, 2 Pi},
ColorFunction -> (ColorData["Rainbow"][#6] &), Mesh -> None,