ModelCoefficients: IModelCoefficients;
Свойство ModelCoefficients возвращает коэффициенты модели.
Sub Main;
Var
Grey: ISmGreyForecast;
d0: Double;
res, i: Integer;
y: Array Of Double;
Begin
// значение y
y := New Double[43];
y[00] := 6209;
y[01] := 6385;
y[02] := 6752;
y[03] := 6837;
y[04] := 6495;
y[05] := 6907;
y[06] := 7349;
y[07] := 7213;
y[08] := 7061;
y[09] := Double.Nan;
y[10] := 7132;
y[11] := 7137;
y[12] := 7473;
y[13] := 7722;
y[14] := 8088;
y[15] := 8516;
y[16] := 8941;
y[17] := Double.Nan;
y[18] := Double.Nan;
y[19] := 9746;
y[20] := 9907;
y[21] := 10333;
y[22] := 10863;
y[23] := 11693;
y[24] := 12242;
y[25] := 12227;
y[26] := 12910;
y[27] := 13049;
y[28] := 13384;
y[29] := 14036;
y[30] := 14242;
y[31] := 14704;
y[32] := 13802;
y[33] := 14197;
y[34] := 15010;
y[35] := 15589;
y[36] := 15932;
y[37] := 16631;
y[38] := 17394;
y[39] := 17758;
y[40] := 17308;
y[41] := 16444;
y[42] := 16413;
Grey := New SmGreyForecast.Create;
Grey.Serie.Value := y;
Grey.ModelPeriod.FirstPoint := 5;
Grey.ModelPeriod.LastPoint := 40;
Grey.Forecast.LastPoint := 53;
Grey.Forecast.ConfidenceLevel := 0.8;
Grey.MissingData.Method := MissingDataMethod.SampleAverage;
res := Grey.Execute;
If res <> 0 Then
Debug.WriteLine(Grey.Errors);
Else
Debug.WriteLine(" Константа: ");
d0 := Grey.ModelCoefficients.Intercept.Estimate;
Debug.WriteLine("-Значение: " + d0.ToString );
d0 := Grey.ModelCoefficients.Intercept.StandardError;
Debug.WriteLine("-Стандартная ошибка: " + d0.ToString );
d0 := Grey.ModelCoefficients.Intercept.TStatistic;
Debug.WriteLine("-t-статистика: " + d0.ToString );
d0 := Grey.ModelCoefficients.Intercept.Probability;
Debug.WriteLine("-Вероятность: " + d0.ToString );
End If;
End Sub Main;
После выполнения примера в окно консоли будет выведено значение константы и ее параметры.
Module execution started
Константа:
-Значение: 6721.7754418862496
-Стандартная ошибка: 281.93549536028019
-t-статистика: 23.841536636941072
-Вероятность: 2.2385406289961449E-022
Module execution finished
См. также: