Оптимизация химико-технологических процессов органического синтеза. Бочкарев В.В - 85 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

85
quit: IF i > (E * (B - A)) GOTO new
F = F1: x = x1
END SUB
Приложение6
Решение нелинейных уравнений
1. Подпрограмма нахождения решения уравненияx = F(x) (Qbasic)
SUB urawnenie (x!, x1!, NF)
REM Подпрограмма решения уравнения x = F(x) составлена
REM Бочкаревым В.В., ТПУ, кафедра ТООС
REM Вид функции f(x) задается FUNCTION F(x,NF)
REM х - начальное приближение; х1 - решение
REM NF - номер функции в FUNCTION F(x,NF)
REM Абсолютная погрешность вычислений - 0.00001
xm1 = x: Fm1 = F(xm1, NF)
x0 = Fm1: F0 = F(x0, NF)
IF x0 = F0 THEN
x1 = x0: GOTO m2
END IF
kcicle = 0: Sign = 1
m1: a = (Fm1 - xm1) / (F0 - x0)
IF a = 1 THEN
kcicle = kcicle + 1: Sign = -Sign
Nitro PDF Trial
www.nitropdf.com

Страницы