Основы офисного программирования и язык VBA

         

Математические функции


Набор математических функций VBA достаточно стандартный. Перечислим их с краткими пояснениями:

  • Abs(число) - абсолютное значение числа.
  • Atn(число)- арктангенс (в радианах) аргумента, задающего тангенс угла.
  • Cos(число) - косинус угла. Аргумент число задает угол в радианах.
  • Exp(число) - экспонента, т. е. результат возведение числа e (основание натуральных логарифмов) в указанную степень.
  • Log(число) - натуральный логарифм числа.
  • Rnd[(число)] - результат представляет равномерно распределенное случайное число в интервале [0 - 1]. Если аргумент число не задан или больше нуля, то порождается очередное случайное число, если он равен 0, то результатом будет предыдущее случайное число, а если число меньше нуля, то всякий порождается одно и то же число, определяемое аргументом. Перед тем, как получить последовательность случайных чисел необходимо вызвать функцию Randomize для инициализации последовательности. Заметим, для формирования значения случайных чисел используется таймер. Чтобы получить целочисленную последовательность равномерно распределенных случайных чисел в интервале [Min - Max], следует использовать следующее преобразование

    Int((Max - Min +1)*Rnd)+ Min

В примерах предыдущей лекции мы неоднократно использовали эту функцию для инициализации массивов с числовыми данными.

  • Sgn(число) - знак числа (Если число больше нуля - 1, равно нулю - 0, меньше нуля - -1).
  • Sin(число) - синус угла. Аргумент число задает угол в радианах.
  • Sqr(число) - квадратный корень.
  • Tan(число) - тангенс угла. Аргумент число задает угол в радианах.

Во всех этих описаниях под аргументом функции число понимается числовое выражение.

В справочной системе или в любом математическом справочнике Вы сможете найти указания, как на основе этого базиса, можно вычислить большое число других математических функций. Например, вычисление гиперболического синуса производится по формуле:

HSin(X) = (Exp(X) - Exp(-X))/2

а вычисление арккотангенса:

Arccotan(X) = Atn(X) + 2*Atn(1)



Содержание раздела