IDependenceForm.Forecast

Forecast: IForecast;

Forecast: Prognoz.Platform.Interop.Stat.IForecast;

Sub UserProc;
Var
    trend: SmCurveEstimation;
    d0: Double;
    status, i: Integer;
    ar: Array Of Double;
    Forms: IDependenceForms;
    Dep: IDependenceForm;
    Forecast: IForecast;
Begin
    // Создаем объект для подбора формы зависимости
    trend := New SmCurveEstimation.Create;
    // Задаём значения объясняемого ряда
    ar := New Double[25];
    ar[00] := 4110; ar[01] := 4280; ar[02] := 4459;
    ar[03] := 4545; ar[04] := 4664; ar[05] := 4861;
    ar[06] := 5195; ar[07] := 5389; ar[08] := 5463;
    ar[09] := 5610; ar[10] := 5948; ar[11] := 6218;
    ar[12] := 6521; ar[13] := 6788; ar[14] := 7222;
    ar[15] := 7486; ar[16] := 7832; ar[17] := 8153;
    ar[18] := 8468; ar[19] := 9054; ar[20] := 9499;
    ar[21] := 9866; ar[22] := 10217; ar[23] := 10763;
    ar[24] := 10683;
    trend.Explained.Value := ar;
    // Задаём автоматическую генерацию объясняющего ряда
    trend.Explanatory.IsTrend := True;
    // Задаём конечную точку периода идентификации
    trend.ModelPeriod.LastPoint := 20;
    // Задаём последнюю точку прогнозного ряда
    trend.ForecastLastPoint := 30;
    // Определяем тип сезонности
    trend.SeasonalComponent.Mode := SeasonalityType.additive;
    // Определяем период сезонности
    trend.SeasonalComponent.Cycle := 4;
    // Выполняем расчёт и выводим результаты
    status := trend.Execute;
    If status <> 0 Then
        Debug.WriteLine(trend.Errors);
        Else
            Forms := trend.DependenceForms;
            Dep := Forms.Item(1);
            d0 := Dep.CriterionValue;
            Debug.WriteLine("Форма зависимости " + Dep.DisplayName);
            Debug.WriteLine("Значение критерия " + ": " + d0.ToString);
            Forecast := Dep.Forecast;
            Debug.WriteLine("=== Прогнозный ряд ===");
            For i := trend.ModelPeriod.LastPoint To Forecast.Value.Length - 1 Do
                d0 := Forecast.Value[i];
                Debug.WriteLine(i.ToString + ": " + d0.ToString);
            End For;
    End If;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Stat;
…
Public Shared Sub Main(Params: StartParams);
Var
    trend: SmCurveEstimation;
    d0: Double;
    status, i: Integer;
    ar: Array Of Double;
    Forms: IDependenceForms;
    Dep: IDependenceForm;
    Forecast: IForecast;
Begin
    // Создаем объект для подбора формы зависимости
    trend := New SmCurveEstimation.Create();
    // Задаём значения объясняемого ряда
    ar := New Double[25];
    ar[00] := 4110; ar[01] := 4280; ar[02] := 4459;
    ar[03] := 4545; ar[04] := 4664; ar[05] := 4861;
    ar[06] := 5195; ar[07] := 5389; ar[08] := 5463;
    ar[09] := 5610; ar[10] := 5948; ar[11] := 6218;
    ar[12] := 6521; ar[13] := 6788; ar[14] := 7222;
    ar[15] := 7486; ar[16] := 7832; ar[17] := 8153;
    ar[18] := 8468; ar[19] := 9054; ar[20] := 9499;
    ar[21] := 9866; ar[22] := 10217; ar[23] := 10763;
    ar[24] := 10683;
    trend.Explained.Value := ar;
    // Задаём автоматическую генерацию объясняющего ряда
    trend.Explanatory.IsTrend := True;
    // Задаём конечную точку периода идентификации
    trend.ModelPeriod.LastPoint := 20;
    // Задаём последнюю точку прогнозного ряда
    trend.ForecastLastPoint := 30;
    // Определяем тип сезонности
    trend.SeasonalComponent.Mode := SeasonalityType.sstAdditive;
    // Определяем период сезонности
    trend.SeasonalComponent.Cycle := 4;
    // Выполняем расчёт и выводим результаты
    status := trend.Execute();
    If status <> 0 Then
        System.Diagnostics.Debug.WriteLine(trend.Errors);
        Else
            Forms := trend.DependenceForms;
            Dep := Forms.Item[1];
            d0 := Dep.CriterionValue;
            System.Diagnostics.Debug.WriteLine("Форма зависимости " + Dep.DisplayName);
            System.Diagnostics.Debug.WriteLine("Значение критерия " + ": " + d0.ToString());
            Forecast := Dep.Forecast;
            System.Diagnostics.Debug.WriteLine("=== Прогнозный ряд ===");
            For i := trend.ModelPeriod.LastPoint To Forecast.Value.Length - 1 Do
                d0 := Forecast.Value.GetValue(i) As double;
                System.Diagnostics.Debug.WriteLine(i.ToString() + ": " + d0.ToString());
            End For;
    End If;
End Sub;