实用软件|Mathematica绘制函数程序人生|经验分享|其他|几何

请欣赏一下Mathematica绘制的漂亮的函数图~ヾ(^▽^)

Plot[{(1 + 1/n)^n, Evaluate[Limit[(1 + 1/n)^n, n -> Infinity]]}, {n, 0, 100}, PlotLegends -> "Expressions"]

文章图片

形象地展示了

文章图片

的过程。

Plot[{n^(1/n), Evaluate[Limit[n^(1/n), n -> Infinity]]}, {n, 0, 1000}, PlotLegends -> "Expressions"]

文章图片

形象地展示了

文章图片

的过程。

Plot[{Sin[x]/x, Evaluate[Limit[Sin[x]/x, x -> 0]]}, {x, -4*Pi, 4*Pi}, PlotLegends -> "Expressions"]

文章图片

形象地展示了

文章图片

的过程。

Plot[{x*Sin[1/x], x, -x}, {x, -0.1, 0.1}, PlotRange -> 0.1, AspectRatio -> 1, Filling -> Axis]

文章图片

形象地展示了

文章图片

的过程。(⊙o⊙)

t = Table[Plot[f[x], {x, -2*Pi, 2*Pi}, PlotRange -> 2*Pi, AspectRatio -> 1, ExclusionsStyle -> Dashed, PlotLabel -> f], {f, {Sin, Cos, Tan, Cot, Sec, Csc}}]; GraphicsGrid[{t[[{1, 3, 5}]], t[[{2, 4, 6}]]}, ImageSize -> Large]

文章图片

上篇文章中的例子，加了渐近线和标签，坐标轴等比例化，再将列表组合成一张图，好看一些。

ParametricPlot[{u*Sin[u], u*Cos[u]}, {u, 0, 100}]

文章图片

添加一点选项：

ParametricPlot[{u*Sin[u], u*Cos[u]}, {u, 0, 100}, PlotPoints -> 125, Axes -> False, MaxRecursion -> 0, ColorFunction -> "Rainbow"]

文章图片

像一朵花。

Plot3D[x^2 - y^2, {x, -1, 1}, {y, -1, 1}, BoxRatios -> {1, 1, 1}]

文章图片

画一个马鞍面。

ParametricPlot3D[{Sin[t], Cos[t], t}, {t, 0, 100}, BoxRatios -> {1, 1, 1}, ColorFunction -> "Rainbow"]

文章图片

画一个彩色弹簧。

PolarPlot[Sin[6*t] + 0.1*RandomReal[], {t, 0, 2*Pi}, ColorFunction -> Hue, Axes -> False]

文章图片

f = Sin[Range[0, 12*Pi, 0.1]]; ListPolarPlot[{f, 0.8*f, 0.6*f, 0.4*f}, Joined -> True, Axes -> False, PlotStyle -> {Purple, Red, Orange, Yellow}]

文章图片

漂亮的花。

ListPointPlot3D[Table[{r*Cos[t], r*Sin[t], Sinc[r]}, {r, 0, 3*Pi, 0.1}, {t, 0, 2*Pi, 0.1}], Boxed -> False, Axes -> False]

文章图片

草帽~

Graphics[Table[{Hue[t/25], Circle[{Cos[(2*Pi*t)/25], Sin[(2*Pi*t)/25]}]}, {t, 25}]]

文章图片

Graphics3D[{Red, Ball[{0, 0, 2}], Blue, Cuboid[{-1, -1, -1}, {1, 1, 1}]}, Boxed -> False]

文章图片

还可以练素描。

RegionPlot3D[x^2 + z^2 <= 1 && y^2 + z^2 <= 1, {x, -1, 1}, {y, -1, 1}, {z, -1, 1}, PlotPoints -> 40, Mesh -> None, Boxed -> False]

文章图片

牟合方盖。

Animate[Plot[Evaluate[{Sin[x], Normal[Series[Sin[x], {x, 0, n}]]}], {x, -5, 5}, PlotRange -> 5, AspectRatio -> 1, PlotLegends -> "Expressions"], {n, 1, 10, 2}]

文章图片

泰勒级数的可视化。

Animate[Plot[(x^n & )[x, n], {x, -10, 10}, PlotRange -> 10, AspectRatio -> 1], {n, -5, 5, 0.1}]

文章图片

幂函数的可视化。

Animate[Plot3D[Sin[Sqrt[x^2 + y^2] + 2*Pi*t], {x, -8*Pi, 8*Pi}, {y, -8*Pi, 8*Pi}, PlotRange -> 10, PlotPoints -> 50, AspectRatio -> 1, Boxed -> False, Mesh -> None, Axes -> False], {t, 0, 2}]