Вторая пачка часть 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]
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
