Операция сложения двух матриц есть поэлементное сложение этих матрицы.
Здесь матрицы A и B должны имеет одинаковое число столбцов и строк. Но не обязаны быть квадратными.
procedure Add(Var R:TMatrixNM; A:TMatrixNM; B:TMatrixNM); var i,j:Integer; begin for i:=0 to RowsCount(A)-1 do for j:=0 to ColumnsCount(A)-1 do begin R[i,j]:=A[i,j]+B[i,j]; end; end;
Входные параметры:
Выходные параметры:
Примечание:
Определена вычитание определяется, как обратная операция к сложения.
Здесь матрицы A и B должны имеет одинаковое число столбцов и строк. Но не обязаны быть квадратными.
procedure Sub(Var R:TMatrixNM; A:TMatrixNM; B:TMatrixNM); var i,j:Integer; begin for i:=0 to RowsCount(A)-1 do for j:=0 to ColumnsCount(A)-1 do begin R[i,j]:=A[i,j]-B[i,j]; end; end;
Входные параметры:
Выходные параметры:
Примечание: