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

·A – рабочая переменная;

·START, X0 – начальное значение;

·PRES, E –точность вычисления.

Рисунок 3 – Функциональная модель решения задачи для поиска корня уравнения методом Ньютона

Рисунок 4 – Блок-схема решения задачи для функции NEWTOM

4. Программная реализация решения задачи

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

;ФУНКЦИЯ COSX - X3

(DEFUNF(X)

(- (COSX) (* XXX))

)

;ПРОИЗВОДНАЯ -sinx-3x2

(DEFUN DFDX (X)

(- (* -1 (SIN X)) (* 3 X X))

)

(SETQ X0 0.5)

(SETQ E 0.0001)

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

;ФУНКЦИЯ x-cosx

(DEFUN F(X)

(- X (COS X))

)

;ПРОИЗВОДНАЯ 1+sinx

(DEFUN DFDX (X)

(+ 1 (SIN X))

)

(SETQ X0 -1)