В Делфи метод трехточечной прогонки

[Leo_nid]

Здравствуйте, друзья!
Не успеваю учиться! Решение системы. Трехдиагональные матрицы. Кто сталкивался? Что посоветуете? Хоть какой-то исходник, чтобы было от чего оттолкнуться...
Спасибо за любой ответ

[Leo_nid]

Ну, чтож, Всем спасибо!

[Rin]

* n - число уравнений (строк матрицы)
* nx - число столбцов
* c - главная диагональ матрицы A
* a - диагональ, лежащая под главной
* b - диагональ, лежащая над главной
* f - правая часть (столбец)
* x - решение, массив x будет содержать ответ

procedure 6oje_ti_moy(var n:integer; c:array [1..nx] of extebded;
a,b:array[1..nx-2] of extebded;f:array[1..n] of extebded;x:array[1..nx] of extebded);
var i:integer; m:extended;
begin
    for i:=1 to n do
    begin
       m:=a[i]/c[i];
       c[i]:=c[i]-m*b[i-1];
       f[i]:=f[i]-m*f[i-1];
    end;
    x[n-1]:=f[n-1]/c[n-1];
    for i := n-2 downto 1 do x[i]:=(f[i]-b[i]*x[i+1])/c[i]; 
end;

Подумай на досуге:
- либо учиться, а потом гулять;
- либо гулять, а потом в армию;
- либо платить тому, кто сделает тебе твои задания.
Никого не заботит то, что ты не успеваешь. Честно, хочется материться, когда такое вижу.
Расставь приоритеты наконец.

[was3110]

Сообщение от Rin

- либо платить тому, кто сделает тебе твои задания.

как вариант:программа, тестирующая метод прогонки

[Маленыч]

Rin, а вы уверены, что ваш вариант верен?

Помойму он сработает только при условии, что a[0] = 0, b[n-1] = 0.