IMsCensus1Result.Irregula

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

Public Function Census1Result(Result: Variant): ITimeSeries;
Var
    Census1Res: IMsCensus1Result;
    Series: ITimeSeries;
Begin
    Census1Res := Result As IMsCensus1Result;
    // Выводим наименование метода
    Debug.WriteLine("Наименование метода: " + Census1Res.BaseMethod.Name);
    Debug.WriteLine("");
    // Получаем нерегулярную компоненту и выводим её в окно консоли
    Series := Census1Res.Irregula;
    Debug.WriteLine("Нерегулярная компонента");
    Print(Series);
    // Получаем отношение/разность и выводим в окно консоли
    Series := Census1Res.RatioDifferences;
    Debug.WriteLine("Отношение/разность");
    Print(Series);
    // Получаем сезонную составляющую и выводим её в окно консоли
    Series := Census1Res.Seasonal;
    Debug.WriteLine("Сезонная составляющая");
    Print(Series);
    // Получаем сезонную корректировку и выводим её в окно консоли
    Series := Census1Res.SeasonalAdjustment;
    Debug.WriteLine("Сезонная корректировка");
    Print(Series);
    // Получаем тренд-циклическую компоненту и выводим её в окно консоли
    Series := Census1Res.TrendCycle;
    Debug.WriteLine("Тренд-циклическая компонента");
    Print(Series);
    // Возвращаем сглаженный ряд
    Return Census1Res.MovingAverage;
End Function Census1Result;

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