Система дифф. уравнений. Не понимаю!

Форум пользователей пакета Mathematica

Модератор: Admin

axebasila
Сообщения: 1
Зарегистрирован: Вт ноя 29, 2011 1:32 am
Откуда: БГУ
Контактная информация:

Система дифф. уравнений. Не понимаю!

Сообщение axebasila » Вт ноя 29, 2011 1:42 am

Здравствуйте, суть проблемы вот в чем: не могу понять как нарисовать фазовые траектории решения системы :
DSolve[{Derivative[1][x][t] == 2 h x[t] + y[t] - g z[t],Derivative[1][y][t] == -x[t],Derivative[1][z][t] == x[t]/[Mu] + z[t]/[Mu], x[0] == 0,y[0] == 0.1, z[0] == 0.01}, {x[t], y[t], z[t]}, t]

Решение выдаёт мне полиномы и я не могу понять, как с ними работать.
Спасибо.

ilyaZlatkin
Сообщения: 7
Зарегистрирован: Пн сен 14, 2009 6:46 pm
Контактная информация:

Сообщение ilyaZlatkin » Ср июл 11, 2012 3:21 pm

если я правильно понял, то нужно заменить {x[t], y[t], z[t]} на {x, y, z}
сделать как то так
h = 1;
g = 1;
Mu = 1;
DSolve[{x'[t] == 2 h* x[t] + y[t] - g*z[t], y'[t] == -x[t],
z'[t] == x[t]/Mu + z[t]/Mu, x[0] == 0, y[0] == 0.1,
z[0] == 0.01}, {x, y, z}, t]
Plot[y[t] /. %, {t, 1, 2}]