Вторая пачка часть 187
НАЙДЕННЫЕ ВЕКТОРЫ ЗАПИСЫВАЮТСЯ НА МЕСТО СТА¬РЫХ. ПОДДИАГОНАЛЬНЫЕ ЭЛЕМЕНТЫ ТРЕХДИАГОНАЛЬНОЙ МАТ¬РИЦЫ НАХОДЯТСЯ В МАССИВЕ Е [1:N], А ЭЛЕМЕНТЫ МАТРИЦЫ ПРЕ¬ОБРАЗОВАНИЯ ОБРАЗУЮТ НИЖНИЙ ТРЕУГОЛЬНИК МАССИВА А [1:N, 1:N]. ТАКОЕ РАЗМЕЩЕНИЕ ГАРАНТИРУЕТСЯ ПРОЦЕДУРОЙ TRED1. ЕСЛИ ВЕКТОРОМ Z ОБОЗНАЧИТЬ ПРОИЗВОЛЬНЫЙ СТОЛБЕЦ РЕ¬ЗУЛЬТИРУЮЩЕЙ МАТРИЦЫ Z, ТО ОН ОБЯЗАТЕЛЬНО БУДЕТ УДОВЛЕТВОРЯТЬ УСЛОВИЮ ZХZ=Z(INPUT)ХZ(INPUT) ;)
VAR I,J,K,L : INTEGER; H,S : REAL;
BEGIN
FOR I := 2 TO N DO
IF E[I]<>0 THEN
BEGIN
L := I-1;
H := E[I]*AZ[I,I-1];
FOR J := M1 TO M2 DO
BEGIN
S := 0.0;
FOR K := 1 TO L DO S := S + AZ[I,K]*ZA[K,J];
S := S/H;
FOR K := 1 TO L DO ZA[K,J] := ZA[K,J] + S*AZ[I,K];
END;
END;
END;
{$F+}
PROCEDURE PRNGRAF (FACTX,FACTY:CHAR;
VAR JF: INTEGER);
(; ПРОЦЕДУРА, ОРГАНИЗУЮЩАЯ ВЫВОД НА ПЕЧАТЬ ИЛИ НА ДРУГОЕ ПРЕДУСМОТРЕННОЕ ВЫВОДНОЕ УСТРОЙСТВО (ФАЙЛ, ЭКРАН) ГРАФИКА РАСПОЛОЖЕНИЯ ПАРАМЕТРОВ В ФАКТОРНЫХ ОСЯХ. В ГЛАВНОМ МОДУЛЕ ДАННАЯ СТРОКА СТОИТ ПОД КОММЕНТАРИЕМ. ДЛЯ ВКЛЮЧЕНИЯ ЕЕ В РАБОТУ СЛЕДУЕТ ТОЛЬКО УБРАТЬ КОММЕНТАРИЙ. НИКАКИХ ДОПОЛНИТЕЛЬНЫХ ИЗМЕНЕНИЙ НЕ ТРЕБУЕТСЯ. СТРОКА ВЫВОДА ФОРМИРУЕТСЯ ИЗ УСЛОВИЯ НАЛИЧИЯ ШИРОКОЙ ПЕЧАТИ, Т.Е. 132 ЗНАКА В СТРОКЕ. ЕСЛИ ПЕЧАТАЮЩЕЕ УСТРОЙСТВО ИМЕЕТ 90 ЗНАКОВ, ТО ДАННАЯ ПРОЦЕДУРА НЕ МОЖЕТ БЫТЬ ИСПОЛЬЗОВАНА ;)
CONST A1 = 'I'; A2 = ' '; A3 = '-'; A4 = '/';
A5 = '\'; A6 = '>'; A7 = '.'; A8 = '*'; S1 = ' ';
LABEL CONT;
VAR SX,SY :ARRAY[1..N] OF REAL;
X :ARRAY[1..102] OF REAL;
Y: ARRAY [1..52] OF REAL;
STX:ARRAY[1..102]OF STRING [1];
I,J,FX,FY,K,K1,KX,KM,KK,KMN,IND:INTEGER;
MNR : STRING [1];
MIN : ARRAY [1..30] OF STRING [1];
BEGIN
VAL (FACTX,FX,JF);
IND := 0;
IF JF=0 THEN
VAL (FACTY,FY,J)
ELSE
GOTO CONT;
IF J <> 0 THEN
BEGIN
JF := J;
GOTO CONT;
END;
FOR I :=1 TO N DO
BEGIN
SX[I] := SVEC [FX,I];
SY[I] := SVEC [FY,I];
END;
FOR I := 1 TO 101 DO X[I] := I / 50.0 - 1.0;
FOR I := 1 TO 51 DO Y[I] := 1
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа