Question

以前有看过别人用mathematica画的非常好看的图的案例找不到了，请高手帮我找一下谢谢。

画出来是个玫瑰花。

Answer 1

Rose[x_, theta_] :=
Module[{phi = (Pi/2) Exp[-theta/(8 Pi)],
X = 1 - (1/2) ((5/4) (1 - Mod[3.6 theta, 2 Pi]/Pi)^2 - 1/4)^2, y,
r}, y = 1.95653 x^2 (1.27689 x - 1)^2 Sin[phi];
r = X (x Sin[phi] + y Cos[phi]);
{r Sin[theta], r Cos[theta], X (x Cos[phi] - y Sin[phi])}]

Manipulate[
Show[ParametricPlot3D[
Evaluate@Rose[x, theta], {x, 0, 1}, {theta, -2 Pi, th},
Mesh -> None, PerformanceGoal -> "Speed", PlotPoints -> 100,
PlotStyle -> {clr}, ImageSize -> {450, 400},
PlotRange -> {{-1, 1}, {-1, 1}, {-1.6, 1}}, Boxed -> False,
Axes -> Fase],
Graphics3D[{Green,
Cylinder[{{0, 0, -.05}, {0, 0, -10}}, .1]}]], {{th, 15 Pi,
"花瓣的变化"}, Pi, 15 Pi}, {{clr, Red, "花瓣的颜色"}, Red},
SaveDefinitions -> True]

高人写的，我也不会。刚才运行了一下，可以生成。望采纳