Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 787

•  TDictionary Custom Sort  5 902

•  Fast Watermark Sources  5 700

•  3D Designer  8 473

•  Sik Screen Capture  6 036

•  Patch Maker  6 480

•  Айболит (remote control)  6 472

•  ListBox Drag & Drop  5 336

•  Доска для игры Реверси  94 940

•  Графические эффекты  6 677

•  Рисование по маске  5 797

•  Перетаскивание изображений  4 859

•  Canvas Drawing  5 235

•  Рисование Луны  4 958

•  Поворот изображения  4 504

•  Рисование стержней  3 186

•  Paint on Shape  2 431

•  Генератор кроссвордов  3 306

•  Головоломка Paletto  2 619

•  Теорема Монжа об окружностях  3 402

•  Пазл Numbrix  2 248

•  Заборы и коммивояжеры  2 908

•  Игра HIP  1 878

•  Игра Go (Го)  1 792

•  Симулятор лифта  2 130

•  Программа укладки плитки  1 857

•  Генератор лабиринта  2 296

•  Проверка числового ввода  1 983

•  HEX View  2 293

•  Физический маятник  1 956

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Вычисление автокорреляционной функции



Автор: Lookin

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Вычисление автокорреляционной функции

Зависимости: Math
Автор:       lookin, lookin@mail.ru, Екатеринбург
Copyright:   lookin
Дата:        2 июня 2002 г.
***************************************************** }

//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]));




Похожие по теме исходники

Вычисление даты Пасхи

Линейная интерполяция функции




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте