3852

Розв’язування системи лінійних алгебраїчних рівнянь методом Гауса

Лабораторная работа

Информатика, кибернетика и программирование

Розв’язування системи лінійних алгебраїчних рівнянь методом Гауса Мета роботи: навчитись розв’язувати систему лінійних алгебраїчних рівнянь методом Гауса. Короткі теоретичні відомості Нехай задана система п лінійних рівнянь...

Украинкский

2012-11-09

120 KB

16 чел.

Розв’язування системи лінійних алгебраїчних рівнянь методом Гауса

Мета роботи: навчитись розв’язувати систему лінійних алгебраїчних рівнянь методом Гауса.

Короткі теоретичні відомості

Нехай задана система п лінійних рівнянь із  п  невідомими, яка в матричному записі має вигляд

(1)     – шуканий вектор – розв’язок із відповідними компонентами.

Метод Гауса полягає в зведенні квадратної системи (1) до трикутного вигляду з використан-ням алгоритму послідовного виключення невідомих.

Алгоритм методу Гауса складається з двох етапів:

  1.  Триангуляція матриці

  1.  Обчислення розв’язку

Варіант 17

наступну СЛАР розв’язати методом Гауса

X1=-0,44

X2=2,47

X3=-0,86

X4=-2.07

Текст програми:

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

int k_z=4;

float A_mas[5][5]={{1.17,2,3,-2,6},{2,-0.17,-2,-3,6.64},{3,2,-1,1.83,0.68},{2,-3,2,1,-12.08}},

     A[5][5]={{1.17,2,3,-2,6},{2,-0.17,-2,-3,6.64},{3,2,-1,1.83,0.68},{2,-3,2,1,-12.08}},

     x_mas[4]={0};

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

       : TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

for (int i=0;i<=k_z;i++)

{

  for (int j=0;j<=k_z;j++)

  {

    StringGrid1->Cells[j][0]="X"+IntToStr(j+1);

    StringGrid1->Cells[i][j+1]=FloatToStrF(A[i][j],ffFixed,6,2);

  }

  StringGrid2->Cells[0][i]="X"+IntToStr(i+1);

  StringGrid3->Cells[0][i]=FloatToStrF(A[i][k_z],ffFixed,6,2);

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

 int k,i,j;

  for (i=0; i<k_z; i++)

   for (j=0; j<=k_z; j++)

      A_mas[i][j]=A[i][j];

 for(k=0; k<k_z-1; k++)

   for(i=k+1; i<k_z; i++)

     for(j=k_z; j>=k; j--)

       A_mas[i][j]=A_mas[i][j]*A_mas[k][k]-A_mas[k][j]*A_mas[i][k];

 for(i=k_z-1; i>=0; i--)

 {

   float sum=0;

   for(j=k_z-1; j>i; j--)

     sum += A_mas[i][j]*x_mas[j];

   x_mas[i]=(A_mas[i][k_z]-sum)/A_mas[i][i];

 }

  for (i=0;i<=k_z;i++)

 StringGrid2->Cells[1][i]=FloatToStrF(x_mas[i],ffFixed,6,2);

}

//---------------------------------------------------------------------------

Результат виконання програми:

Висновок: На цій лабораторній роботі я розв’язав систему лінійних алгебраїчних рівнянь методом Гауса, а також запрограмував його.


 

А также другие работы, которые могут Вас заинтересовать

13763. Государственная (итоговая) аттестация по ФИЗИКЕ 215.25 KB
  Государственная итоговая аттестация по ФИЗИКЕ Тренировочный вариант № 1 Инструкция по выполнению работы На выполнение экзаменационной работы по физике отводится 3 часа 180 минут. Работа состоит из 3 частей и включает 27 заданий. Часть 1 содержит 19 заданий 1–19. К к
13764. Проблемы развития малых и средних гостиниц на примере гостиницы Park Hotel г.Ставрополя 97.5 KB
  Выявить требования к организации деятельности малых гостиниц; Описать особенности организации и специфику деятельности малых гостиниц как наиболее перспективных в развитии малого бизнеса; Провести анализ работы малых гостиниц на базе гостиницы «Park Hotel» города Ставрополя
13765. Связь грамматики и лексики в русском языке 95.09 KB
  Сочинение рассуждение на основе прочитанного текста С2. Первый раздел тем. Связь грамматики и лексики в русском языке Возможные цитаты которые могут быть в этом разделе Грамматика может показать как люди пользуются яз
13766. Пишем сочинение на лингвистическую тему 175.5 KB
  1. Как сформулировано задание С2. Напишите сочинениерассуждение приняв в качестве тезиса слова известного лингвиста Г. Степанова: Словарь языка свидетельствует о чём думают люди а грамматика – как они думают. Аргументируя свой ответ приведите по 1 примеру из проч...
13767. Терминологический словарь к ЕГЄ. Биология 956 KB
  Аберрации. См. Мутации хромосомные. Абиогенез от греч. а частица отрицания bios жизнь и genesis рождение появление процесс возникновения живых организмов из веществ неорганической неживой природы. Автор гипотезы А.И. Опарин 1924. Абиотические экологические факторы о...
13768. Шпаргалка к ЕГЄ. Биология 202.5 KB
  1.Предмет задачи и методы изучения общей биологии. Значение общей биологии. Впервые этот термин был предложен в 1802 г. французким ученым Ж. Б. Ламарком. Для обозначения науки о жизни как особом явлении природы. Современная биология – это комплекс биологических наук изуча...
13769. Шпаргалка к ЕГЄ. Генетика и Биология 187 KB
  1Методы изучения наследственности человека Применимость к человеку классического генетического анализа как основного метода изучения наследственности и изменчивости исключена изза невозможности экспериментальных скрещиваний длительности времени достижения поло...
13770. ОЛИМПИАДЫ ПО ИНФОРМАТИКЕ ЗАДАЧИ И РЕШЕНИЯ ПАСКАЛЬ 513.5 KB
  ОЛИМПИАДЫ ПО ИНФОРМАТИКЕ ЗАДАЧИ И РЕШЕНИЯ ЧАСТЬ 1 Задача №1 У продавца и покупателя имеется неограниченное количество монет достоинством к примеру. Покупатель купил товар на сумму n. Нужно найти минимальное количество монет которые будут использованы при рас...
13771. Курс лекций по языку программирования QBASIC 351.5 KB
  Введение Данный курс лекций по языку программирования QBASIC разработан согласно временному региональному компоненту государственного образовательного стандарта и может быть использован для ведения лекций преподавателями школ и лицеев а также учащимися как учебное...