Метод Рунге-Кутты 4 порядка точности. Wolfram Mathematica

[Makzet7]

Почему выходит ошибка? Какой информации не хватает программе? Выдает more input is needed

f[x_,u_,v_]:=2*u[x]+v[x]-1-2*x

g[x_]:=v[x]

x0=0,u0=3,v0=-2;

xn=1,n=20,h=(xn-x0)/n;

q={"i","xi","ui"};

x=x0,u=u0,v=v0;

Do[k1=vi,l1=f[xi,ui,vi];

k2=vi+(h/2)*l1,l2=f[xi+h/2,ui+(h/2)*k1,vi+(h/2)*l1];

k3=vi+(h/2)*l2,l3=f[xi+h/2,ui+(h/2)*k2,vi+(h/2)*l2];

k4=vi+h*l3,l4=f[xi+h,ui+h*k3,vi+h*l3];

k=(k1+2*k2+2*k3+k4)/6;

l=(l1+2*l2+2*l3+l4)/6;

ui+1=ui+h*k;

vi+1=vi+h*l;

e[i]={i,xi,ui};

xi+1=xi+h,{i,0,n}]

q2=Table[e[i],{i,0,n}];

N[Join[{q},q2],6]//TableForm

[Pphantom]

Тема перемещена из форума «Околонаучный софт» в форум «Карантин»
по следующим причинам:

- отсутствуют собственные содержательные попытки ответа на вопрос.

Исправьте все Ваши ошибки и сообщите об этом в теме Сообщение в карантине исправлено.
Настоятельно рекомендуется ознакомиться с темами Что такое карантин и что нужно делать, чтобы там оказаться и Правила научного форума.