Информатика для I курса. Часть I. Никифоров С.Н. - 18 стр.

UptoLike

ВУЗ: 

СПбГАСУ | Санкт-Петербург

Составители: 

Рубрика: 

34 35
с промежуточными результатами пошагового вычисления квадра-
тичной формы в Excel.
В результате в ячейке F41 появится значение квадратичной фор-
мы, равное 1220520.
6.5. Вычисление квадратичной формы с использованием
матричных функций VBA
Для вычисления квадратичной формы в VBA необходимо соз-
дать пользовательскую функцию в виде модуля VBA.
Программа вычисления квадратичной формы в VВА
Function zz(a As Variant, y As Variant) As Variant
z1 = Application.Transpose(y) 'транспонирование y
z2 = Application.Transpose(a)
z3 = Application.MMult(z1, z2)
z4 = Application.MMult(a, a)
z5 = Application.MMult(z4, a)
z6 = Application.MMult(z3, z5)
z7 = Application.MMult(z6, y)
zz = z7
End Function
Некоторые комментарии к программе:
в программе используются промежуточные переменные z1 – z7;
в программе можно ввести комментарии для каждой строки;
процесс отладки модуля можно выполнять по частям, для
чего соответствующим образом изменять последний оператор при-
сваивания, например zz = z5.
После отладки программного модуля и внесения его в мастер
функций f
x
следует, находясь в ячейке G41, обратиться через ма-
стер функций f
x
в данном случае к функции с именем zz (рис. 6.6).
Так как функция zz(A, Y) от двух параметров, то в появившем-
ся окне функции в окне «A» указать адрес объекта (параметра) А –
A8:D11, а в окне «Y» указать адрес объекта (параметра) Y – H8:H11.
Рис. 6.6
Затем одновременно нажать клавиши Ctrl-Shift-Enter.
В ячейке G41 появится ответ 1220520.
Таким образом, значение квадратичной формы z = Y
T
A
T
A
3
Y для
заданного примера, вычисленное в VBA, равно 1220520.
ЧАСТЬ ВТОРАЯ
6.6. Операции над массивами в Excel
Пусть в соответствии с заданием (рис. 6.12) необходимо по
формуле вычислить S при заданных массивах X, Y и B (рис. 6.7).
Выполнение лабораторной работы начинается с внесения ис-
ходных данных задания в соответствующие ячейки таблицы Excel
в выбранной адресации:

Страницы