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

(SETQ Y X)

(DO

(())

((>= Y 0))

(SETQ J (+ J 1))

(SETQ Y (+ Y 1))

)

(SETQ GAM (GAMMA_ALL_X Y))

(DO

((I 0))

((>= I (- J 1)))

(SETQ GAM (/ GAM (+ X I)))

(SETQ I (+ I 1))

)

(SETQ RES GAM)

)

)

RES

)

;ЛОГАРИФМГАММАФУНКЦИИ

(DEFUN GAMMA_LN (X)

(DECLARE (SPECIAL SER))

(DECLARE (SPECIAL L))

(DECLARE (SPECIAL CN))

(DECLARE (SPECIAL Y))

(DECLARE (SPECIAL CO))

;МАССИВКОЭФФИЦИЕНТОВ

(SETQ CN '(2.5066282746310005 1.0000000000190015 76.18009172947146 -86.50532032941677 24.01409824083091

-1.231739572450155 0.1208650973866179e-2 -0.5395239384953e-5))