Главная / Разработка алгоритмов / Вычисление значения функции в заданной точке

Вычисление значения функции в заданной точке

---

Задание. Даны функции y1 и y2:


Необходимо вычислить значения этих функций при заданных значениях их параметров и при заданном значении аргумента: х=8,732; a=1,72; b=2,158; φ=1,57.

Решение. Для решения этой простой задачи будет использован алгоритм линейной структуры, в котором операции выполняются последовательно, одна за другой. Блок-схема алгоритма представлена на рис. 1.

Программа, написанная на языке Visual Basic for Applications (VBA) будет состоять из двух процедур. Первая процедура предназначена для создания интерфейса пользователя, то есть она будет формировать на рабочем листе Excel все надписи, необходимые для создания формы, с помощью которой пользователь будет управлять программой. Вторая процедура должна выполнять необходимые расчёты. Сначала разработаем интерфейс пользователя, то есть спроектируем рабочий лист Excel. Для этого на листе Excel должны быть предусмотрены ячейки для ввода исходных данных и вывода результатов вычисления. Такой интерфейс может быть представлен следующим образом (рис.2):



Ниже представлена первая процедура, которая запускается кнопкой 1 (CommandButton1):

Private Sub CommandButton1_Click()

[a1] = "a="

[a2] = "b="

[a3] = "f="

[a4] = "x="

[f1] = "y1"

[g1] = "y2"

End Sub

Вторая процедура запускается другой кнопкой управления (CommandButton2) и имеет следующий вид:

Private Sub CommandButton2_Click()

a = [b1]

b = [b2]

f = [b3]

x = [b4]

y1 = a * x + b * (1.5 + Sin(x)) / (1.5 + Cos(x))

y2 = a * x + b * (1.5 + Sin(x)) / (1.5 + Sin(x + f))

[e2] = y1

[f2] = y2

End Sub

В столбец В вводим исходные данные (рис. 3):

Результаты вычислений показаны на рис.4.

---