ЛАБОРАТОРНА РОБОТА 5

ІНТЕРПОЛЮВАННЯ ФУНКЦІЙ

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

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

Вариант №9

Блок-схема метода

Код:

#include<math.h>

double x,x1,Result;

int m,i,j;

double X[50];

double Y[50];

// Задана функція

double f (double x)

{

return 2 + cos(x);

}

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

{

if (textBox1->Text!="")

{

m = Convert::ToInt32(textBox1->Text);

//Очищення стовбців компоненту DataGridView1, якщо вони не пусті

dataGridView1->Columns->Clear();

//У компоненті DataGridView1 встановлення m стовбців

dataGridView1->ColumnCount = m;

//У компоненті DataGridView1 встановити 2 рядки

dataGridView1->RowCount = 2;

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

//Підпис стовбців «Координати n-ої точки»

dataGridView1->Columns[i]->Name="координати "+Convert::ToString(i+1)+" точки";

}

else

//Якщо не ввели кількість точок, то з’являється окно повідомлення про помилку

MessageBox::Show("Заповніть, будь-ласка,дані","Помилка вве-дення даних",MessageBoxButtons::OK, MessageBoxIcon::Exclamation);

}

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

{

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

//зчитування даних з таблиці у масиви

{

X[i] = Convert::ToDouble(this->dataGridView1->Rows[0]->Cells[i]->Value);

Y[i] = f(X[i]);

this->dataGridView1->Rows[1]->Cells[i]->Value = Convert::ToString(Y[i]);

}

}

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

{

Series^ plot1 = chart1->Series[0];

Series^ plot2 = chart1->Series[1];

Series^ plot3 = chart1->Series[2];

//Очищення компоненту Chart1

plot1->Points->Clear();

plot2->Points->Clear();

plot3->Points->Clear();

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

{

plot1->Points->AddXY(X[i],Y[i]);

plot2->Points->AddXY(X[i],Y[i]);

}

x1 = X[0];

while (x1 <= X[m-1])

{

plot3->Points->AddXY(x1,f(x1));

x1 += 0.01;

}

}

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

{

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

// лінійна інтерполяція

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

if (x >= X[i] && x <= X[i+1]) Result = Y[i]*((x - X[i+1]) / (X[i] - X[i+1])) + Y[i+1] * ((x - X[i]) / (X[i+1] - X[i]));

else if (x > X[m-1]) textBox2->Text = "Невірне значення Х";

else

{

textBox3->Text=Convert::ToString (Result);

textBox4->Text=Convert::ToString ((fabs(Result - f(x)) / f(x) * 100));

}

}

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

{

Application::Exit();

}

Результат:

---

Смотрите также файлы

• Lab1.docx

• Lab2.docx

• Lab2.docx

• Lab3.docx

• Lab3.docx