IMatrixModelFactory.CreateMatrixModel

Синтаксис Fore

CreateMatrixModel(DimensionCount: Integer): IMatrixModel;

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

CreateMatrixModel(DimensionCount: integer): Prognoz.Platform.Interop.ForeSystem.IMatrixModel;

Параметры

DimensionCount. Количество измерений в создаваемой матрице.

Описание

Метод CreateMatrixModel создает структуру матрицы.

Пример Fore

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

Sub UserProc;
Var
    result: IMatrixModel;
    factory: IMatrixModelFactory;
    coord: IMatrixModelCoord;
    i, j: Integer;
Begin
    factory := New MatrixFactory.Create;
    result := factory.CreateMatrixModel(2);
    coord := result.CreateModelCoord;
    coord.Item(0) := 0;
    coord.Item(1) := 0;
    result.Item(coord) := "a";
    coord.Item(0) := 0;
    coord.Item(1) := 1;
    result.Item(coord) := "b";
    coord.Item(0) := 0;
    coord.Item(1) := 2;
    result.Item(coord) := "c";
    coord.Item(0) := 1;
    coord.Item(1) := 1;
    result.Item(coord) := "d";
    Debug.WriteLine("Полученная матрица");
    For i := 0 To 1 Do
        For j := 0 To 2 Do
            coord.Item(0) := i;
            coord.Item(1) := j;
            If result.Item(coord) <> Null Then
                Debug.Write("    " + result.Item(coord));
            Else
                Debug.Write(" Null");
            End If;
        End For;
        Debug.WriteLine("");
    End For;
End Sub UserProc;

Результат выполнения примера: создана двумерная матрица с данными. Данные матрицы выведены в окно консоли.

Пример Fore.NET

Imports Prognoz.Platform.Interop.Matrix;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params: StartParams);
Var
    result: IMatrixModel;
    factory: IMatrixModelFactory;
    coord: IMatrixModelCoord;
    i, j: Integer;
Begin
    factory := New MatrixFactory.Create();
    result := factory.CreateMatrixModel(2);
    coord := result.CreateModelCoord();
    coord.Item[0] := 0;
    coord.Item[1] := 0;
    result.Item[coord] := "a";
    coord.Item[0] := 0;
    coord.Item[1] := 1;
    result.Item[coord] := "b";
    coord.Item[0] := 0;
    coord.Item[1] := 2;
    result.Item[coord] := "c";
    coord.Item[0] := 1;
    coord.Item[1] := 1;
    result.Item[coord] := "d";
    System.Diagnostics.Debug.WriteLine("Полученная матрица");
    For i := 0 To 1 Do
        For j := 0 To 2 Do
            coord.Item[0] := i;
            coord.Item[1] := j;
            If result.Item[coord] <> Null Then
                System.Diagnostics.Debug.Write("    " + result.Item[coord]);
            Else
                System.Diagnostics.Debug.Write(" Null");
            End If;
        End For;
        System.Diagnostics.Debug.WriteLine("");
    End For;
End Sub;