Qurak

Visualize the Lorenz attractor

ఉదాహరణ 1 దశ, ఒకే సెషన్‌లో క్రమంగా నడుస్తుంది. ప్రతి దశా ఇంజిన్‌పై అమలు చేయబడింది, కింది అవుట్‌పుట్ అది ఇచ్చినదే.

దశ 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]
అవుట్‌పుట్
-Graphics3D-

వాడిన ఫంక్షన్లు

సంబంధిత రెసిపీలు

అన్ని రెసిపీలు · ఫంక్షన్ రిఫరెన్స్ · దీన్ని MCP క్లయింట్ నుండి వాడండి