Курсовая работа: ЛИСП-реализация основных способов вычисления гамма-функции

(SETQ L (CDR L))

(SETQ J (+ J 1))

)

(SETQ Y (+ X 5.5))

(SETQ Y (- Y (* (+ X 0.5) (LOG Y))))

(SETQ Y (+ (* -1 Y) (LOG (* (CAR CN) (/ SER X)))))

)

;ВЫЧИСЛЕНИЕ ГАММА-ФУНКЦИИ ЧЕРЕЗ ЕЕ ЛОГАРИФМ

;ГАММА ДЛЯ ПОЛОЖИТЕЛЬНЫХ АРГУМЕНТОВ

(DEFUN GAMMA (X)

(EXP (GAMMA_LN X))

)

;ГАММА ДЛЯ ЦЕЛЫХ ЧИСЕЛ

(DEFUN GAMMA_WHOLE (X)

(SETQ X (- X 1))

(DO

((RES 1) (RS 1))

((EQL X 0) RS)

(SETQ RS (* RES RS))

(SETQ X (- X 1))

(SETQ RES (+ RES 1))

)

)

;ГАММА ДЛЯ МНОЖЕСТВА ТОЧЕК

(DEFUN GAMMA_POINT (X)

(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)))))