IMsTimeMatrix.AddTerm

Синтаксис Fore

AddTerm(TermValue: IMsFormulaTerm): ITimeSeries;

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

AddTerm(TermValue: Prognoz.Platform.Interop.Ms.IMsFormulaTerm): Prognoz.Platform.Interop.Ms.TimeSeries;

Параметры

TermValue. Значение терма.

Описание

Метод AddTerm добавляет терм в матрицу.

Комментарии

Для добавления ряда в матрицу используйте метод IMsTimeMatrix.AddSerie.

Пример Fore

В данном примере описан пользовательский метод.

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

Public Function Create(param: ITimeSeries): Variant;
Var 
    m : IMsTimeMatrix;
    Term: IMsFormulaTerm;
    i, j: Integer;
    s : String;
    serie : ITimeSeries;
Begin
    m := New MsTimeMatrix.Create;
    If param.CurrentDate < DateTime.Now Then
        Debug.WriteLine("Рядов - " + m.Count.ToString);
        Term := param.Item(i);
        m.AddTerm(Term);
        For i := 0 To m.Count - 1 Do
            s := "";
            serie := m.Item(i);
            For j := m.StartIndex To m.EndIndex Do
                s := s + (serie.Item(j) As double).ToString + " ";
            End For;
            Debug.WriteLine("Ряд: " + i.ToString + " - " + s);
            Debug.WriteLine("Количество точек между индексами начала и конца ряда: "
                + m.CalcPointCount.ToString);
        End For;
    End If;
    Return m;
End Function Create;

Метод выполняет добавление термов в матрицу. После чего в окно консоли будут выведены ряды результирующей матрицы и количество точек между индексами начала и конца ряда.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Ms;

Public Function Create(param: ITimeSeries): object;
Var 
    m : IMsTimeMatrix;
    Term: IMsFormulaTerm;
    i, j: Integer;
    s : String;
    serie : ITimeSeries;
Begin
    m := New MsTimeMatrix.Create(); 
    If param.CurrentDate < DateTime.Now Then
        System.Diagnostics.Debug.WriteLine("Рядов - " + m.Count.ToString());
        For i := 0 To m.Count - 1 Do
            Term := param.Item[i] As IMsFormulaTerm;
            m.AddTerm(Term);
            s := "";
            serie := m.Item[i];
            For j := m.StartIndex To m.EndIndex Do
                s := s + (serie.Item[j] As double).ToString() + " ";
            End For;
            System.Diagnostics.Debug.WriteLine("Ряд: " + i.ToString() + " - " + s);
            System.Diagnostics.Debug.WriteLine("Количество точек между индексами начала и конца ряда: "
                + m.CalcPointCount.ToString());
        End For;
    End If;
    Return m;
End Function Create;

См. также:

IMsTimeMatrix