Определение значения функционала

Новосибирский Государственный Технический Университет

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

Тема: Расчётно-Графическое Задание (РГЗ)

Группа: АП-318       Дата:

Преподаватель: Веретельникова Е.Л.

Студенты: Иванчиков И.В.

                        Вриант: III

г.Новосибирск 2003г.

Задача: Определить значение функционала

f(t)=

Ход работы:

1.Заполняем ячейки Excel’я A2:F2 условиями.

2.Кнопка: Caption: “Посчитать”

3.Описание переменных:

Option Explicit

Dim x1 As Integer, x2 As Integer, y1 As Integer, y2 As Integer

Dim a As Double, b As Double, c As Double, d As Double, E As Single

Dim x As Integer, y As Integer, Faktorial As Single, i As Integer

Dim dt As Double, n As Integer, m As Double, Otvet As Single

4.Процедура CommandButton1_Click:

x1 = Cells(2, 1)

x2 = Cells(2, 2)

y1 = Cells(2, 3)

y2 = Cells(2, 4)

x = Cells(2, 5)

y = Cells(2, 6)

a = ab(x1, 0) ^ 2 / (2 * ab(x1, y1) + Sqr(ab(x2, y2)))

b = 18 / (ab(y1, y2) + Sqr(ab(x1, x2)))

c = 20 / Sqr(cd(2, x))

d = 36 / Sqr(cd(3, y))

Otvet = (Integral(a, b) - Integral(a, d)) / (Integral(b, c) + Integral(b, d))

MsgBox (Otvet)

5. Function ab(p As Integer, q As Integer)

ab = Exp(1) ^ (p - q)

End Function

6. Function cd(a As Integer, z As Integer)

i = 1

cd = 0

Faktorial = 1

Do

E = (z * Log(a)) ^ (i - 1) / Faktorial

cd = cd + E

i = i + 1

Faktorial = Faktorial * (i - 1)

Loop While E >= 10 ^ (-2)

End Function

7. Function f(t As Double)

f = Sqr(Abs(1 - t - t * t))

End Function

8. Function Integral(o As Double, k As Double)

n = 51

dt = (k - o) / (n - 1)

For m = o To k Step dt

    If m = o Or m = k Then Integral = Integral + 0.5 * f(m) Else Integral = Integral + f(m)

Next

Integral = Integral * dt

End Function