Программирование на языке Автолисп. Куляс О.С. - 19 стр.

                                                                  19
    4.Создать функцию LG, вычисляющую десятичный логарифм вво-
димого числа по формуле: LG X= LN X/LN 10 при X /= 0.
    5.Создать функцию CBR вычисляющую корень N-ой степени из
вводимого числа при N>=0.
    6.Создать функцию STEP, производящую возведение вводимого
числа X в дробную степень, с показателем M/N.
    При создании функций использовать диалог в виде запросов и
подсказок, созданный функциями семейства GET и INITGET.
    7. Выйти из АВТОКАДа командой END.
    9. Составить отчет, который должен содержать все вводимые
функции АВТОЛИСПа и возвращаемые результаты по всем пунктам
задания.

    4.Общие сведения

    Создание функций пользователя в АВТОЛИСПе

    Для определения новых функций используется специальная всто-
енная функция DEFUN (DEFine FUNction - определить функцию). Эта
функция создает свою собственную замкнутую область локальных пере-
менных. Формат этой функции:
    (defun <имя> <список аргументов> <выражение>...)
     С помощью функции DEFUN определяется функция с именем, зада-
ваемым аргументом <имя> (заметим, что имя функции заключается в
кавычки автоматически, и пользователь не должен делать это "вручную".
За аргументом <имя> следует <список аргументов> (возможно, пустой);
за списком может следовать косая черта, а за ней - одно или несколько
имен локальных переменных определяемой функции. Косая черта
должна быть отделена по крайней мере одним пробелом и от последнего
аргумента определяемой функции (если таковые есть), и от первой
локальной переменной. При отсутствии аргументов и переменных после
имени определяемой функции задается пустой список, заключенный в
круглые скобки. Например:

    (defun имя (x y)...)        ;определяемая функция "имя" имеет
                              ;два аргумента
    (defun имя (/ a b)...)      ;две локальных переменных
    (defun имя (x / temp)...)     ;один аргумент и одна локальная
                              ;переменная
    (defun имя ()...)            ;нет ни аргументов, ни локальных
                               ;переменных
    После аргументов и локальных переменных могут задаваться выра-
жения, котрые нужно вычислить при исполнении определяемой функции.