Вычисление автокорреляционной функции
Материал из DRKB
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Вычисление автокорреляционной функции
Зависимости: Math
Автор: lookin, lookin@mail.ru, Екатеринбург
Copyright: lookin
Дата: 2 июня 2002 г.
***************************************************** }
type
TDoubleArray = array of Double
procedure AutoCorrelation(ValueArray: TDoubleArray; var ACArray: TDoubleArray;
FromValue, ToValue: Integer);
var
i, j, N: Integer;
avr, dev, xxsum: Double;
begin
// ValueArray - массив типа Double для которого вычисляется функция
// FromValue - номер точки, начиная с которого выбираются элементы массива
// ToValue - номер точки, на котором заканчивается выбор элементов массива
// ACArray - массив возвращаемых значений автокорреляционной функции для 5-и точек
N := ToValue - FromValue;
SetLength(ACArray, 5);
if N < 5 then
begin
for i := 0 to 4 do
ACArray[i] := 0;
Exit;
end
else
begin
SetLength(rv, N);
dev := 0;
for i := 0 to N - 1 do
rv[i] := ValueArray[i + FromValue];
avr := Mean(rv);
for i := 0 to N - 1 do
dev := dev + Sqr(rv[i] - avr);
dev := dev / N;
for j := 0 to 4 do
begin
xxsum := 0;
for i := 0 to (N - 1) - j do
xxsum := xxsum + (rv[i] - avr) * (rv[i + j] - avr);
ACArray[j] := xxsum / (dev * (N - j));
end;
end;
end;
// Пример использования:
var
SourceArray, ACCoefs: TDoubleArray;
begin
AutoCorrelation(SourceArray, ARCoefs, 0, Length(SourceArray) - 1);
for i := 0 to Length(ACCoefs) - 1 do
ShowMessage(FloatToStr(ACCoefs[i]));
Author: lookin
Source: http://delphibase.endimus.com
ID: 04226