![]() |
Поделиться |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
Поделиться |
![]() ![]()
Сообщение
#1
|
|
![]() Мастер ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователь Сообщений: 782 Регистрация: 7.12.2006 Вставить ник Цитата Пользователь №: 42 Страна: Россия Город: Нижний Новгород Пол: Муж. Репутация: ![]() ![]() ![]() |
Что такое синергетика: новое интегральное научное направление или спекуляция чиновников от науки?
Насколько реально эффективны подходы синергетики или же это просто старая добрая качественная теория дифференциальных уравнений? ![]() ![]() ![]() -------------------- Ведущий раздела "НТОРЭС им. А. С. Попова. Нижегородское отделение"
|
|
|
![]() |
![]()
Сообщение
#2
|
|
![]() Мастер ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователь Сообщений: 782 Регистрация: 7.12.2006 Вставить ник Цитата Пользователь №: 42 Страна: Россия Город: Нижний Новгород Пол: Муж. Репутация: ![]() ![]() ![]() |
Нашел работающую. Замечательно! Теперь наберите в первой ячейке вот это вот (один в один!) la = NDSolve[{x'[t] == -3 (x[t] - y[t]), y'[t] == -x[t] z[t] + 26.5 x[t] - y[t], z'[t] == x[t] y[t] - z[t], x[0] == 0, y[0] == 1, z[0] == 0}, {x, y, z}, {t, 0, 60}, MaxSteps -> 9000]; ParametricPlot3D[Evaluate[{x[t], y[t], z[t]} /. la], {t, 0, 60}, PlotPoints -> 3000, Boxed -> False, TextStyle -> {FontFamily -> "Courier", FontSize -> 15, FontWeight -> "Bold", FontSlant -> "Italic"}] и нажмите Shift+Enter Должен нарисоваться аттрактор Лоренца! ![]() ![]() -------------------- Ведущий раздела "НТОРЭС им. А. С. Попова. Нижегородское отделение"
|
|
|
![]() ![]() |
![]() |
Текстовая версия | Сейчас: 18.6.2025, 22:46 |