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

(SETQ L (CDDR CN))

(SETQ Y X)

(DO

((J 2))

((>= J 8))

(SETQ Y (+ Y 1))

(SETQ CO (CAR L))

(SETQ SER (+ SER (/ CO Y)))

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

)

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

;ДЛЯ НЕЦЕЛЫХ ПОЛОЖИТЕЛЬНЫХ X

(DEFUN GAMMA_LN_X (X)

(EXP (GAMMA_LN X))

)

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

(DEFUN GAMMA (X)

(COND

((= X 0) 0)

;ЦЕЛОЕ ПОЛОЖИТЕЛЬНОЕ

((AND (> X 0) (= (- X (FLOOR X)) 0)) (GAMMA_INT X))

;НЕ ЦЕЛОЕ ПОЛОЖИТЕЛЬНОЕ

((AND (> X 0) (/= (- X (FLOOR X)) 0)) (GAMMA_LN_X X))

;ИНАЧЕ 0