C++ Complex Typ nach Pascal

[totti14]

So funzt es mit den overloaded operatoren von D2006 und der Math386 von Dew Research.

Delphi-Quellcode:

// b0, b1, b2, a1, a2: f64;            //internal biquad unquantized coeffs
procedure TBIQUAD.GetFrqResponse(&module_dB: f64; &phase_degree: f64; f_Hz: f64);
var response, z1, z2  : TCplx;
    omega             : TSample;
begin
  omega := 2 * PI * f_Hz / fs;

  SinCos(omega, z1.Im, z1.Re);
  SinCos(2 * omega, z2.Im, z2.Re);

  response := (b0 + (b1 * z1) + (b2 * z2)) / (1 + (a1 * z1) + (a2 * z2));

  module_dB := 20 * Log10(CAbs(response));
  phase_degree := (180 / PI) * Arg(response);
end;