Komische EInvalidOp

[janjan]

Ich bekomm in folgender Zeile eine EInvalidOp

if sqrt(sqr(FRadius-FPunkte[i].y)+sqr(FRadius-FPunkte[i].x)) > FRadius then nur leider weiß ich nicht warum

Aus der Delphi Hilfe:

Code:

Beschreibung

EInvalidOp wird ausgelöst, wenn der Prozessor eine nicht definierte Anweisung, eine unzulässige Operation oder einen Stack-Überlauf des Gleitkomma-Prozessors feststellt.

Laufzeitinformationen zu Exceptions werden in den von EExternal bereitgestellten Feldern gespeichert.

btw.
ist if sqrt(sqr(a)+sqr(b)) > c then eigentlich langsamer als if (sqr(a)+sqr(b)) > sqr(c) then ?

[sakura]

Zitat von janjan:

ist if sqrt(sqr(a)+sqr(b)) > c then eigentlich langsamer als if (sqr(a)+sqr(b)) > sqr(c) then ?

Die Frage stellt sich nicht, da es zwei verschiedene Lösungen sind. Wenn C < 0 ist, dann wird die erste Lösung immer True ergeben, die zweite muss jedoch nicht zwangsläufig True ergeben. SQRT(X) für X>=0 ergibt immer einen Wert >= 0. X ist im obigen Falle immer >= 0 da, SQR(N) + SQR(M) immer >= 0, da SQR(A) >= 0.

Woher die EInvalidOp kommt, habe ich auch noch nicht entdeckt

......

[janjan]

Angenommen C ist immer positiv, dann müssten beide Gleichungen identisch sein, oder?

[sakura]

Zitat von janjan:

Angenommen C ist immer positiv, dann müssten beide Gleichungen identisch sein, oder?

Wenn wir dann noch rundungsfehler - welche bei SQRT im allg. höher sind als bei SQR ausschliessen können, dann ja. Logisch zumindest eindeutig ja, wenn C >= 0.