彩虹蝴蝶酥

作者： Marvin

顾名思义，此物以色彩见长。 如需食用，请先进入二次元世界~

用料

• Computer 1
• Keyboard 1
• Mouse 1
• Mathematica 1

彩虹蝴蝶酥的做法步骤

步骤 1

打开电脑

步骤 2

启动Mathematica

步骤 3

制作蝴蝶酥原料。需要解一个组非线性微分方程。输入下列代码并 Shift+Enter. sol[v_, a0_, x0_, y0_, z0_] := NDSolve[{x'[t] == - v x[t] + y[t] z[t], y'[t] == -v y[t] + ( z[t] - a0) x[t], z'[t] == 1 - x[t] y[t], x[0] == x0, y[0] == y0, z[0] == z0}, {x, y, z}, {t, 0, 200}, MaxSteps -> Infinity]

步骤 4

焙制蝴蝶酥，并上色。输入下列代码并 Shift+Enter. ParametricPlot3D[ Evaluate[{x[t], y[t], z[t]} /. sol[0.8, 1.55, 0, 1, 0]], {t, 0, 200}, ColorFunction -> (ColorData["Rainbow"][#4] &), PlotStyle -> {Thick}, SphericalRegion -> True, ImageSize -> 500 {1, 1}, PlotRange -> {{-4, 5}, {-4, 4}, {-0.5, 10}}, Boxed -> False, Axes -> None, PerformanceGoal -> "Quality"]

菜谱创建时间：2012-07-19 22:24:41