Mathematica繪制常見曲線

才疏學淺，資歷欠佳，難免有誤，望有心人批評指正。

border="0" width="350" height="100" src="http://music.163.com/outchain/player?type=2&id=412493245&auto=1&height=66">

本文主要用于展示自己使用mathematica繪制的數學上的常見和常用曲線（本來是動圖的，只因技術不精，變成靜圖了）

阿基米德螺線

Manipulate[PolarPlot[a t, {t, -2 \[Pi], 2 \[Pi]}, PlotTheme -> "Detailed",AxesStyle -> Arrowheads[{0, 0.03}], PlotLabel -> "阿基米德螺線",PlotLegends -> None], {a, -1, 1}]

Manipulate[PolarPlot[a Sin[3 t], {t, 0, Pi}, PlotTheme -> "Web",AxesStyle -> Arrowheads[{0, 0.03}]], {a, -1, 1}]

只是覺得好看，并非我所畫

PolarPlot[Evaluate[Table[Abs[Sin[\[Theta] + i]], {i, 0, 2 Pi, 2 Pi/16}]], {\[Theta], 0,2 Pi}, PlotStyle -> Thick,ColorFunction -> Function[{x, y, t, r}, Hue[r]], Axes -> False,RegionFunction -> Function[{x, y, t, r}, r < 0.555],ColorFunctionScaling -> False, PlotPoints -> 20, MaxRecursion -> 3]

伯努利雙紐線

Manipulate[ContourPlot[(x^2 + y^2)^2 == 2 a^2 x y, {x, -1, 1}, {y, -1, 1},AspectRatio -> Full, PlotTheme -> "Scientific",PlotLabel -> "伯努利雙紐線", AxesStyle -> Arrowheads[{0, 0.03}]], {a, -1,1}]

四葉玫瑰線

Manipulate[PolarPlot[a Sin[2 t], {t, -2 Pi, 2 Pi}, PlotTheme -> "Detailed",AxesStyle -> Arrowheads[{0, 0.03}], AspectRatio -> Full,PlotStyle -> {Red, Dashed}, PlotLabel -> "四葉玫瑰線",PlotLegends -> Automatic], {a, -1, 1}]

Manipulate[PolarPlot[a Sin[2 t], {t, -2 Pi, 2 Pi}, PlotTheme -> "Detailed",AxesStyle -> Arrowheads[{0, 0.03}], AspectRatio -> Full,PlotStyle -> {Purple, Thickness[0.003]}, PlotLabel -> "四葉玫瑰線",PlotLegends -> Automatic], {a, -1, 1}]

做出圖像并求解積分

Plot[1/(1 + x^2), {x, -15, 15}, PlotTheme -> "Detailed",PlotRange -> All, PlotRangePadding -> Scaled[.05], Filling -> Axis,FillingStyle -> {Opacity[0.7], Pink}]

Integrate[1/(1 + x^2), {x, -Infinity, Infinity}]

僅供學習參考與交流

總結

以上是生活随笔為你收集整理的Mathematica绘制常见曲线的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。