作者：广东在线游戏网日期：
返回目录：游戏解答
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]
高人写的，我也不会。e68a84e799bee5baa6e997aee7ad94337刚才运行了一下，可以生成。望采纳
有的话 百度一搜 早放风了 你可以到论坛上看看 找大虾些问问 可能有人珍藏有 给不给你又是一会事了 要不制作大师 你自己整。
如图
把png图片替换了就行了,在graphs里面的picture,小龙女是dragongirl.png,换成你想用的图片,修改一下图片尺寸就可以使之适应屏幕