Основы автоматизированного проектирования химических производств. Миронов В.М - 132 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

132
(SETQ_P1_(GETPOINT_"\n_Начальная точка_"))
(SETQ_L_(GETDIST_"\n_Длина стороны квадрата_"))
(SETQ_P2_(POLAR_P1_0.0_L))
(SETQ_P3_(POLAR_P2_(/_PI_2)_L))
(SETQ_P4_(POLAR_P3_PI_L))
(COMMAND_"отрезок"_P1_P2_P3_P4_"з") ;"з" – задается опция замыкания
(SETQ_R_(/_L_2))
(SETQ_PC_(INTERS_P1_P3_P2_P4))
(COMMAND_"круг"_PC_R)
;Конец программы
8.6. Подпрограммы ветвления и циклы
В качестве подпрограмм в AutoLISPе используются уже известные
функции (DEFUN).
Ветвление
(IF_<условие>_<функция1>_<функция2>).
Если <условие > не NIL, то выполняется <функция1>, иначе - <функция2>.
Для записи условий используются логические функции:
"=", "<", ">", "/=" - равно, меньше, больше, не равно;
"<=", ">=" - меньше, или равно (не больше), больше, или равно (не мень-
ше);
"NOT" -"не" логическое отрицание;
"AND" -"и" логическое
сложение;
"OR" -"или" логическое умножение.
Все эти функции возвращают одно из двух значений "Т" ("Да") - условие
выполняется, или "NIL" ("нет") - условие не выполняется.
(=_<атом>_<атом>) - если атомы равны, то возвращается "Т".
(/=_<атом>_<атом>) - если атомы равны, то возвращается "NIL".
При выполнении операций над списком выражений:
(NOT_<выражение>), (AND_<выражение>...), (OR_<выражение>...).
;Программа 4. Вычисление
тангенса угла
(DEFUN_TAN(A_/S_C)
(SETQ_S_(sin_A)
(SETQ_C_(sin_A)
(IF_(/=_C_0.0)(/_S_C)_"бесконечность")
) ;Конец программы
В AutoLISPе цикл организуется функцией:
(WHILE_<условие>_<выражение>).
Пока <условие> не равно NIL выполняется <выражение>.

Страницы