ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 13.06.2019
Просмотров: 98
Скачиваний: 1
ЛАБОРАТОРНА РОБОТА 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)
{
}
Результат: