Курсовая работа: Создание функциональной модели вычисления минимума заданной функции методом парабол

(DECLARE (SPECIAL B))

(DECLARE (SPECIAL C))

(DECLARE (SPECIAL D))

(DECLARE (SPECIALZ))

;---------------------

;УСТАНАВЛИВАЕМ ПЕРВУЮ ТОЧКУ

(SETQ X1 (+ X0 H))

;УСТАНАВЛИВАЕМ ВТОРУЮ ТОЧКУ

(SETQ X2 (+ X0 (* 2 H)))

;ВЫЗЫВАЕМ ФУНКЦИЮ FN

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

(SETQ F_X0 (FUNCALL FN X0))

(SETQ F_X1 (FUNCALL FN X1))

(SETQ F_X2 (FUNCALL FN X2))

(DO

((K 0))

;МАКСИМАЛЬНОЕ КОЛИЧЕСТВО ШАГОВ 10000 (>= K 10000)

((>= K 10000))

;ВЫПОЛНЯЕМ ДЕЙСТВИЯ СОГЛАСНО АЛГОРИТМУ ПОИСКА МИНИМУМА МЕТОДОМ ПАРАБОЛ

(SETQ Q (/ (- X0 X1) (- X1 X2)))

(SETQ A (+ (- (* Q F_X0) (* (* Q (+ 1 Q)) F_X1)) (* Q Q F_X2)))

(SETQ B (+ (- (* (+ (* 2 Q) 1) F_X0) (* (+ 1 Q) (+ 1 Q) F_X1)) (* Q Q F_X2)))

(SETQ C (* (+ 1 Q) F_X0))

(SETQ D (SQRT (- (* B B)(* 4 A C))))

(IF (> (ABS (+ B D)) (ABS (- B D)))

(SETQ Z (+ B D))

(SETQ Z (- B D))

)

(SETQ XN (- X0 (/ (* (- X0 X1) 2 C) Z)))