Mathematica绘制函数图像—三维“极坐标”

 时间:2024-10-11 18:41:47

1、 球坐标的绘图,用SphericalPlot3D。 举个例子:SphericalPlot3D[ 1 + 2 Cos[2 \[Theta]], {\[Theta], 0, Pi}, {\[Phi], 0, 2 Pi}]

Mathematica绘制函数图像—三维“极坐标”
Mathematica绘制函数图像—三维“极坐标”

2、 画三个同心半球:SphericalPlot3D[{1, 2, 3}, {\[Theta], 0, Pi}, {\[Phi], 0, Pi}, PlotPoints -> 30]

Mathematica绘制函数图像—三维“极坐标”
Mathematica绘制函数图像—三维“极坐标”

3、 再举一例,这次涉及到复变函数:SphericalPlot3D[Re[Sin[\[Theta]] Cos[\[Theta]] Exp[2 I*\[CurlyPhi]]], {\[Theta], 0, \[Pi]}, {\[CurlyPhi], 0, 2 \[Pi]}]

Mathematica绘制函数图像—三维“极坐标”
Mathematica绘制函数图像—三维“极坐标”

4、 绘图时,去掉坐标轴:SphericalPlot3D[ 1 + 2 Cos[2 \[Theta]], {\[Theta], 0, Pi}, {\[Phi], 0, 2 Pi}, Axes -> False]

Mathematica绘制函数图像—三维“极坐标”
Mathematica绘制函数图像—三维“极坐标”

5、 绘图时,去掉外框:SphericalPlot3D[{1, 2, 3}, {\[Theta], 0, Pi}, {\[Phi], 0, Pi},PlotPoints -> 30, Boxed -> False]

Mathematica绘制函数图像—三维“极坐标”
Mathematica绘制函数图像—三维“极坐标”

6、 绘图时,去掉网格线:SphericalPlot3D[Re[Sin[\[Theta]] Cos[\[Theta]] Exp[2 I*\[CurlyPhi]]], {\[Theta], 0, \[Pi]}, {\[CurlyPhi], 0, 2 \[Pi]}, Mesh -> None]

Mathematica绘制函数图像—三维“极坐标”
Mathematica绘制函数图像—三维“极坐标”

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]

Mathematica绘制函数图像—三维“极坐标”
Mathematica绘制函数图像—三维“极坐标”

8、 绿色的半透明“仙人掌”:SphericalPlot3D[Re职邗珩垃[Sin[\[Theta]] Cos[\[Theta]] Exp[2 I*\[CurlyPhi]]], {\[Thet锾攒揉敫a], 0, Pi}, {\[CurlyPhi], 0, 2 Pi},PlotStyle -> Directive[Green, Opacity[0.5], Specularity[White, 6]],Mesh -> None, PlotPoints -> 30, Axes -> False, Boxed -> False]

Mathematica绘制函数图像—三维“极坐标”
Mathematica绘制函数图像—三维“极坐标”

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

Mathematica绘制函数图像—三维“极坐标”
Mathematica绘制函数图像—三维“极坐标”

10、 色彩渐变:SphericalPlot3D[Re[Sin[\[哌囿亡噱Theta]] Cos[\[Theta]] Exp[2 I*\[CurlyPhi]]], {\[Thet锾攒揉敫a], 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,PlotPoints -> 25, Boxed -> False, Axes -> False]

Mathematica绘制函数图像—三维“极坐标”
Mathematica绘制函数图像—三维“极坐标”
  • Mathematica 特殊字符输入(希腊字母/运算符)
  • 怎么用MATLAB解方程
  • mathematica 如何画图
  • 如何用mathematica画出函数图象
  • linspace(a,b,c)什么意思
  • 热门搜索
    关于安全的手抄报资料 壮族三月三手抄报 格列佛游记手抄报 青春手抄报图片 感念师恩手抄报 廉洁在我心中手抄报 安全健康快乐手抄报 日行一善手抄报资料 好人好事手抄报 六年级上册手抄报