ISmAutoCorrelation.MissingData

Синтаксис Fore

MissingData: IMissingData;

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

MissingData: Prognoz.Platform.Interop.Stat.SlMissingData;

Описание

Свойство MissingData определяет метод обработки пропусков.

Комментарии

По умолчанию обработка пропусков не выполняется.

Пример Fore

Добавьте ссылку на системную сборку Stat.

Sub UserProc;
Var
    AC: SmAutoCorrelation;
    d0, d1, d2: Double;
    i, res: Integer;
    s: Array[25] Of Double;
Begin
    AC := New SmAutoCorrelation.Create;
    //значения s
    s[00] := 4110; s[01] := 4280; s[02] := 4459; s[03] := 4545; s[04] := Double.Nan;
    s[05] := 4861; s[06] := 5195; s[07] := 5389; s[08] := 5463; s[09] := 5610;
    s[10] := 5948; s[11] := 6218; s[12] := 6521; s[13] := 6788; s[14] := Double.Nan;
    s[15] := 7486; s[16] := 7832; s[17] := 8153; s[18] := 8468; s[19] := 9054;
    s[20] := 9499; s[21] := 9866; s[22] := 10217; s[23] := 10763; s[24] := 10683;
    AC.Serie.Value := s;
    AC.ModelPeriod.FirstPoint := 1;
    AC.ModelPeriod.LastPoint := 25;
    AC.MissingData.Method := MissingDataMethod.Casewise;
    AC.DifferenceOrder := 3;
    AC.LagOrder := 10;
    res := AC.Execute;
    If res <> 0 Then
        Debug.WriteLine(AC.Errors);
        Else
            d0 := AC.StandardError;
            Debug.WriteLine("Стандартная ошибка: " + d0.ToString);
            Debug.WriteLine("ACF, PACF");
            For i := 1 To AC.AutoCorrelationFunction.Length Do
                d1 := AC.AutoCorrelationFunction[i - 1];
                d2 := AC.PartialAutoCorrelationFunction[i - 1];
                Debug.WriteLine(i.ToString + ". " + d1.ToString + ", " + d2.ToString);
            End For;
    End If;
End Sub UserProc;

После выполнения примера в окно консоли будут выведены:

• стандартная ошибка;

• автокорреляционная функция;

• частная автокорреляционная функция.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Stat;
…
Public Shared Sub Main(Params: StartParams);
Var
    AC: SmAutoCorrelation;
    d0, d1, d2: Double;
    i, res: Integer;
    s: Array[25] Of Double;
    AutoCorrFunc: System.Array;
Begin
    AC := New SmAutoCorrelation.Create();
    //значения s
    s[00] := 4110; s[01] := 4280; s[02] := 4459; s[03] := 4545; s[04] := Double.Nan;
    s[05] := 4861; s[06] := 5195; s[07] := 5389; s[08] := 5463; s[09] := 5610;
    s[10] := 5948; s[11] := 6218; s[12] := 6521; s[13] := 6788; s[14] := Double.Nan;
    s[15] := 7486; s[16] := 7832; s[17] := 8153; s[18] := 8468; s[19] := 9054;
    s[20] := 9499; s[21] := 9866; s[22] := 10217; s[23] := 10763; s[24] := 10683;
    AC.Serie.Value := s;
    AC.ModelPeriod.FirstPoint := 1;
    AC.ModelPeriod.LastPoint := 25;
    AC.MissingData.Method := MissingDataMethod.mdmCasewise;
    AC.DifferenceOrder := 3;
    AC.LagOrder := 10;
    res := AC.Execute();
    If res <> 0 Then
        System.Diagnostics.Debug.WriteLine(AC.Errors);
        Else
            d0 := AC.StandardError;
            System.Diagnostics.Debug.WriteLine("Стандартная ошибка: " + d0.ToString());
            System.Diagnostics.Debug.WriteLine("ACF, PACF");
            For i := 1 To AC.AutoCorrelationFunction.Length Do
                AutoCorrFunc := AC.AutoCorrelationFunction;
                d1 := AutoCorrFunc[i - 1] As double;
                AutoCorrFunc := AC.PartialAutoCorrelationFunction;
                d2 := AutoCorrFunc[i - 1] As double;
                System.Diagnostics.Debug.WriteLine(i.ToString() + ". " + d1.ToString() + ", " + d2.ToString());
            End For;
    End If;
End Sub;

См. также:

ISmAutoCorrelation