Fitted: Array;
Свойство Fitted возвращает значения модельного ряда.
Sub Main;
Var
Grey: ISmGreyForecast;
d0, d1: 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(" исходный Y, модельный");
For i := Grey.ModelPeriod.FirstPoint To Grey.ModelPeriod.LastPoint Do
d0 := Y[i-1];
d1 := Grey.Fitted[i-1];
Debug.WriteLine(i.ToString + " - " + d0.ToString+" - "+d1.ToString);
End For;
End If;
End Sub Main;
После выполнения примера в окно консоли будут выведены значения модельного и исходного рядов:
Module execution started
исходный Y, модельный
5 - 6495 - 6495
6 - 6907 - 6993.0987483797362
7 - 7349 - 7185.9102132241533
8 - 7213 - 7384.0378136349609
9 - 7061 - 7587.6281243885169
10 - 1.#QNAN - 7796.8317615740234
11 - 7132 - 8011.8034940184443
12 - 7137 - 8232.702357785427
13 - 7473 - 8459.6917738293414
14 - 7722 - 8692.9396688948618
15 - 8088 - 8932.6185997481807
16 - 8516 - 9178.9058808356058
17 - 8941 - 9431.9837154597044
18 - 1.#QNAN - 9692.03933057416
19 - 1.#QNAN - 9959.2651152938488
20 - 9746 - 10233.858763224038
21 - 9907 - 10516.023418714525
22 - 10333 - 10805.967827145883
23 - 10863 - 11103.906489358516
24 - 11693 - 11410.05982034147
25 - 12242 - 11724.654312294151
26 - 12227 - 12047.922702186683
27 - 12910 - 12380.104143937235
28 - 13049 - 12721.444385339099
29 - 13384 - 13072.195949864341
30 - 14036 - 13432.618323480943
31 - 14242 - 13802.97814662024
32 - 14704 - 14183.54941143794
33 - 13802 - 14574.613664512639
34 - 14197 - 14976.460215134663
35 - 15010 - 15389.386349337059
36 - 15589 - 15813.69754982728
37 - 15932 - 16249.707721984014
38 - 16631 - 16697.739426082931
39 - 17394 - 17158.124115928425
40 - 17758 - 17631.20238406281
Module execution finished
См. также: