MDeterm(Data: Array): Double;
MDeterm(Data: System.Array): double;
Values. Массив вещественных чисел.
Метод MDeterm возвращает определитель заданной матрицы.
Матрица должна быть квадратной.
Если входной массив содержит пропуски, функция вернет ошибку.
Для выполнения примера добавьте ссылку на системную сборку MathFin.
Sub UserProc;
Var
matr: Array Of Double;
r: Double;
Begin
matr := New Double[4, 4];
matr[0, 0] := 1; matr[0, 1] := 3; matr[0, 2] := 8; matr[0, 3] := 5;
matr[1, 0] := 1; matr[1, 1] := 3; matr[1, 2] := 6; matr[1, 3] := 1;
matr[2, 0] := 1; matr[2, 1] := 1; matr[2, 2] := 1; matr[2, 2] := 0;
matr[3, 0] := 7; matr[3, 1] := 3; matr[3, 2] := 10; matr[3, 3] := 2;
r := Math.MDeterm(matr);
Debug.WriteLine(r);
End Sub UserProc;
В результате выполнения примера в окно консоли будет выведен определитель матрицы, равный «160».
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.MathFin;
…
Public Shared Sub Main(Params: StartParams);
Var
r: double;
Math: MathClass = New MathClass();
matr: System.Array;
Begin
matr := New Double[4, 4];
matr[0, 0] := 1; matr[0, 1] := 3; matr[0, 2] := 8; matr[0, 3] := 5;
matr[1, 0] := 1; matr[1, 1] := 3; matr[1, 2] := 6; matr[1, 3] := 1;
matr[2, 0] := 1; matr[2, 1] := 1; matr[2, 2] := 1; matr[2, 2] := 0;
matr[3, 0] := 7; matr[3, 1] := 3; matr[3, 2] := 10; matr[3, 3] := 2;
r := Math.MDeterm(matr);
System.Diagnostics.Debug.WriteLine(r);
End Sub;
См. также: