IIntercept.Mode

Синтаксис Fore

Mode: InterceptMode;

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

Mode: Prognoz.Platform.Interop.Stat.InterceptMode;

Описание

Свойство Mode определяет режим задания константы.

Комментарии

Если:

Пример Fore

Для выполнения примера добавьте ссылку на системные сборки «Stat», «MathFin».

Sub UserIntercept;
Var
    lr: ISmLinearRegress;
    Fact: Array[
40Of Double;
    Intercept: IIntercept;
    i: Integer;
    res: Integer;
Begin
    lr := 
New SmLinearRegress.Create;
    
// Задаем значения объясняемого ряда
    For i := 0 To 39 Do
        Fact[i] := Math.RandBetween(-
4040);
    
End For;
    
// Задаем объясняемый ряд
    lr.Explained.Value := Fact;
    
// Получаем параметры константы в модели
    Intercept := lr.ModelCoefficients.Intercept;
    
// Указыываем, что значение константы оценивается автоматически
    Intercept.Mode := InterceptMode.AutoEstimate;
    
// Рассчитываем модель  
    res := lr.Execute;
    Debug.WriteLine(lr.Errors);
    
If (res = 0Then
        
// Выводим значение и коэффициенты константы
        Debug.WriteLine("Значение: " + Intercept.Estimate.ToString);
        Debug.WriteLine(
"Вероятность: " + Intercept.Probability.ToString);
        Debug.WriteLine(
"Стандартная ошибка: " + Intercept.StandardError.ToString);
        Debug.WriteLine(
" t-статистика: " + Intercept.TStatistic.ToString);
    
End If;
End Sub UserIntercept;

Результат выполнения примера: в окно консоли будут выведены значение и коэффициенты константы.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Stat;
Imports Prognoz.Platform.Interop.MathFin;

Public Shared Sub UserIntercept();
Var
    lr: ISmLinearRegress;
    Fact: Array[40Of Double;
    Math: MathClass;
    Intercept: IIntercept;
    i: Integer;
    res: Integer;
Begin
    lr := New SmLinearRegress.Create();
    // Задаем значения объясняемого ряда
    Math := New MathClass.Create();
    For i := 0 To 39 Do
        Fact[i] := Math.RandBetween(-4040);
    End For;
    // Задаем объясняемый ряд
    lr.Explained.Value := Fact;
    // Поулчаем параметры константы в модели
    Intercept := lr.ModelCoefficients.Intercept;
    // Указыываем, что значение константы оценивается автоматически
    Intercept.Mode := InterceptMode.imAutoEstimate;
    // Рассчитываем модель  
    res := lr.Execute();
    System.Diagnostics.Debug.WriteLine(lr.Errors);
    If (res = 0Then
        // Выводим значение и коэффициенты константы
        System.Diagnostics.Debug.WriteLine("Значение: " + Intercept.Estimate.ToString());
        System.Diagnostics.Debug.WriteLine("Вероятность: " + Intercept.Probability.ToString());
        System.Diagnostics.Debug.WriteLine("Стандартная ошибка: " + Intercept.StandardError.ToString());
        System.Diagnostics.Debug.WriteLine(" t-статистика: " + Intercept.TStatistic.ToString());
    End If;
End Sub UserIntercept;

См. также:

IIntercept