Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра програмного забезпечення
Інформація про роботу
Рік:
2009
Тип роботи:
Звіт про виконання лабораторної роботи
Предмет:
Інші
Група:
ПІ
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
КАФЕДРА ПРОГРАМНОГО ЗАБЕЗПЕЧЕННЯ
Звіт
Про виконання лабораторної роботи №3
Tема: «задача апроксимації»
Мета: навчитися будувати поліном Лагранжа для функції, заданої таблично та зображати отриманий многочлен графічно.
Завдання: Побудувати поліном Лагранжа для функції, заданої таблично та побудувати графік отриманого многочлена.
Варіант 11
№ точки
Значення функції
1
9,68e-07
2
2,13e-06
3
4,71e-06
4
1,02e-05
5
2,05e-05
6
4,19e-05
7
8,10e-05
8
1,45e-04
9
2,54e-04
10
4,37e-04
11
7,10e-04
12
1,12e-03
13
1,77e-03
Текст програми:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include<math.h>
#include "Unit1.h"
#include<math.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDiagramForm *DiagramForm;
double mas[14];
//---------------------------------------------------------------------------
__fastcall TDiagramForm::TDiagramForm(TComponent* Owner)
: TForm(Owner)
{
Chart1->Visible=false;
Label1->Visible=false;
DiagramForm->Height=700;
DiagramForm->Width=300;
}//---------------------------------------------------------------------------
void __fastcall TDiagramForm::BitBtn1Click(TObject *Sender)
{
mas[0]=StrToFloat(Edit1->Text);mas[1]=StrToFloat(Edit2->Text);
mas[2]=StrToFloat(Edit3->Text);mas[3]=StrToFloat(Edit4->Text);
mas[4]=StrToFloat(Edit5->Text);mas[5]=StrToFloat(Edit6->Text);
mas[6]=StrToFloat(Edit7->Text);mas[7]=StrToFloat(Edit8->Text);
mas[8]=StrToFloat(Edit9->Text);mas[9]=StrToFloat(Edit10->Text);
mas[10]=StrToFloat(Edit11->Text);mas[11]=StrToFloat(Edit12->Text);
mas[12]=StrToFloat(Edit13->Text);
double s,mas1[14];
s=0;
mas1[0]=mas[0];
int i;
for(i=1;i<13;i++)
{
s=s+mas1[i-1];
mas1[i]=mas[i]-s;
}
for(i=0;i<13;i++)
{
Label1->Caption= Label1->Caption + " " + "+x^" + IntToStr(i)+ "* "
+ FloatToStr(mas1[i]);
}
Chart1->Visible=true;
DiagramForm->Height=700;
DiagramForm->Width=1350;
float LEFT_LIMIT,RIGHT_LIMIT,STEP;
LEFT_LIMIT=-3.2;
RIGHT_LIMIT=3;
STEP=0.001;
float X ;
//Build graph with help TChart
for(float X=LEFT_LIMIT;X<RIGHT_LIMIT;X+=STEP)
{
Series1->Add((mas1[0]+mas1[1]*X+ mas1[2]*pow(X,2)+ mas1[3]*pow(X,3)
+ mas1[4]*pow(X,4)+ mas1[5]*pow(X,5)+ mas1[6]*pow(X,6)+ mas1[7]*pow(X,7)
+ mas1[8]*pow(X,8)+ mas1[9]*pow(X,9)+ mas1[10]*pow(X,10)+ mas1[11]*pow(X,11)
+ mas1[12]*pow(X,12)),FloatToStrF(X,ffFixed,3,3),clRed);
}
Edit1->Visible=false;Edit2->Visible=false;
Edit3->Visible=false;Edit4->Visible=false;
Edit5->Visible=false;Edit6->Visible=false;
Edit7->Visible=false;Edit8->Visible=false;
Edit9->Visible=false;Edit10->Visible=false;
Edit11->Visible=false;Edit12->Visible=false;
Edit13->Visible=false;Label1->Visible=true;
BitBtn1->Visible=false;
}
//---------------------------------------------------------------------------
Протокол роботи програми:
Висновок: на даній лабораторній роботі я навчився будувати поліном Лагранжа для функції, заданої таблично та зображати отриманий многочлен графічно.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора