2014 dxdy logo

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

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




 
 Построение графиков и фазовых портретов
Сообщение27.01.2012, 13:54 
Аватара пользователя
Здравствуйте. Возникли проблемы с построением графиков и фазовых портретов. Подскажите, что я делаю не правильно?
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 
Аватара пользователя
Может кто-нибудь хотя бы книгу с примерами посоветует? Мне очень важно разобраться с этими заданиями.
Если кто знает, натолкните на мысль!

 
 
 [ Сообщений: 2 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group