Курсовая работа: Функциональное и логическое программирование

((< X 0) (* 2 X))

)

)

;ФУНКЦИЯ РЕАЛИЗУЮЩАЯ ФАКТОРИЛ X

(DEFUN FACTORIAL (X)

(COND

((EQL X 0) 1)

((EQL X 1) 1)

(T (* X (FACTORIAL (- X 1))))

)

)

;ГАММА ДЛЯ ЦЕЛЫХ ПОЛОЖИТЕЛЬНЫХ ЧИСЕЛ

(DEFUN GAMMA_INT (X)

(FACTORIAL (- X 1))

)

;ВЫЧИСЛЕНИЕ ГАММА ФУНКЦИИ ДЛЯ ЛЮБЫХ X

(DEFUN GAMMA_ALL_X (X)

(DECLARE (SPECIAL Y))

(DECLARE (SPECIAL GAM))

(DECLARE (SPECIAL J))

(DECLARE (SPECIAL RES))

(IF (> X 0)

(PROGN

(SETQ Y (+ X 2))

(SETQ GAM (* (SQRT (* 2 (/ PI Y))) (EXP (+ (* Y (LOG Y)) (- (/ (- 1 (/ 1 (* 30 Y Y))) (* 12 Y)) Y)))))

(SETQ RES (/ GAM (* X (+ X 1))))

)

;ИНАЧЕ

(PROGN