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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

90
IF ABS(dX(i) / X(i)) > E THEN R = R + 1
NEXT i
IF R = 0 GOTO finis
REM Проверка граничных условий
RANDOMIZE TIMER
FOR i = 1 TO N
IF X(i) < intX(i, 1) THEN X(i) = intX(i, 1) + 10 * RND(1) * E
IF X(i) > intX(i, 2) THEN X(i) = intX(i, 2) - 10 * RND(1) * E
NEXT i
REM FOR i = 1 TO N
REM PRINT X(i);
REM NEXT i
REM PRINT
GOTO begin
finis:
END SUB
SUB Rmatr (N, A() AS DOUBLE, delta)
REM подпрограмма обращения квадратной матрицы A(I,J)
REM методом Жордана
REM составитель - Бочкарев В.В., кафедра ТООС, ТПУ
DIM X(N) AS DOUBLE, S(N + 1) AS DOUBLE
delta = 1
K1 = 1
L1: GOSUB L3
IF K1 = N GOTO L9
K1 = K1 + 1
GOTO L1
L2: PRINT "РАНГМАТРИЦЫ = 0": delta = 0
GOTO L9
L3: IF A(K1, K1) <> 0 GOTO L5
REM Определение ненулевого элемента
FOR i = K1 TO N
index = i: IF A(i, K1) <> 0 THEN K2 = i: GOTO L4
NEXT i
IF index = N GOTO L2
L4: REM Перестановка строк
FOR i = 1 TO N
Nitro PDF Trial
www.nitropdf.com

Страницы