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

Метод Зейделя 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

/ /

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

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

Только зарегистрированые пользователи имеют возможность комментировать работы
Похожие работы
Тип Название Рейтинг Категория Стоимость
Диплом Отдел кадров Delphi 7 0 Базы данных 1 500,00
Лабораторная Калькулятор Delphi 7 0 Pascal/Delphi 50,00
Диплом ЭИС "Управление оборотом запчастей ООО «АМКапитал»" (Delphi 7+ Access 2010) 3 Базы данных 2 000,00
Исходник Метод Ньютона Delphi7 0 Pascal/Delphi 70,00
Диплом Агентство недвижимости Delphi + Access 0 Базы данных 2 000,00
Другие работы автора
Новые работы
Тип Название Рейтинг Категория Стоимость
Контрольная Театр (C#, WinForms, Access) new 0 .NET (C#) 1 500,00
Исходник Автошкола (C#, WPF, SQL Server, SQLite) new 0 .NET (C#) 2 500,00
Исходник Программа Парадокс дней рождения Python new 0 Python 700,00
Исходник ИС Налогоплательщики С# + SQL Server new 0 .NET (C#) 2 500,00
Исходник Логическая игра "Бейглз" Python new 0 Python 700,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