Mathematica绘制常见曲线

才疏学浅，资历欠佳，难免有误，望有心人批评指正。

本文主要用于展示自己使用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}]

仅供学习参考与交流