Создание функций пользователя f1v, f2v, f3v, qrf
Для того чтобы создать новую функцию и включить ее в библиотеку функций программы Excel, необходимо записать текст этой функции на языке программирования Visual Basic for Applications (VBA). Запись текста функции начнем щелчком левой клавиши (ЩЛК) по кнопке "Редактор Visual Basic" на панели инструментов "Visual Basic", либо выбрав меню "Сервис Макрос Редактор Visual Basic ".
В открывающемся окне программы "Microsoft Visual Basic" (VB) выбираем меню "Вставка Модуль". В меню "Вставка" выбираем строку "Процедура…" ЩЛК.
В окне диалога "Вставка процедуры" в поле "Имя" вводим имя создаваемой функции F1v , активизируем переключатель "Функция (Function)" и нажимаем кнопку "ОК".
Замечание !!! Имя функции должно отличаться от возможных ссылок на ячейки таблицы (диапазон от A1 до IV65536). Не соблюдение этого правила приводит к ошибкам при выполнении процедур и функций, записанных пользователем.
Открывается окно листа модуля программы, на котором записаны формируемые программой операторы описания функции
Public Function f1v () End Function
Необходимо, используя эту заготовку записать функцию пользователя.
Public Function f1v(x, a, b)
F1v = a + Exp(b * x)
End Function
После чего можно перейти на лист книги Excel "Лаб_2" и записать в ячейку С16 столбца таблицы, отведенного для функции F1v, обращение "=F1v(A16;$C$13;$E$13)"В качестве параметров x,a,b в обращение введены ссылки на ячейки, в которых записаны соответствующие значения.
Повторяя действия пунктов 2 – 5, вводим в окно модуля описания функций, необходимых для выполнения работы: F2v, F3v и RQF.
Public Function F2v(x, a, b)
F2v = (a + b * x) / (1 + x)
End Function
Public Function F3v(x, a, b)
F3v = a / (b * x)
End Function
Public Function RQF(x, a, b, c, d)
' x - аргумент функции, a,b,c,d - параметры
' c- альфа, d - бетта
If (x < c) Then RQF = a + Exp(b + x) _
Else _
If (x <= d) Then RQF = (a + b * x) / (1 + x) _
Else RQF = a / (b * x)
End Function
Записав эту функции на листе модуля необходимо перейти в окно программы Excel и ввести обращения к соответствующим функциям в ячейки таблицы. В рассматриваемом нами примере это ячейки C16, D16, E16 и F16.
В ячейку C16 запишем: "=F1v(A16;$C$13;$E$13)";
В ячейку D16 запишем: " =F2v(A16;$C$13;$E$13)";
В ячейку Е16 запишем: " =F3v(A16;$C$13;$E$13)";
В ячейку F16 запишем: " =rqf(A16;$C$13;$E$13;$G$13;$I$13)".
Заполним ячейки столбцов C,D,E и F значениями функций, "протягивая" УМ от 16-й строки таблицы до последней (в примере 36-й) строки с заданным значением аргумента.
После вычисления таблицы значений функций, начинаем ее форматирование с форматирования столбца аргумента Х. Выделяем столбец таблицы значений аргумента Х. Открываем меню "Формат Ячейки…" в окне "Формат ячеек" на листе "Число" определяем разрядность чисел, записанных в этот столбец. Для аргумента разрядность определяется числом разрядов в дробной части параметра Dx. Затем, выделяем все оставшиеся ячейки таблицы, в которых записаны результаты вычислений, и выполняем их форматирование аналогично форматированию столбца аргумента Х. Число разрядов в дробной части значений функций следует взять равным 4 или 5.
Выполнив форматирование чисел в таблице, переходим к ее оформлению. Создаем рамку таблицы. (Меню "Формат Ячейки…" в окне "Формат ячеек" лист "Граница")
Построение графика разветвляющейся функции F(x) начинаем с выделения столбца значений функции. После чего нажимаем кнопку "Мастер диаграмм" на панели инструментов "Стандартная" или в меню "Вставка" "Диаграмма" ЩЛК. Выполняем форматирование диаграммы по методике, приведенной в указаниях к лабораторной работе №1.