Logarithmus Log zu Delphi

[EWeiss]

Zitat von hoika:

Hallo,

Zitat:

Keine Ahnung wie ich die Ergebnisse wenn -NAN, +NAN abfangen soll.

Da kann man doch so ein 8087-Flag (https://www.oreilly.com/library/view...595/re288.html) setzen oder try except

Delphi-Quellcode:

constructor TSpectrum.Create;
begin
//  Saved8087CW := Default8087CW;
//  Set8087CW($133f);

  FFFTSize := 2048;
  FFTLog := 11;
end;

es nutzt nur nichts deshalb wieder aus kommentiert.
try except auch nicht!

sobald ich hier abfrage

b := (LN(Sqr(Spectrum[i1].r * Spectrum[i1].r + Spectrum[i1].i * Spectrum[i1].i) + 0.0001) + 9.21034037197618) * q1;

und die Rückgabe +NAN oder -NAN ist dann kracht es.

gruss