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

UptoLike

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

92
{ Решение системы нелинейных уравнений
модифицированным методом Ньютона-Рафсона
Система уравнений вводится в процедуре SystemUraw в виде
F[1] = f(x1,x2,...xn)=0
F[2] = f(x1,x2,...xn)=0
....
F[N] = f(x1,x2,...xn)=0
Процедура noLineUraw использует при своей работе
процедуру обращения матрицы Rmatr
N - число уравнений
X[1..N] - массив значений X(i) (решение системы уравнений)
F[1..N] - массив значений F(i) (значения функций-уравнений для набора X(i))
intX[1..N,1..2] - матрица интервалов варьирования для каждой переменной
X(i)
E - относительная погрешность
M - максимальное число иттераций }
{ *************************************************************** }
label nachalo, fin;
var b,dX : massiv;
a : matrix;
i,j,iteration,m : integer;
x1,h,r : real;
{ *************************************************************** }
procedure rmatr(n:integer; var a:matrix);
{ Процедура обращения квадратной матрицы A[i,j] методом Жордана }
{ Составитель - Бочкарев В.В. }
var x :array [1..20] of real;
s :array [1..21] of real;
K1 :integer;
{ *************************************************************** }
procedure revers;
label L4,L5,L8;
var i,j,index,K2: integer;
begin
if a[K1,K1]<>0 then goto L5;
Nitro PDF Trial
www.nitropdf.com