inform4

Министерство образования и Науки Российской Федерации

Казанский национальный исследовательский технологический университет

Кафедра химической кибернетики

Лабораторная работа №4

«Аппроксимация. Метод наименьших квадратов»

Выполнили студентки

гр.1121-51

Абдуллина А.,

Исхакова А.

Проверил: Шулаев М.В.

Казань, 2013

Работа 4.

Задача: по исходным данным определить вид аппроксимирующей функции и найти её коэффициенты.

Решение в таблице:

После построения графика, вычислили координаты средних точек. Затем добавили их на график. Нашли наиболее близкую точку к экспериментальной кривой и определили тип зависимости. В нашем случае это .

1).Решение в таблице Excel.

2)Решение в программе Visual Basic.

Option Base 1

Sub MNK()

Dim x(6), y(6), yr(6)

s1 = 0: s2 = 0: s3 = 0: s4 = 0

j1 = 1: i1 = 3

For i = 1 To 6

x(i) = Worksheets("мнк").Cells(i1, j1).Value

y(i) = Worksheets("мнк").Cells(i1, j1 + 1).Value

s1 = s1 + 1 / x(i)

s2 = s2 + 1 / y(i)

s3 = s3 + (1 / x(i)) ^ 2

s4 = s4 + (1 / y(i)) * 1 / x(i)

i1 = i1 + 1

Next i

a = (s3 * s2 - s4 * s1) / (6 * s3 - s1 ^ 2)

b = (6 * s4 - s2 * s1) / (6 * s3 - s1 ^ 2)

a1 = 1 / a

b2 = b * a1

Worksheets("мнк").Range("a15").Value = a1

Worksheets("мнк").Range("a16").Value = b2

j1 = 3: i1 = 13

For i = 1 To 6

yr(i) = a1 * x(i) / (b2 + x(i))

Worksheets("мнк").Cells(i1, j1).Value = yr(i)

i1 = i1 + 1

Next i

End Sub

Вывод: по исходным данным определили вид аппроксимирующей функции. В нашем случае это Также нашли коэффициенты: a = 3,010737; b = 5,017708.