Добавил:
abhai2013@gmail.com Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
16
Добавлен:
30.06.2018
Размер:
194.21 Кб
Скачать

ЛАБОРАТОРНА РОБОТА 3

МЕТОДИ ЧИСЕЛЬНОГО РОЗВ’ЯЗАННЯ СИСТЕМ ЛІНІЙНИХ РІВНЯНЬ

Студента ИТ 14-1 Красовского Абхая

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

Вариант №9

Блок-схема метода простой итерации для СЛАУ

Код:

#include <math.h>

#include <string.h>

double x1,x2,x3, er;

double f1(double x1, double x2, double x3)

{

return 2.4*x1 +2.5*x2 - 2.9*x3 - 4.5;

}

double f2(double x1, double x2, double x3)

{

return 0.8*x1 + 3.5*x2 - 1.4*x3 - 3.2;

}

double f3(double x1, double x2, double x3)

{

return 1.5*x1 - 2.3*x2 + 8.6*x3 + 5.5;

}

double g1(double x1, double x2, double x3)

{

return x1 - 0.005*f1(x1, x2, x3);

}

double g2(double x1, double x2, double x3)

{

return x2 - 0.005*f2(x1, x2, x3);

}

double g3(double x1, double x2, double x3)

{

return x3 - 0.005*f3(x1, x2, x3);

}

private: System::Void button4_Click(System::Object^ sender, System::EventArgs^ e)

{

Application::Exit();

}

private: System::Void button3_Click(System::Object^ sender, System::EventArgs^ e)

{

int i = 0;

for(i; er < fabs(f1(x1, x2, x3)) || er < fabs(f2(x1, x2, x3)) || er < fabs(f3(x1, x2, x3));i++)

{

x1 = g1(x1, x2, x3);

x2 = g2(x1, x2, x3);

x3 = g3(x1, x2, x3);

}

textBox5->Text = Convert::ToString(x1);

textBox6->Text = Convert::ToString(x2);

textBox7->Text = Convert::ToString(x3);

textBox8->Text = Convert::ToString(i);

}

private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e)

{

x1 = Convert::ToDouble(textBox1->Text);

x2 = Convert::ToDouble(textBox2->Text);

x3 = Convert::ToDouble(textBox3->Text);

er = Convert::ToDouble(textBox4->Text);

}

private: System::Void Form1_Load(System::Object^ sender, System::EventArgs^ e)

{

}

Результат:

Соседние файлы в папке Первый триместр