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);

}

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

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

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


 

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

47746. Валютные операции и валютное регулирование 1.02 MB
  Валютная политика представляет собой совокупность мероприятий, проводимых ЦБ страны и другими государственными органами в сфере валютных отношений и денежного обращения, с конечной целью воздействия на экономику страны и покупательскую силу национальной валюты
47747. Художественные стилевые направления в искусстве 814 KB
  Греческий а затем и латинский язык произведения искусства мифология философия научные открытия стали неотъемлемой частью европейской а во многом и мировой культуры ее историей и географией. Характер античной культуры и античного искусства складывался стремительно Если в Египте в течение нескольких тысячелетий мы наблюдаем по сути дела неизменный образ жизни и мышления человека то Греция за несколько веков проделала...
47748. Понятие и предмет криминологии 1.44 MB
  Преступность в различных ее проявлениях включает: индивидуальное преступное поведение; отдельные виды преступности выделяемые по объекту посягательств экономическая государственная и т. в причины и условия преступности объединяемые родовым понятием криминогенные детерминанты представляют собой совокупность социально негативных экономических демографических идеологических социальнопсихологических политических организационноуправленческих явлений которые порождают и обусловливают детерминируют преступность как свое...
47750. Електричні властивості металів і сплавів і методи їх дослідження 95 KB
  Електричні властивості металів і сплавів і методи їх дослідження. Електроопір металів і сплавів його залежність від температури та структури сплавів. Природа електроопору металів. В основу вивчення електричних властивостей металів і сплавів покладено закон Ома де i це сила струму U напруга R електроопір.
47751. ІНФОРМАЦІЙНІ ТЕХНОЛОГІЇ 177.5 KB
  Ідея наділити подібні інструменти інтелектуальністю матеріалізувалася в 1940х роках у вигляді компютера який використовує електронний носій інформації залишаючи напір лише для представлення даних у більш зручному вигляді. Основні риси людської інформаційної цивілізації: 1 зміна основного предмета праці в суспільному виробництві приводить не до спаду виробництва а до зростання його ефективності за рахунок застосування передових технологій роботизації й підвищення кваліфікації працюючих збільшуючи одночасно масу вільного часу громадян...
47752. Инвестиции. Понятие об инвестициях 271 KB
  Можно выделить 3 варианта: 1 активные инвестиции 2 и 3 пассивные инвестиции Этапы реализации инвестиционного проекта. Предварительная подготовка проекта. Это решается после разработки бизнесплана предполагаемого инвестиционного проекта. Бизнесплан инвестиционного проекта имеет определённую структуру которая зависит от специфики реализуемого бизнеса и масштабов проекта.
47753. История зарубежной журналистики 867.5 KB
  После возникновения книгопечатания печатные газеты вытесняют рукописные листки новостей периодическая печать в XVIXVIII веках является в 3 основных типах еженедельная и ежедневная газета журнал. Сегодня она распространяется по всей стране как и некоторые другие газеты. К качественной прессе кроме Таймса можно отнести ежедневные газеты Дейли телеграф Ежедневный телеграф 1855 год основания Гардиан Страж 1821 Файнэншл Таймс Финансовое время 1888 Индепендент Независимый. Период 18701914 годов отмеченным...
47754. ОСНОВЫ ПРАВА. КОНСПЕКТ ЛЕКЦИЙ 842.5 KB
  Это потребует высокопрофессионального состава юристов и достаточной правовой грамотности государственных служащих и других лиц, занятых юридической и иной деятельностью