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