ISmGARCH.CovarianceMatrix

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

Sub UserProc;
Var
    GARCH: ISmGARCH;
    x: Array[10] Of Double;
    y1, y2: Array[15] Of Double;
    Res, i, j: Integer;
    str: String;
Begin
    GARCH := New SmGARCH.Create;
    // Задаем значения переменных
    x[0] := 100; y1[0] := 120; y2[0] := 122;
    x[1] := 111; y1[1] := 125; y2[1] := 127;
    x[2] := 123; y1[2] := 124; y2[2] := 130;
    x[3] := 113; y1[3] := 130; y2[3] := 135;
    x[4] := 119; y1[4] := 133; y2[4] := 140;
    x[5] := 121; y1[5] := Double.Nan; y2[5] := 149;
    x[6] := 125; y1[6] := 139; y2[6] := 150;
    x[7] := 131; y1[7] := 140; y2[7] := 155;
    x[8] := 131; y1[8] := Double.Nan; y2[8] := 155;
    x[9] := 131; y1[9] := 140; y2[9] := Double.Nan;
    y1[10] := 129; y2[10] := 149;
    y1[11] := 139; y2[11] := 150;
    y1[12] := 140; y2[12] := 155;
    y1[13] := 134; y2[13] := 145;
    y1[14] := 140; y2[14] := 165;
    // Задаем объясняемую переменную
    GARCH.Explained.Value := x;
    // Задаем объясняющие переменные
    GARCH.Explanatories.Clear;
    GARCH.Explanatories.Add.Value := y1;
    GARCH.Explanatories.Add.Value := y2;
    // Задаем параметры периодов идентификации и прогноза
    GARCH.ModelPeriod.FirstPoint := 1;
    GARCH.ModelPeriod.LastPoint := 10;
    // Задаем параметры прогнозного ряда
    GARCH.Forecast.LastPoint := 15;
    // Задаем режим определения константы
    GARCH.Intercept.Mode := InterceptMode.AutoEstimate;
    // Задаем метод обработки пропусков
    GARCH.MissingData.Method := MissingDataMethod.LinTrend;
    // Используем начальные значения по умолчанию
    GARCH.UseDefaultInitValues := True;
    // Задаем максимальное число итераций и точность вычислений
    GARCH.MaxIteration := 100;
    GARCH.Tolerance := 0.0001;
    // Задаем порядок асимметрии
    GARCH.AssymetryOrder := 2;
    // Задаем тип модели GARCH
    GARCH.GARCHSpec := GARCHSpecType.GARCH;
    // Выполняем расчёт метода и выводим результаты
    res := GARCH.Execute;
    If res <> 0 Then
        Debug.WriteLine(GARCH.Errors);
        Else
            Debug.WriteLine("== Матрица ковариационных коэффициентов== ");
            For i := 0 To GARCH.CovarianceMatrix.GetUpperBound(1) Do
                str := "";
                For j := 0 To GARCH.CovarianceMatrix.GetUpperBound(2) Do
                    str := str + "  " + (GARCH.CovarianceMatrix[i, j] As Double).ToString;
                End For;
                Debug.WriteLine(str);
            End For;
    End If; 
End Sub UserProc;