Logarithmus Log zu Delphi

[EWeiss]

Habe leider immer wieder Geleitkommaüberläufe.

Der Ausgang..

Code:

b ist Long..
b = (Log(Sqr(Spectrum(i1).r * Spectrum(i1).r + Spectrum(i1).i * Spectrum(i1).i) + 0.0001) + 9.21034037197618) * q1

das ganze nach Delphi

Delphi-Quellcode:

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

bin mir aber nicht sicher ob LN der richtige Datentyp ist.

Alternativen Wenn nicht?
Keine Ahnung wie ich die Ergebnisse wenn -NAN, +NAN abfangen soll.
Ungültige Gleitkomma Operationen. grrr...

Muss dabei sagen das ich kein Mathe experte bin..

gruss