IMsX11Result.B1

Копировать пример

Public Function X11Result(Result: Variant): ITimeSeries;
Var
    X11Res: IMsX11Result;
    Series: ITimeSeries;
Begin
    X11Res := Result As IMsX11Result;
    // Выводим наименование метода
    Debug.WriteLine("Наименование метода: " + X11Res.BaseMethod.Name);
    Debug.WriteLine("");
    // Получаем ряд после априорной корректировки или исходный ряд и выводим его в окно консоли
    Series := X11Res.B1;
    Debug.WriteLine("Ряд после априорной корректировки или исходный ряд");
    Print(Series);
    // Получаем сезонную составляющую исходного ряда и выводим её в окно консоли
    Series := X11Res.D10;
    Debug.WriteLine("Сезонная составляющая исходного ряда");
    Print(Series);
    // Получаем сезонную корректировку и выводим её в окно консоли
    Series := X11Res.D11;
    Debug.WriteLine("Сезонная корректировка");
    Print(Series);
    // Получаем тренд-циклическую компоненту и выводим её в окно консоли
    Series := X11Res.D12;
    Debug.WriteLine("Тренд-циклическая компонента");
    Print(Series);
    // Получаем нерегулярную компоненту и выводим её в окно консоли
    Series := X11Res.D13;
    Debug.WriteLine("Нерегулярная компонента");
    Print(Series);
    // Возвращаем прогнозный ряд
    Return X11Res.Fitted;
End Function X11Result;

// Процедура вывода значений ряда в окно консоли
Sub Print(Series: ITimeSeries);
Var
    i: Integer;
    d: DateTime;
Begin
    Debug.Indent;
    For i := Series.StartIndex To Series.EndIndex Do
        d := Series.IndexToDate(i);
        Debug.WriteLine(CultureInfo.Current.FormatShortDate(d) + ": " + Series.Item(i));
    End For;
    Debug.Unindent;
    Debug.WriteLine("");
End Sub Print;