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

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

(IF (< (ABS F_XN) EPS) (SETQ K 10000))

;ЗАДАЕМ НОВЫЕ ЗНАЧЕНИЯ ТОЧКАМ

(SETQX2 X1)

(SETQ X1 X0)

(SETQ X0 XN)

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

(SETQF_X2 F_X1)

(SETQ F_X1 F_X0)

(SETQ F_X0 F_XN)

;УВЕЛИЧИВАЕМ СЧЕТЧИК

(SETQ K (+ K 1))

)

;ВОЗВРАЩАЕМ МИНИМУМ ФУНКЦИИ

XN

)

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

(SETQ MIMIMUM (PARABL_METHOD MIN_VAL MAX_VAL EPS (FUNCTION FUNC)))

;ЗАПИСЫВАЕМРЕЗУЛЬТАТ

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

;ЗАПИСЫВАЕММИНИМУМ

(PRINT 'MIMIMUM OUTPUT_STREAM)

(PRINT MIMIMUM OUTPUT_STREAM)

;ЗАКРЫВАЕМФАЙЛ

(TERPRI OUTPUT_STREAM)

(CLOSE OUTPUT_STREAM)

5 Пример выполнения программы

Пример 1.