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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

67
110 GOSUB 2000: fi = z
120 PRINT "Начальное значение функции"; z
130 FOR i = 1 TO n: PRINT x(i); " "; : NEXT i: PRINT ""
140 ps = 0: bs = 1
REM исследование вокруг базисной точки
180 j = 1: fb = fi
200 x(j) = y(j) + k
210 GOSUB 2000
220 IF z < fi THEN GOTO 280
230 x(j) = y(j) - k
240 GOSUB 2000
250 IF z < fi THEN GOTO 280
260 x(j) = y(j)
270 GOTO 290
280 y(j) = x(j)
290 GOSUB 2000
300 fi = z
310 PRINT "Исследующий поиск"; z
320 FOR i = 1 TO n: PRINT x(i); " "; : NEXT i: PRINT ""
330 IF j = n THEN GOTO 360
340 j = j + 1
350 GOTO 200
360 IF fi < fb - 1E-08 THEN GOTO 540
REM после оператора 360, если функция уменьшилась,
REM произвести поиск по абразцу
380 IF ps = 1 AND bs = 0 THEN GOTO 420
REM но если исследование производилось вокруг точки шаблона
REM и уменьшение функции не было достигнуто,
REM то изменить базисную точку в операторе 420
REM в противном случае уменьшить длину шага в операторе 490
410 GOTO 490
420 FOR i = 1 TO n: p(i) = b(i): y(i) = b(i): x(i) = b(i): NEXT i
430 GOSUB 2000: bs = 1: ps = 0
440 fi = z: fb = z
450 PRINT "Замена базисной точки"; z
460 FOR i = 1 TO n: PRINT x(i); " "; : NEXT i: PRINT ""
480 j = 1: GOTO 200
490 k = k / 10
500 PRINT "Уменьшить длину шага"
510 IF k < 1E-08 THEN GOTO 700
REM если поиск не закончен,то произвести новое
REM исследование вокруг новой базисной точки
530 j = 1: GOTO 200
Nitro PDF Trial
www.nitropdf.com

Страницы