type
Complex = packed record
Re, Im: Double
end;

IntegerPtr = ^Integer;
DoublePtr = ^Double;
ComplexPtr = ^Complex;

EFFTError = class(Exception)
end;

// Complex Discrete Fourier Transform

TComplexDFT = class
constructor Create(N: Integer);

procedure Compute(dаta: ComplexPtr); overload;
procedure Inverse(dаta: ComplexPtr); overload;

property N: Integer read FN;
end;

// Real Discrete Fourier Transform

TRealDFT = class
constructor Create(N: Integer);

procedure Compute(dаta: TDoubleDynArray); overload;
procedure Compute(dаta: DoublePtr); overload;
procedure Inverse(dаta: TDoubleDynArray); overload;
procedure Inverse(dаta: DoublePtr); overload;

property N: Integer read FN;
end;

// Discrete Cosine Transform

TDCT = class
constructor Create(N: Integer);

procedure Compute(dаta: TDoubleDynArray); overload;
procedure Compute(dаta: DoublePtr); overload;
procedure Inverse(dаta: TDoubleDynArray); overload;
procedure Inverse(dаta: DoublePtr); overload;

property N: Integer read FN;
end;

// Discrete Sine Transform

TDST = class
public
constructor Create(N: Integer);

procedure Compute(dаta: TDoubleDynArray); overload;
procedure Compute(dаta: DoublePtr); overload;
procedure Inverse(dаta: TDoubleDynArray); overload;
procedure Inverse(dаta: DoublePtr); overload;

property N: Integer read FN;
end;

function SineWave(Count, SamplingFrequency: Integer): TDoubleDynArray;
function CosineWave(Count, SamplingFrequency: Integer): TDoubleDynArray;
function Mean(dаta: TDoubleDynArray): Double;
function RootMeanSquare(dаta: TDoubleDynArray): Double;
function MaxPosition(dаta: TDoubleDynArray): Integer;
function MinPosition(dаta: TDoubleDynArray): Integer;

What's new

Version 1.3
added Delphi/C++ Builder 11 files