2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




Начать новую тему Ответить на тему
 
 Построение графиков и фазовых портретов
Сообщение27.01.2012, 13:54 
Аватара пользователя


14/08/11
39
Ижевск
Здравствуйте. Возникли проблемы с построением графиков и фазовых портретов. Подскажите, что я делаю не правильно?
1. Решить систему и построить графики ф-ий $(t,x(t),y(t))$, $t\in [0,1]$ с начальными условиями $(x(0),y(0))=({0,1,2},{0,1,2})$
$\begin{cases}
 &  x'=x+2y+1  \\ 
 &  y'=4x-y  
\end{cases}$
Из начального условия брала только 1 значение. Как задать 3?
Код:
restart:
sys := diff(x(t), t) = x(t)+2*y(t)+1, diff(y(t), t) = 4*x(t)-y(t);
gensol := dsolve({sys}, {y(t), x(t)});
init := x(0) = 0, y(0) = 0;
parsol := dsolve({sys, init}, {x(t), y(t)});
x1 := rhs(parsol[2]); y1 := rhs(parsol[1]);
plot({y1, x1}, t = 0 .. 1);

2. Решить систему, построить фазовые портреты на плоскости
$\begin{cases}
 &  x'=x+y  \\ 
 &  y'=3y-2x  
\end{cases}$
Построила одну кривую, а сказали нужно несколько. Для этого нужны начальные условия. Их брать любыми?
Код:
restart:
with(DEtools);
sys := diff(x(t), t) = x(t)+y(t), diff(y(t), t) = 3*y(t)-2*x(t);
gensol := dsolve({sys}, {x(t), y(t)});
sys := eq1, eq2;
eq1 := diff(x(t), t) = x(t)+y(t);
eq2 := diff(y(t), t) = 3*y(t)-2*x(t);
dsolve({eq2, eq1});
DEplot([sys], [x(t), y(t)], t = 0 .. 1, {[x(0) = 2, y(0) = 3]}, stepsize = .1, linecolor = blue);

3. Решить систему $(n=3)$, построить фазовый портрет в 3-мерном пространстве.
$\begin{cases}
 &  x'=2x+2z-y  \\ 
 &  y'=x+2z  \\ 
 &  z'=y-2x-z  
\end{cases}$
Использовать implicitplot3d или что?
Код:
restart:
sys := diff(x(t), t) = 2*x(t)+2*z(t)-y(t), diff(y(t), t) = x(t)+2*z(t), diff(z(t), t) = y(t)-2*x(t)-z(t);
gensol := dsolve({sys}, {x(t), y(t), z(t)});

4. Построить точку $B$, симметричную точке $A$ относительно $L$.
$A=(-2,1,3)$
$L: \frac{x-2}{3} = \frac{y-1}{0} = \frac{z+4}{1}$
Руками я нашла эту точку $ A'(3,1,-12)$. Как сделать это в Maple? Я могу только примерно построить график.
Код:
with(geometry):
with(geom3d);
with(plots):
with(plottools):
A1 := pointplot3d({[-2, 1, 3], [3, 1, -12]}, axes = normal, symbol = box, color = black);
A2 := curve([[.5, 1, -4.5], [(-10)+.5, 10+1, (-10)-4.5]], color = red);
A3 := curve([[-2, 1, 3], [3, 1, -12]], color = blue);
display({A3, A1, A2}, axes = boxed, scaling = constrained);

 Профиль  
                  
 
 Re: Построение графиков и фазовых портретов
Сообщение28.01.2012, 15:32 
Аватара пользователя


14/08/11
39
Ижевск
Может кто-нибудь хотя бы книгу с примерами посоветует? Мне очень важно разобраться с этими заданиями.
Если кто знает, натолкните на мысль!

 Профиль  
                  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

Модераторы: Karan, Toucan, PAV, maxal, Супермодераторы



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group