ModelPeriod: IStatPeriod;
Свойство ModelPeriod определяет параметры периода идентификации.
Sub Main;
Var
ARIMA: SmArima;
serie: Array Of Double;
res, i: Integer;
d0: Double;
Begin
ARIMA := New SmArima.Create;
serie := New Double[26];
serie[0] := 0;
serie[1] := 0;
serie[2] := 0.878471616;
serie[3] := 0.85401205;
serie[4] := 3.785177462;
serie[5] := 1.28083579;
serie[6] := 5.345764494;
serie[7] := 4.237308214;
serie[8] := 4.864879297;
serie[9] := 7.765499027;
serie[10] := 3.548892753;
serie[11] := 5.142962432;
serie[12] := 2.512417383;
serie[13] := 3.382746302;
serie[14] := 4.457015799;
serie[15] := 5.560026451;
serie[16] := 5.402062371;
serie[17] := 6.384467741;
serie[18] := 4.464268156;
serie[19] := 5.803763577;
serie[20] := 3.60729744;
serie[21] := 3.741717667;
serie[22] := 2.958338923;
serie[23] := 2.261327116;
serie[24] := 3.549542062;
serie[25] := 1.829321841;
ARIMA.Serie.Value := serie;
ARIMA.ModelPeriod.FirstPoint := 1;
ARIMA.ModelPeriod.LastPoint := 10;
ARIMA.Forecast.LastPoint := 40;
ARIMA.ArimaSpecification.AutoRegressionOrder := 0;
ARIMA.ArimaSpecification.MovingAverageOrder := 1;
ARIMA.ModelCoefficients.Intercept.Mode := InterceptMode.AutoEstimate;
ARIMA.MaxIteration := 150;
res := ARIMA.Execute;
Debug.WriteLine(res); // вывод статуса выполнения
Debug.WriteLine("=== Модельный ряд === "); // вывод ряда данных в окно консоли
For i := 0 To ARIMA.Fitted.Length - 1 Do
d0 := ARIMA.Fitted[i];
Debug.WriteLine(i.ToString + ", " + d0.ToString);
End For;
End Sub Main;
После выполнения примера в окно консоли будет выеден следующий результат:
Module execution started
0
=== Модельный ряд ===
0, 1.9845170054278913
1, 1.3700942110179368
2, 2.498685637588657
3, -0.5488013255767431
4, 5.9969788602593361
5, -1.8998380542379876
6, 5.2540517110536751
7, 2.3835356622458708
8, 0.75764210453458603
9, 7.7654990269999997
10, 1.#QNAN
11, 1.#QNAN
12, 1.#QNAN
13, 1.#QNAN
14, 1.#QNAN
15, 1.#QNAN
16, 1.#QNAN
17, 1.#QNAN
18, 1.#QNAN
19, 1.#QNAN
20, 1.#QNAN
21, 1.#QNAN
22, 1.#QNAN
23, 1.#QNAN
24, 1.#QNAN
25, 1.#QNAN
Module execution finished
См. также: