IMath.MMult

Синтаксис Fore

MMult(A1: Array; A2: Array): Array;

Синтаксис Fore.NET

MMult(A1: System.Array; A2: System.Array): System.Array;

Параметры

A1. Массив вещественных чисел;

A2. Массив вещественных чисел.

Описание

Метод MMult возвращает произведение заданных матриц.

Комментарии

Результирующий массив будет с таким же числом строк, как A1 и с таким же числом столбцов, как A2.

Количество столбцов аргумента A1 должно быть таким же, как количество строк аргумента A2.

Пример Fore

Для выполнения примера добавьте ссылку на системную сборку Stat.

Sub UserProc;
Var
    MM, matr1, matr2: Array Of Double;
    i, j: Integer;
Begin
    matr1 := New Double[3, 3];
    matr1[0, 0] := 1; matr1[0, 1] := 9; matr1[0, 2] := 9;
    matr1[1, 0] := 2; matr1[1, 1] := 15; matr1[1, 2] := 4;
    matr1[2, 0] := 8; matr1[2, 1] := 1; matr1[2, 2] := 13;
    matr2 := New Double[3, 2];
    matr2[0, 0] := 10; matr2[0, 1] := 3;
    matr2[1, 0] := 20; matr2[1, 1] := 16;
    matr2[2, 0] := 18; matr2[2, 1] := 17; 
    MM := Math.MMult(matr1,matr2);
    If math.Status = 0 Then
        For i := 0 To MM.GetUpperBound(1) Do
            For j := 0 To MM.GetUpperBound(2) Do
                Debug.Write(MM[i, j].ToString + " ");
            End For;
            Debug.WriteLine("");
        End For;
        Else
        Debug.WriteLine("Ошибка " + Math.Status.ToString + ": " + Math.ErrorMsg);   
    End If;
End Sub UserProc;

В результате выполнения примера в окно консоли будет выведена матрица, равная произведению заданных матриц.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Примечание. При работе с двумерными массивами в Fore.NET следует учитывать следующую особенность: первым индексом указывается столбец, вторым - строка.

Imports Prognoz.Platform.Interop.MathFin;
…
Public Shared Sub Main(Params: StartParams);
Var
    MM, matr1, matr2: System.Array;
    i, j: Integer;
    Math: MathClass = New MathClass();
Begin
    matr1 := New Double[3, 3];
    matr1[0, 0] := 1; matr1[1, 0] := 9; matr1[2, 0] := 9;
    matr1[0, 1] := 2; matr1[1, 1] := 15; matr1[2, 1] := 4;
    matr1[0, 2] := 8; matr1[1, 2] := 1; matr1[2, 2] := 13;
    matr2 := New Double[2, 3];
    matr2[0, 0] := 10; matr2[1, 0] := 3;
    matr2[0, 1] := 20; matr2[1, 1] := 16;
    matr2[0, 2] := 18; matr2[1, 2] := 17; 
    MM := Math.MMult(matr1,matr2);
    If math.Status = 0 Then
        For i := 0 To MM.GetUpperBound(0) Do
            For j := 0 To MM.GetUpperBound(1) Do
                System.Diagnostics.Debug.Write(MM[i, j].ToString() + " ");
            End For;
            System.Diagnostics.Debug.WriteLine("");
        End For;
        Else
        System.Diagnostics.Debug.WriteLine("Ошибка " + Math.Status.ToString() + ": " + Math.ErrorMsg);  
    End If;
End Sub;

См. также:

IMath