Решения СЛАУ
метод трехточечной прогонки(прогонка назад)
m[n-2]:=-a[n-1]/c[n-1];
v[n-2]:=y[n-1]/c[n-1];
m[n-3]:=-a[n-2]/(b[n-2]*m[n-2]+c[n-2]);
v[n-3]:=(y[n-2]-b[n-2]*v[n-2])/(b[n-2]*m[n-2]+c[n-2]);
x[n-1]:=m[n-2]*x[n-2]+v[n-2];
x[n-2]:=m[n-3]*x[n-3]+v[n-3];
for i:=(n-3) downto 1 do
x:=m[i-2]*x[i-2]+v[i-2];
x[0]:=(y[0]-b[0]*v[0])/(c[0]+b[0]*m[0]);
помогите найти ошибку не правильно находит решения(((
метод трехточечной прогонки(прогонка назад)
m[n-2]:=-a[n-1]/c[n-1];
v[n-2]:=y[n-1]/c[n-1];
m[n-3]:=-a[n-2]/(b[n-2]*m[n-2]+c[n-2]);
v[n-3]:=(y[n-2]-b[n-2]*v[n-2])/(b[n-2]*m[n-2]+c[n-2]);
x[n-1]:=m[n-2]*x[n-2]+v[n-2];
x[n-2]:=m[n-3]*x[n-3]+v[n-3];
for i:=(n-3) downto 1 do
x:=m[i-2]*x[i-2]+v[i-2];
x[0]:=(y[0]-b[0]*v[0])/(c[0]+b[0]*m[0]);
помогите найти ошибку не правильно находит решения(((