IMsTimeMatrix.AddSerie

Синтаксис Fore

AddSerie(Item: ITimeSeries);

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

AddSerie(Item: Prognoz.Platform.Interop.Ms.TimeSeries);

Параметры

Item. Ряд данных.

Описание

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

Комментарии

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

Пример Fore

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

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

Public Function CreateEx(param: ITimeSeries): Variant;
Var 
    CalendSett: ITsCalendarSettings;
    m : IMsTimeMatrix;
    i, j: Integer;
    s : String;
    serie : ITimeSeries;
Begin
    CalendSett := New MsCalendarSettings.Create;
    CalendSett.RestDays := DayOfWeekSet.SaturdaySunday;
    CalendSett.FirstDay := DayOfWeekSet.Monday;
    m := New MsTimeMatrix.CreateEx(DimCalendarLevel.Day, CalendSett);
    If param.EndDate > DateTime.Now Then
        m.Clear;
        m.AddSerie(param);
        Debug.WriteLine("Рядов: " + m.Count.ToString);
        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);
        End For;
    End If;
    Return m;
End Function CreateEx;

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

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Ms;
Imports Prognoz.Platform.Interop.Transform;
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Fore;
…
Public Function CreateEx(param: TimeSeries): object;
Var 
    CalendSett: ITsCalendarSettings;
    m : IMsTimeMatrix;
    i, j: Integer;
    s : String;
    serie : ITimeSeries;
Begin
    CalendSett := New MsCalendarSettings.Create();
    CalendSett.RestDays := DayOfWeekSet.dowsSaturdaySunday;
    CalendSett.FirstDay := DayOfWeekSet.dowsMonday;
    m.CreateEx(DimCalendarLevel.dclDay, CalendSett As TsCalendarSettings, Null);
    If param.EndDate > DateTime.Now Then
        m.Clear();
        m.AddSerie(param);
        System.Diagnostics.Debug.WriteLine("Рядов: " + m.Count.ToString());
        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;
            System.Diagnostics.Debug.WriteLine("Ряд: " + i.ToString() + " - " + s);
        End For;
    End If;
    Return m;
End Function CreateEx;

См. также:

IMsTimeMatrix