На нашем сайте Вы сможете найти готовые курсовые и дипломные работы по программированию
Сейчас работаем

Метод Зейделя Delphi 7

Описание программы

Решение СЛАУ методом Зейделя Идея: задана основная матрица A и вектор B Сначала нормализуем матрицу и вектор. Вычисляется транспонированная матрица A ,т.е A^t; Выполняются действия: A'=(A^t)*A; B'=(A^t)*b Далее операции выполняются над этими матрицами Случайным образом задается вектор X(x1,x2,..,xn); Далее вычисляется вектор Xk через Xk-1.

Фрагмент кода из программы:

procedure TForm1.CalculateClick(Sender: TObject);
var
  i,j,k  : Byte;
  atr : Matrix;
  tt  : Real;
  A1  : Matrix;
  A2  : Matrix;
  B1  : Vector;
  X   : vector;
  X1  : vector;

function CheckConds:Boolean;
{Условие прекращения вычислений}
var
  l : Byte;
  mm : Real;
begin
mm:=abs(X1[1]-X[1]);
for l:=2 to n do begin
if mm<abs(X1[l]-X[l])
  then mm:=abs(X1[l]-X[l]);

  if  mm<eps then CheckConds:=true else CheckConds:=false;
end;

end;

procedure CalculateNextX;
var
  l,m : Byte;
  zz  : real;
begin
for l:=1 to n do begin
  zz:=(B[l]/A[l,l]);
  for m:=1 to n do begin
    if m=l then continue;
    zz:=zz-(A[l,m]*X[m]/A[l,l])
  end;
  X[l]:=zz;
end;
end;

Содержание архива:

Купить 70,00 
Сразу после оплаты Вы получите работу на электронную почту. Файлы отправляются автоматически. Исходник программ Вы сможете отредактировать, как Вам нужно.
Комментарии (0)

flappyd

/ /

Оставить комментарий

Ты не можешь комментировать

Только зарегистрированые пользователи имеют возможность комментировать работы
Другие работы автора
Новые работы
Тип Название Рейтинг Категория Стоимость
Диплом Разработка Telegram-бота для колледжа АГУ (Python) new 0 Python 10 000,00
Исходник Учёт товаров (Python, Tkinter, Sqlite) new 0 Python 3 000,00
Курсовая АИС "Авиакасса" (C#, WPF, WinForms, SQLite, SQL Server, Access) new 0 .NET (C#) 5 500,00
Курсовая Курсовая работа разработка мобильных приложений "FTP клиент для Android" new 0 Сетевые протоколы 6 500,00
Исходник Транспонирование матрицы new 0 .NET (C#) 150,00
Купить

70,00 

Покупается впервые!
Сразу после оплаты Вы получите работу на электронную почту. Файлы отправляются автоматически. Исходник программ Вы сможете отредактировать, как Вам нужно.
Зейделя.zip
239697
Оцени работу

рейтинг

Поделись работой с друзьями

Категории
Метод Зейделя Delphi 7
Решение СЛАУ методом Зейделя Идея: задана основная матрица A и вектор B Сначала нормализуем матрицу и вектор. Вычисляется транспонированная матрица A ,т.е A^t; Выполняются действия: A'=(A^t)*A; B'=(A^t)*b Далее операции выполняются над этими матрицами Случайным образом задается вектор X(x1,x2,..,xn); Далее вычисляется вектор Xk через Xk-1.
Категория: Образование
Стоимость: 70,00