几个特殊的图像分享
这几天我在一本书上看到几个不错的图像,分享一下。这本书是《Mathematica A Problem-Centered Approach》上面基本是以题目为导向,一步步地教你怎么操作,我看了一大半,感觉收获蛮大的。这里我提供 下载链接.
1.蝴蝶图
x[t_] := Sin[t] (E^Cos[t] - 2 Cos[4 t] - Sin[t/12]^5)
y[t_] := Cos[t] (E^Cos[t] - 2 Cos[4 t] - Sin[t/12]^5)
ParametricPlot[{x[t], y[t]}, {t, -50, 50}, Background -> White]
2.子弹——鼻子曲线。
Manipulate[Plot[Abs@x/Sqrt[c - x^2], {x, -1, 1}], {c, 1, 3}]
3.帽子曲线
q[x_, y_] := Sin[x^2 + y^2] Exp[-x^2] + Cos[x^2 + y^2]
Plot3D[q[x, y], {x, -2, 2}, {y, -2, 2}, PlotPoints -> 50,
Background -> White]
4.波浪图
ListAnimate[
Table[Plot3D[x y Sin[x^2] Cos[y^2], {x, -2 Pi, 0}, {y, -2 Pi, 0},
PlotRange -> All, PlotPoints -> i], {i, 5, 30, 3}]]
5.爱心图
ContourPlot3D[(x^2 + 9/4 y^2 + z^2 - 1)^3 - x^2 z^3 - 9/80 y^2 z^3 ==
0, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}]