L. Fregimus Vacerro (fregimus) wrote,
L. Fregimus Vacerro
fregimus

Странный-странный аттрактор

Вдруг осознал, что ни разу не вертел в руках Лоренцева аттрактора. Вот:
lrz = {
  x'[t] == -3 (x[t] - y[t]),
  y'[t] == -x[t] * z[t] + 26 * x[t] - y[t],
  z'[t] == x[t] * y[t] - z[t] };

ParametricPlot3D [
  Evaluate[{x[t], y[t], z[t]} /. 
     NDSolve[{lrz, x[0] == 5, y[0] == 0, z[0] == 25}, {x, y, z}, {t, 0, 100}]],
  {t, 0, 100}, 
     PlotRange -> {{-25, 25}, {-25, 25}, {0, 50}}, Boxed -> False,
     ColorFunction -> (Hue[#4, 1., 0.9] &), PlotStyle -> Thickness[.0015],
     PlotPoints -> 200 ]



(кликабельно)
Tags: math, scipop
Subscribe
  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic
  • 24 comments