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

[Jasocul]

Ich habe Delphi noch nicht gestartet, aber ist das Ergebnis nicht vom Typ Extended?

[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

[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

[Klaus01]

sqr in Visual basic -> Square root , also Quadrat Wurzel

sqr in Delphi -> Square -> Quadratzahl

sqrt in Delphi -> Square root

Quelle: http://www.vbforums.com/showthread.p...9-Sqr-And-Sqrt

Grüße
Klaus

[EWeiss]

Zitat von Klaus01:

sqr in Visual basic -> Square root , also Quadrat Wurzel

sqr in Delphi -> Square -> Quadratzahl

sqrt in Delphi -> Square root

Quelle: http://www.vbforums.com/showthread.p...9-Sqr-And-Sqrt

Grüße
Klaus

Ahhh dann ist sqr definitiv schon mal falsch.
Was ist mit LN?

Danke!

gruss

[Sherlock]

Welcher Logarithmus ist hier erwünscht? Das Log im VB-Beispiel ist gemäß Doku der natürliche (also Basis e). Der Delphi Log ist der dekadische (Basis 10). Korrekt wäre System.Ln.

Sherlock

[Klaus01]

Zitat von EWeiss:

Was ist mit LN?

Danke!

gruss

..sollte passen.

https://docs.microsoft.com/en-us/dot...ystem.math.log

In Delphi code, Ln returns the natural logarithm (Ln(e) = 1) of the real-type expression X.



Grüße
Klaus

[EWeiss]

Zitat von Sherlock:

Welcher Logarithmus ist hier erwünscht? Das Log im VB-Beispiel ist gemäß Doku der natürliche (also Basis e). Der Delphi Log ist der dekadische (Basis 10). Korrekt wäre System.Ln.

Sherlock

Jo und den verwende ich System.LN. Danke.
Leider habe ich trotzdem das Problem mit -NAN obwohl ich schon den Überlauf prüfe.

Delphi-Quellcode:

 function LimitedSingleValue(doubleVal: double): single;
 begin
   if doubleVal > MaxSingle then
     result := MaxSingle
   else if doubleVal < MinSingle then
     result := MinSingle
   else
     result := doubleVal;
 end;

Schlage mich damit jetzt schon ein paar Tage mit rum.
Also wenn an doubleVal der wert -NAN ankommt dann kracht es trotzdem.

Zitat:

..sollte passen.

Danke Klaus.

gruss

[Klaus01]

.. du könntest zusätzlich auf isNAN testen.

Grüße
Klaus