Курсовая работа: Нахождение корней уравнения методом Ньютона (ЛИСП-реализация)

Файл FUNCTION.txt (Пример 3)

;ФУНКЦИЯ X2+2X

(DEFUN F(X)

(+ (* X X) (* 2 X))

)

;ПРОИЗВОДНАЯ 2X+2

(DEFUN DFDX (X)

(+ 2 (* 2 X))

)

(SETQ X0 -2.3)

(SETQ E 0.0001)

Файл NEWTON.txt

;ПОДГРУЖАЕМФУНКЦИЮ

(LOAD "D:\\FUNCTION.TXT" )

;РЕАЛИЗАЦИЯМЕТОДАНЬЮТОНА

(DEFUN NEWTOM (START PRES FUNCTN DFUNCTN)

;ОБЪЯВЛЕНИЕ ПЕРЕМЕННЫХ

(DECLARE (SPECIAL X))

(DECLARE (SPECIAL A))

;ЗАДАЕМ НАЧАЛЬНОЕ ЗНАЧЕНИЕ

(SETQ X START)

(SETQ A (/ (FUNCALL FUNCTN X) (FUNCALL DFUNCTN X)))

(LOOP

(SETQ X (- X A))

(SETQ A (/ (FUNCALL FUNCTN X) (FUNCALL DFUNCTN X)))

;ЕСЛИ ДОСТИГЛИ ТРЕБУЕМОЙ ТОЧНОСТИ ВЫХОДИМ ИЗ ЦИКЛА

(IF (<= (ABS A) PRES) (RETURN X))

)

)