SummaryStatistics: ISummaryStatistics;
Свойство SummaryStatistics возвращает статистические характеристики.
Sub Main;
Var
bpf: SmBandpassFilter;
can: Array[22] Of Double;
res: Integer;
Begin
can[00] := 6209;
can[01] := 6385;
can[02] := 6752;
can[03] := 6837;
can[04] := 6495;
can[05] := 6907;
can[06] := 7349;
can[07] := 7213;
can[08] := 7061;
can[09] := 7180;
can[10] := 7132;
can[11] := 7137;
can[12] := 7473;
can[13] := 7722;
can[14] := 8088;
can[15] := 8516;
can[16] := 8941;
can[17] := 9064;
can[18] := 9380;
can[19] := 9746;
can[20] := 9907;
can[21] := 10333;
bpf := New SmBandpassFilter.Create;
bpf.ModelPeriod.FirstPoint := 0;
bpf.ModelPeriod.LastPoint := 21;
bpf.Serie.Value := can;
bpf.Width := 2;
bpf.FrequencyHigh := 7;
bpf.FrequencyLow := 2;
res := bpf.Execute;
If res <> 0 Then
Debug.WriteLine(bpf.Errors);
Else
Debug.WriteLine("=== Статистика Дарбина-Уотсона ===");
Debug.WriteLine(bpf.SummaryStatistics.DW);
Debug.WriteLine("=== Среднее остатков ===");
Debug.WriteLine(bpf.SummaryStatistics.ME);
End If;
End Sub Main;
После выполнения примера в окно консоли будут выведены статистические характеристики:
Module execution started
=== Статистика Дарбина-Уотсона ===
2.1159230005904
=== Среднее остатков ===
-1.47391730494467
Module execution finished
См. также: