Решение систем линейных алгебраических уравнений методом Гаусса и Зейделя
Категория реферата: Рефераты по математике
Теги реферата: новые сочинения, сочинение на тему
Добавил(а) на сайт: Hudjakov.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
For i := 1 to n do begin
For j := 1 to n do begin
GotoXY(j * 6 + 2, r + i + 1);
Read(a[i, j]); end;
GotoXY((n + 1) * 6 + 2, r + i + 1);
Read(b[i]); end;
End;
{ Процедура вывода результатов }
Procedure WriteX(n :Integer; x: Vector);
Var i: Integer;
Begin
For i := 1 to n do
Writeln('x', i, ' = ', x[i]);
End;
{ Функция, реализующая метод Зейделя }
Function Seidel(n: Integer; a: Matrix; b: Vector; var x: Vector; e: Data)
:Boolean;
Var i, j: Integer; s1, s2, s, v, m: Data;
Begin
{ Исследуем сходимость }
For i := 1 to n do begin
s := 0;
For j := 1 to n do
If j i then s := s + Abs(a[i, j]);
If s >= Abs(a[i, i]) then begin
Seidel := false;
Exit; end;
end;
Repeat
m := 0;
For i := 1 to n do begin
{ Вычисляем суммы } s1 := 0; s2 := 0;
For j := 1 to i - 1 do s1 := s1 + a[i, j] * x[j];
For j := i to n do s2 := s2 + a[i, j] * x[j];
Рекомендуем скачать другие рефераты по теме: скачать доклад на тему, отчет по практике.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата