Построение графиков

@Anaryn · Регистрация: 08.11.2016

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток. Подскажите пожалуйста в чём здесь ошибка ?
Мне нужно показать решение дифференциального уравнения на графике , однако возникает ошибка:
Error, unable to match delimiters

Как можно её решить ?
(извиняюсь , я в Maple похуже чайника просто мне велели сделать это задание именно в Mapple)

А если вопросы насчёт задания вопросы , то мне нужно узнать предельное состояние 6-ти канальной АТС

Haskell

restart; 
s0 := diff(p0(t), t)+a*p0(t)-b*p1(t)-n;
 s1 := diff(p1(t), t)-a*p0(t)+(a+b)*p1(t)-2*b*p2(t); 
s2 := diff(p2(t), t)-a*p1(t)+(a+2*b+n)*p2(t)-3*b*p3(t)*n;
 s3 := diff(p3(t), t)-a*p2(t)+3*b*p3(t)*n; 
a := .25; 
b := .27; 
n := 6;
 ini0 := p0(0) = 1; 
ini1 := p1(0) = 0; 
ini2 := p2(0) = 0; 
ini3 := p3(0) = 0; 
ds := dsolve({ini0, ini1, ini2, ini3, s0, s1, s2, s3}, numeric)
ds(0);
ds(.7);
ds(.9);
odeplot*(d, [[t,ds(0)],[t,ds(0.7)],[t,ds(0.9)(t)], 0..10);

@murom2013 · 22.12.2018, 17:57

Haskell

restart; 
with(plots); 
s0 := diff(p0(t), t)+a*p0(t)-b*p1(t)-n; 
s1 := diff(p1(t), t)-a*p0(t)+(a+b)*p1(t)-2*b*p2(t); 
s2 := diff(p2(t), t)-a*p1(t)+(a+2*b+n)*p2(t)-3*b*p3(t)*n; 
s3 := diff(p3(t), t)-a*p2(t)+3*b*p3(t)*n; 
a := .25; b := .27; n := 6; 
ini0 := p0(0) = 1; ini1 := p1(0) = 0; ini2 := p2(0) = 0; ini3 := p3(0) = 0; 
ds := dsolve({ini0, ini1, ini2, ini3, s0, s1, s2, s3}, {p0(t), p1(t), p2(t), p3(t)}, numeric); 
odeplot(ds, [[t, p0(t)], [t, p1(t)], [t, p2(t)], [t, p3(t)]], 0 .. 10)

	22.12.2018, 17:57

Построение графиков

Решение