|
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}]
仅供学习参考与交流
|