IMatrixTransformer.Transform

Синтаксис Fore

Transform: IMatrix;

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

Transform: Prognoz.Platform.Interop.Matrix.IMatrix;

Описание

Метод Transform преобразует данные матричного преобразователя в матрицу.

Комментарии

Для преобразования данных из матричного преобразователя в матрицу добавьте или удалите временные измерения из коллекции с помощью методов IMatrixTransformerDimensions.Add или IMatrixTransformerDimensions.Remove.

Пример Fore

Для выполнения примера в репозиториии необходимо наличие календарного справочника с идентификатором «D_CALENDAR».

Добавьте ссылки на системные сборки: Dimension, MathFin, Matrix, Metabase.

Sub UserProc;
Var
    MB: IMetabase;
    DimA: IDimInstance;
    Mfactory: IMatrixFactory;
    DimSel: IDimSelectionSet;
    Dfactory: IDimSelectionSetFactory;
    Matrix, NewMat: IMatrix;
    i1, i, element: integer;
    Coord: IMatrixCoord;
    elements: IDimElements;
    Selection: IDimSelection;
    Iterator: IMatrixIterator;
    trf: IMatrixTransformer;
    mtd: IMatrixTransformerDimension;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим данные справочника
    DimA := MB.ItemById("D_CALENDAR").Open(Null) As IDimInstance;
    // Создадим отметку
    Dfactory := New DimSelectionSetFactory.Create;
    DimSel := Dfactory.CreateDimSelectionSet;
    DimSel.Add(DimA);
    // Создадим матрицу и заполним ее
    Mfactory := New MatrixFactory.Create As IMatrixFactory;
    Matrix := Mfactory.CreateMatrix(DimSel);
    Coord := Matrix.CreateCoord;
    For i1 := 0 To DimSel.Item(0).Dimension.Elements.Count - 1 Do
        Coord.Item(0) := i1;
        Matrix.Item(Coord) := Math.RandBetweenI(0, 12);
    End For;
    // Вывод координат в окно консоли
    For i := 0 To DimSel.Count - 1 Do
        elements := DimSel.Item(i).Dimension.Elements;
        element := coord.Item(i);
        If element <> -1 Then
            Debug.WriteLine(element.ToString + " = (" + elements.Name(element) + ") -- ");
        End If;
    End For;
    // Выведем полученную матрицу в окно консоли
    Debug.WriteLine("Матрица: ");
    Selection := DimSel.Item(0);
        For Each Selection In Matrix.Dimensions Do
            // Выведем измерения и их ключи
            Debug.WriteLine("    Измерение - " + selection.Dimension.Name + "; Key = " + selection.Dimension.Key.ToString);
            // Выведем элементы измерений
            Debug.WriteLine("       Элементы: ");
            For i := 0 To Selection.Dimension.Elements.Count - 1 Do
                Debug.WriteLine("           " + selection.Dimension.Elements.Name(i));
            End For;
        End For;
    // Выведем значения
    Debug.WriteLine("Значения матрицы: ");
    Iterator := matrix.CreateIterator;
    Coord := matrix.CreateCoord;
    Iterator.Move(IteratorDirection.First);
    While Iterator.Valid Do
        Iterator.PutCurrentPos(Coord);
        Debug.WriteLine("   Значение = " + Iterator.Value As String);
        Iterator.Move(IteratorDirection.Next);
    End While;
    // Создадим матричный преобразователь
    trf := New MatrixTransformer.Create;
    trf.Source := Matrix;
    // Добавим два новых временных измерения
    trf.Dimensions.Add(0, 3);
    trf.Dimensions.Add(0, 2);
    // Получим новую матрицу
    NewMat := trf.Transform;
    Debug.WriteLine("Количество значений в новой матрице = " + NewMat.ValueCount.ToString);
    // Получим временные измерения
    For i := 0 To trf.Dimensions.Count - 1 Do
        mtd := trf.Dimensions.Item(i);
        If Not mtd.MatchCase Then
            mtd.MatchCase := True;
        End If;
        // Выведем в окно консоли
        Debug.WriteLine("Временное измерение новой матрицы: ");
        Debug.WriteLine
        ("Индекс измерения - " + mtd.Index.ToString + "; " + "Измерение - " + mtd.Dimension.Name + "; " + "Элемент - " + mtd.Element.ToString);
    End For;
End Sub UserProc;

После выполнения примера в окно консоли будет выведено:

• измерение, ключ, элементы, значения календарного измерения матрицы;

• количество значений в новой полученной матрице;

• данные временных измерений новой матрицы.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.ForeSystem;
Imports Prognoz.Platform.Interop.MathFin;
Imports Prognoz.Platform.Interop.Matrix;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    DimA: IDimInstance;
    MatrixFactory: MatrixFactory = New MatrixFactoryClass();
    Mfactory: IMatrixFactory;
    DimSel: IDimSelectionSet;
    Dfactory: DimSelectionSetFactory = New DimSelectionSetFactoryClass();
    Matrix, NewMat: IMatrix;
    Math: MathClass = New MathClass();
    i1, i, element: integer;
    Coord: IMatrixCoord;
    elements: IDimElements;
    Selection: IDimSelection;
    Iterator: IMatrixIterator;
    trf: MatrixTransformer = New MatrixTransformerClass();
    mtd: IMatrixTransformerDimension;
Begin
    // Получим репозиторий
    MB := Params.Metabase;
    // Получим данные справочника
    DimA := MB.ItemById["D_CALENDAR"].Open(Null) As IDimInstance;
    // Создадим отметку
    DimSel := Dfactory.CreateDimSelectionSet();
    DimSel.Add(DimA);
    // Создадим матрицу и заполним ее
    Mfactory := MatrixFactory As IMatrixFactory;
    Matrix := Mfactory.CreateMatrix(DimSel);
    Coord := Matrix.CreateCoord();
    For i1 := 0 To DimSel.Item[0].Dimension.Elements.Count - 1 Do
        Coord.Item[0] := i1;
        Matrix.Item[Coord] := Math.RandBetweenI(0, 12);
    End For;
    // Вывод координат в окно консоли
    For i := 0 To DimSel.Count - 1 Do
        elements := DimSel.Item[i].Dimension.Elements;
        element := coord.Item[i];
        If element <> -1 Then
            System.Diagnostics.Debug.WriteLine(element.ToString() + " = (" + elements.Name[element As uinteger] + ") -- ");
        End If;
    End For;
    // Выведем полученную матрицу в окно консоли
    System.Diagnostics.Debug.WriteLine("Матрица: ");
    Selection := DimSel.Item[0];
        For Each Selection In Matrix.Dimensions Do
            // Выведем измерения и их ключи
            System.Diagnostics.Debug.WriteLine
            ("    Измерение - " + selection.Dimension.Name + "; Key = " + selection.Dimension.Key.ToString());
            // Выведем элементы измерений
            System.Diagnostics.Debug.WriteLine("       Элементы: ");
            For i := 0 To Selection.Dimension.Elements.Count - 1 Do
                System.Diagnostics.Debug.WriteLine("           " + selection.Dimension.Elements.Name[i As uinteger]);
            End For;
        End For;
    // Выведем значения
    System.Diagnostics.Debug.WriteLine("Значения матрицы: ");
    Iterator := matrix.CreateIterator();
    Coord := matrix.CreateCoord();
    Iterator.Move(IteratorDirection.itdFirst);
    While Iterator.Valid Do
        Iterator.PutCurrentPos(Coord);
        System.Diagnostics.Debug.WriteLine("   Значение = " + Iterator.Value As String);
        Iterator.Move(IteratorDirection.itdNext);
    End While;
    // Создадим матричный преобразователь
    trf.Source := Matrix;
    // Добавим два новых временных измерения
    trf.Dimensions.Add(0, 3);
    trf.Dimensions.Add(0, 2);
    // Получим новую матрицу
    NewMat := trf.Transform();
    System.Diagnostics.Debug.WriteLine("Количество значений в новой матрице = " + NewMat.ValueCount.ToString());
    // Получим временные измерения
    For i := 0 To trf.Dimensions.Count - 1 Do
        mtd := trf.Dimensions.Item[i];
        If Not mtd.MatchCase Then
            mtd.MatchCase := True;
        End If;
        // Выведем в окно консоли
        System.Diagnostics.Debug.WriteLine("Временное измерение новой матрицы: ");
        System.Diagnostics.Debug.WriteLine
        ("Индекс измерения - " + mtd.Index.ToString() + "; " + "Измерение - " + mtd.Dimension.Name + "; " + "Элемент - " + mtd.Element.ToString());
    End For;
End Sub;

См. также:

IMatrixTransformer