Числові функції.

TTT

Зсув

(SHIFT m n) — зсув числа m на n бітів.

Якщо m - додатне, то функція повертає результат зсуву числа n вліво на m бітів. Якщо m - від’ємне, то число n зсувається вправо на -m бітів.

(DEFUN SHIFT (N M)

( (AND (INTEGERP N) (INTEGERP M))

((ZEROP M) N)

((PLUSP M) (SHIFT (* N 2) (SUB1 M)) )

(SHIFT (TRUNCATE N 2) (ADD1 M))

)

(BREAK (LIST 'SHIFT N M) '"Noninteger Argument" )

)$ (SHIFT 3 1)$ (SHIFT 3 -1)$ (SHIFT 4 -8)$ (SHIFT 3 5)

61096

$ (SHIFT D 10)

Noninteger Argument Break: (SHIFT D 10)

НСД, НСК

(GCD n1 n2 ... nM)

(LCM n1 n2 ... nM).

Ці функції знаходять відповідно найбільший спільний дільник M чисел та найменше спільне кратне.

$ (GCD 24 66 600)$ (LCM 24 66 600)

66600

Ірраціональні та трансцендентні функції

У файлі irratnal.lsp міститься великий набір ірраціональних та трансцендентних функцій. Аргументи тригонометричних функцій задаються в радіанах.

1.(EXP x)експонента ex

2.(EXPT x y)степінь xy