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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

72
240 PRINT "Введите длину шага"
260 INPUT k
270 REM построение первого симплекса вокруг начальной точки
280 FOR i = 2 TO n + 1
FOR j = 1 TO n
IF j = i - 1 THEN s(i, j) = s(1, j) + k: GOTO 360
s(i, j) = s(1, j)
360 NEXT j
380 NEXT i
400 REM PRINT "введитеalfa,beta,gamma"
420 REM INPUT al, be, ga
al = 1: be = .5: ga = 2
440 DIM X(n), xh(n), xg(n), xl(n), x0(n)
460 DIM xr(n), xc(n), xe(n), f(n + 1)
470 REM "вычислить значение функции"
480 FOR i = 1 TO n + 1
FOR j = 1 TO n
X(j) = s(i, j)
NEXT j
560 GOSUB 5000
580 f(i) = z
600 NEXT i
610 REM "найти наибольшее и наименьшее значение"
615 REM "функции и соответствующие им значения "
620 fh = -1E+20: fl = 1E+20
640 FOR i = 1 TO n + 1
660 IF f(i) > fh THEN fh = f(i): h = i
680 IF f(i) < fl THEN fl = f(i): l = i
700 NEXT i
710 REM "найти второе наибольшее значение i "
715 REM "соответствующую ему точку "
720 fg = -1E+20
740 FOR i = 1 TO n + 1
760 IF i = h THEN GOTO 800
780 IF f(i) > fg THEN fg = f(i): g = i
800 NEXT i
820 FOR j = 1 TO n
840 x0(j) = 0
860 FOR i = 1 TO n + 1
880 IF i = h THEN GOTO 910
900 x0(j) = x0(j) + s(i, j)
910 NEXT i
Nitro PDF Trial
www.nitropdf.com

Страницы