Здравствуйте. Возникли проблемы с построением графиков и фазовых портретов. Подскажите, что я делаю не правильно?
1. Решить систему и построить графики ф-ий
,
с начальными условиями
Из начального условия брала только 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. Решить систему, построить фазовые портреты на плоскости
Построила одну кривую, а сказали нужно несколько. Для этого нужны начальные условия. Их брать любыми?
Код:
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. Решить систему
, построить фазовый портрет в 3-мерном пространстве.
Использовать 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. Построить точку
, симметричную точке
относительно
.
Руками я нашла эту точку
. Как сделать это в 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);