Residuals: Array;
Свойство Residuals возвращает ряд остатков.
Sub Main;
Var
ARIMA: SmArima;
Fact: Array Of Double;
i: Integer;
Sub PrinResult(Rez: Array Of Double);
Var
i: Integer;
d0: Double;
Begin
For i := 0 To Rez.Length-1 Do
d0 := Rez[i];
Debug.WriteLine(i.ToString + ", " + d0.ToString);
End For;
End Sub PrinResult;
Begin
ARIMA := New SmArima.Create;
Fact := New Double[9];
For i := 0 To 8 Do
Fact[i] := 1230 + i*326;
End For;
ARIMA.Serie.Value := Fact;
ARIMA.Forecast.LastPoint := 15;
ARIMA.ArimaSpecification.AutoRegressionOrder := 0;
ARIMA.ArimaSpecification.MovingAverageOrder := 1;
ARIMA.ModelCoefficients.Intercept.Mode := InterceptMode.AutoEstimate;
ARIMA.MaxIteration := 50;
ARIMA.Execute;
Debug.WriteLine("=== Модельный ряд ===");
PrinResult(ARIMA.Fitted);
Debug.WriteLine("=== Ряд остатков ===");
PrinResult(ARIMA.Residuals);
End Sub Main;
После выполнения примера в окно консоли будет выведен следующий результат:
Module execution started
=== Модельный ряд ===
0, 1556
1, 1882.0000192873185
2, 1882.0000000000011
3, 2207.9999999999991
4, 2208.0000000000009
5, 2533.9999807126801
6, 2534
7, 2859.9999614253629
8, 3838
=== Ряд остатков ===
0, -326
1, -326.00001928731865
2, -1.1368683772161603E-012
3, 1.1368683099549866E-012
4, 325.99999999999886
5, 326.00001928731973
6, 652
7, 652.0000385746373
8, -2.5301706769843864E-098
Module execution finished
См. также: