Function g(x)

If x <= 0 Then g = Sin(x) Else g = Exp(-x)

End Function

– нажать пиктограмму – Run Sub/UserForm;

– в появившемся окне Macros щелкнуть по клавише Cancel, что обеспечивает внесение функции g(x) в библиотеку модулей мастера функций fx; с этого момента функцияg(x) доступна всем пользователям мастера функций fxв разделах “Полный алфавитный перечень” либо “Определенные пользователем”;

ИМЕНА ПОЛЬЗОВАТЕЛЬСКИХ ФУНКЦИЙ НЕ ДОЛЖНЫ СОВПАДАТЬ С АДРЕСАМИ ЯЧЕЕК ТАБЛИЦЫ EXCEL.

– В программах используется функция Format(x, "0.0#"),которая обеспечивает вывод указанной переменной, в данном случае X,в заданном формате "0.0#", в данном случае, один разряд до десятичной точки, два – после;

– В модуле с оператором For Each … nextиспользуетсядинамическое объявление массивов

Dim x() As Double

Dim y() As Double

с последующим уточнением мерности массивов

ReDim x((xk - xn) / xd)

ReDim y((xk - xn) / xd),которое может размещаться в любом месте программы;

– Так как оператор цикла For Each … nextможет оперировать только с элементами одного множества, то для вывода спектров значений аргумента X и функции g(x) используются два разных оператора

 

For Each n In x

Next n

и

For Each n In y

Next n.