Голдаев С.В., Ляликов Б.А. Основы математического моделирования
в теплотехнике: Учебное пособие. - Томск: Изд. ТПУ, 1999. – 106 с.
102
П.1.9. Вычисление определителя матриц
НАЗНАЧЕНИЕ: Возвращает определитель матрицы А
ЗАГОЛОВОК: procedure Det (N:integer; var A:matr; var S:real);
ПАРАМЕТРЫ: N - ранг исходной матрицы А (N max = 6);
A - исходная матрица c max размерностью (6х6);
S - определитель матрицы.
Обращение: Det (N, A, S);
П.1.10. Вычисление обратной матрицы
НАЗНАЧЕНИЕ: Возвращает обратную матрицу.
ЗАГОЛОВОК:
procedure Inv(N:integer; var A:matr; var S:real);
ПАРАМЕТРЫ: N - ранг исходной матрицы А (N max = 6);
A - исходная матрица c max размерностью (6х6) после
выполнения процедуры замещается обратной матрицей;
S - промежуточная переменная.
Обращение: Inv (N, A, S);
П.1.11. Аппроксимация функции методом
наименьших квадратов (мнк)
НАЗНАЧЕНИЕ: Возвращает вектор коэффициентов полинома.
ЗАГОЛОВОК: procedure Appr(H: integer; E1: real; X,Y:mac16;
var MM, Na:integer; E: real; var Z: mac16);
ПАРАМЕТРЫ: H - количество табличных точек аппроксимируемой
зависимости (N max = 16);
E1 - задаваемая среднеквадратичная погрешность;
X,Y-задание аппроксимируемой функции в табличном
виде;
MM-степень полинома (вычисляется автоматически в Appr
NA - число членов полинома (вычисляется в Appr);
E - погрешность аппроксимации (вычисляется в Appr);
Z - массив коэффициентов аппроксимирующего полинома.
( Zmax = 16)
Обращение: Appr(H, E1, X, Y, MM, Na, E, Z);