# Вторая пачка часть 185

На каждое имя обязательно должно отводиться по 3 позиции). Для проверки работоспособности своей программы ре¬ко¬мендуется выполнить при¬ве¬ден¬ный как образец тес¬товый расчет, если результаты сов¬па¬дут (до 6-го знака), то можно выполнять расчеты по сво¬им данным. {***** ПРОГРАММА РАСЧЕТА “ МЕТОД ГЛАВНЫХ КОМПОНЕНТ “ ***** } PROGRAM BURCORR; USES CRT, DOS, GRAPH; CONST PR = 0; START = ' '; N = 5; M = 20; EPS = 0.00000001; EPS1 = 2E-32; EPS2 = EPS1; LABEL 50; TYPE MAS=ARRAY [1..N] OF REAL; MAS2 = FRRAY [1..N] OF MAS; MAS1 = ARRAY [1..N] OF MAS; STRING1=STRING[3]; FILEMAS = FILE OF MAS; MAS3 = ARRAY [1..N] OF STRING1; VAR Z,I,IMAX,J,K,K1,LON,N1,A1,A2,A3,GMY, GMX,DX,DY,DELTA,XI, YI : INTEGER; MNR1,LLON: STRING [1]; FT,FF,LST: TEXT; CH,CHX,CHY : CHAR; FM, COV, COVS, F1, F2, F3 : FILEFAS; SS,SI,SC,SX,X,D,E,E2,Y,ZZ: MAS; SVEC,A,AA,RRCC: MAS1; SUM,SUM1,SUM2,XMIN,TOL: REAL; RRC: MAS2; RR :-10..10; DN : BOOLEAN; MNR : STRING1; XCOL,MINER:MAS3; STR1, STR2, STRNG : STRING; GRAPHDRIVER, GRAPHMODE, GRAPHREZULT : INTEGER; {$F+} PROCEDURE GAUSS (N:INTEGER; AAA:MAS1; VAR AA : MAS1); (;ПРОЦЕДУРА ВЫПОЛНЯЕТ ОБРАЩЕНИЕ КВАДРАТНОЙ МАТРИЦЫ ААА РАЗМЕРОМ N Х N МЕТОДОМ ГАУССА. ОБРАТНАЯ МАТРИЦА РАСПОЛАГАЕТСЯ В МАССИВЕ АА ;) VAR I,J,J1,K : INTEGER; A:MAS1; B,X:MAS; SUM,AIJ,AII : REAL; BEGIN A:= AAA; (; ФОРМИРОВАНИЕ ЕДИНИЧНОЙ МАТРИЦЫ ;) FOR J1 := 1 TO N DO BEGIN FOR I := 1 TO N DO B[I] := 0.0; (; ПРЕОБРАЗОВАНИЯ МАТРИЦ ПО МЕТОДУ ГАУССА ;) B[J1] := 1.0; A := AAA; X := B; FOR I := 1 TO N DO BEGIN AIJ := A[I,I]; B[I] := B[I] / AIJ; FOR J := I TO N DO A[I,J] := A[I,J] / AIJ; IF I<>N THEN BEGIN FOR J := I+1 TO N DO BEGIN AII := A[J,I]; B[J] := B[J] - B[I]*AII; FOR K := I TO N DO A[J,K] := A[J,K] - A[I,K] * AII; END; END; END; X[N] := B[N]; FOR I := N-1 DOWNTO 1 DO BEGIN SUM := B[I]; FOR J := I+1 TO N DO SUM := SUM - X[J] * A[I,J]; X[I] := SUM; END; FOR I := 1 TO N DO AA[I,J1] := X[I]; END; END; {$F+} PROCEDURE TQL1 (N:INTEGER;MASHEPS:REAL; VAR D,E:MAS; VAR ZA:MAS1); (; ВЫЧИСЛЕНИЕ СОБСТВЕННЫХ ЗНАЧЕНИЙ И СОБСТВЕННЫХ ВЕКТОРОВ Т ИСХОДНОЙ СИММЕТРИЧЕСКОЙ МАТРИЦЫ ZTZ, ГДЕ ТРЕХДИАГОНАЛЬНАЯ МАТРИЦА T ЗАДАНА СВОИМИ ДИ¬А¬ГО-НАЛЬ¬НЫ¬МИ ЭЛЕМЕНТАМИ, ЗАПИСАННЫМИ В МАССИВЕ D[1:N], И ПОД¬ДИ¬АГОНАЛЬНЫМИ ЭЛЕМЕНТАМИ, ЗАПИСАННЫМИ В ПОСЛЕДНИХ N - 1 ЯЧЕЙКАХ МАССИВА Е[1:N]

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа