Курсовая работа: Аппроксимация функции методом наименьших квадратов

5 3,5 2,6 0,5 5 3,5 2,6 0,5

3,5 2,85 2,43 -0,89 0 0,4 0,61 -1,24

2,56 2,43 2,44 -1,86 0 0,638 1,109 -2,116

5 3,5 2,6 0,5

0 0,4 0,61 -1,24

0 0 0,136 -0,138

Результаты расчета:

С₁ =1,71; С₂ =-1,552; С₃ =-1,015;

Аппроксимирующая функция:

4 . Текст программы

ProgramApprF;

Uses Crt;

const n=3;

type

mass=array[1..5]of real;

mass1=array[1..3,1..3] of real;

mass2=array[1..3] of real;

var

X,Y,E,y1,delta : mass;

A: mass1;

B,x1: mass2;

big,r,sum,temp,maxD,Q:real;

i,j,k,l,num : byte;

Procedure VVOD(var E: mass);

Begin

For i:=1 to 5 do

read(E[i]);