Курсовая работа: ЛИСП-реализация основных способов вычисления гамма-функции
Условные обозначения:
- X – параметр функции;
- RS – инкремент;
- GN – список коэффициентов;
- Y – вспомогательная переменная;
- RES – результат вычисления гамма-функции;
- GAM – временная переменная, содержащая вычисление гамма-функции.
Рисунок 3 – Функциональная модель решения задачи для функции GAMMA
Рисунок 4 – Функциональная модель решения задачи для функции GAMMA_WHOLE
Рисунок 5 – Блок-схема решения задачи для поиска логарифма гамма-функции GAMMA_LN
Рисунок 6 – Блок-схема решения задачи для поиска логарифма гамма-функции GAMMA_POINT
4. Программная реализация решения задачи
;СПИСОК КОЭФФИЦИЕНТОВ
(SETQ CN '(2.5066282746310005 1.0000000000190015 76.18009172947146 -86.50532032941677 24.01409824083091
-1.231739572450155 0.1208650973866179e-2 -0.5395239384953e-5))
;ЛОГАРИФМ ГАММА ФУНКЦИИ
(DEFUN GAMMA_LN (X)
(SETQ SER (CADR CN))
(SETQ L (CDDR CN))
(SETQ Y X)
(DO
((J 2))
((>= J 8))
(SETQ Y (+ Y 1))
(SETQ CO (CAR L))