Qurak

Visualize the Lorenz attractor

Contoh 1 langkah, dijalankan mengikut urutan dalam satu sesi. Setiap langkah dilaksanakan terhadap enjin dan output di bawah ialah apa yang dihasilkannya.

Langkah 1
s = NDSolve[{Derivative[1][x][t] == -3 (x[t] - y[t]), Derivative[1][y][t] == -x[t] z[t] + 26.5 x[t] - y[t], Derivative[1][z][t] == x[t] y[t] - z[t], x[0] == z[0] == 0, y[0] == 1}, {x, y, z}, {t, 0, 400}, MaxSteps -> ∞];
Show[ParametricPlot3D[Evaluate[{x[t], y[t], z[t]} /. s], {t, 0, 400}, PlotPoints -> 1000, PlotStyle -> Directive[Thick, RGBColor[.8, 0, 0]], ColorFunction -> (ColorData["SolarColors", #4]&)], Graphics3D[{ColorData["SolarColors"][0], Sphere[First[({x[t], y[t], z[t]} /. s) /. t -> 0], .75]}], RotationAction -> "Clip", Boxed -> False, SphericalRegion -> False, Axes -> False, ImageSize -> 500]
Output
-Graphics3D-

Fungsi yang digunakan

Resipi berkaitan

Semua resipi · Rujukan fungsi · Gunakan ini daripada klien MCP