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

)

;ИНАЧЕ

(PROGN

(SETQ J 0)

(SETQ Y X)

(DO

(())

((>= Y 0))

(SETQ J (+ J 1))

(SETQ Y (+ Y 1))

)

(SETQ GAM (GAMMA_POINT Y))

(DO

((I 0))

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

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

(SETQ I (+ I 1))

)

(SETQ RES GAM)

)

)

RES)

;ПОЛУЧАЕМ ЭЛЕМЕНТ ФУНКЦИИ

(SETQ FUNC 0)

(SETQ INPUT_STREAM (OPEN " D:\GAMMA.TXT" :DIRECTION :INPUT))

(SETQ FUNC (READ INPUT_STREAM))

(CLOSE INPUT_STREAM)

;РЕЗУЛЬТАТ ГАММА-ФУНКЦИИ

(SETQ OUTPUT_STREAM (OPEN "D:\RESULT.TXT" :DIRECTION :OUTPUT))