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

F ЛАБОРАТОРНА РОБОТА 2

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

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

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

Блок-схема метода простой итерации

Код:

double fx(double x, double y)

{

return (x*x + y*y - 0.1);

}

double fy(double x, double y)

{

return (2*x*y - 0.1);

}

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

{

}

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

{

Application::Exit();

}

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

{

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

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

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

int i = 0;

double c = 0.1;

xNext = fx(x,y); yNext = fy(x,y);

i++;

while(!(sqrt(pow(xNext - x,2) + pow(yNext - y,2)) < eps))

{

x = xNext;

y = yNext;

xNext += c*fx(x,y);

yNext += c*fy(x,y);

i++;

}

label10->Text = Convert::ToString(xNext);

label11->Text = Convert::ToString(yNext);

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

}

Результат:

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