Wurzel & Winkelberechnung

[Python]

Delphi-Version: 4 (stand leider nicht zur Auswahl)

Ich möchte ein Programm schreiben, welches den Winkel von 2 Verschiebungsvektoren berechnet.

Code:

float := ArcCos((a1*b1+a2*b2+a3*b3)/(Sqrt(power(a1,2)+power(a2,2)+power(a3,2)*Sqrt(power(b1,2)+power(b2,2)+power(b3,2)))));
     float := RadToDeg(float);
     Edit1.Text := FloatToStr(float) + ' Grad';

Es kommt kein Fehler beim Kompilieren, aber wenn ich den Button zur Berechnung drücke erscheint folgende Nachricht:

Klasse: EInvalidOp
Meldung: Ungültige Gleitkommazahl

Wie behebe ich das, sodass er mir den Winkel ausgibt?

Mit freundlichen Grüßen

Python

[Uwe Raabe]

Da müsste man schon wissen, welche Werte in den jeweiligen Variablen stehen.

Übrigens: sqr(x) gibt das Quadrat von x.

[Python]

Vektor1: 1|0|3
Vektor2: 1|-1|3

Rechnung sollte sein:
a1*b1 + a2*b2 + a3*b3 geteilt duch Wurzel(a1²+a2²+a3²) * Wurzel(b1²+b2²+b3²)
Und das Ergebnis soll dann noch mit "cos-1" gerechnet werden. (Auf dem Taschenrechner ist es "cos hoch -1")

Denke ich habe mich bei der Rechnung bei Delphi vertan. :-$

[Mathematiker]

Hallo,

Zitat:

Zitat von Python (Beitrag 1236959)

Code:

float := ArcCos((a1*b1+a2*b2+a3*b3)/(Sqrt(power(a1,2)+power(a2,2)+power(a3,2)*Sqrt(power(b1,2)+power(b2,2)+power(b3,2)))));
     float := RadToDeg(float);
     Edit1.Text := FloatToStr(float) + ' Grad';

Die Klammern stehen falsch. Der Betrag ist für jeden Vektor einzeln zu berechnen, d.h. nach der 1.Wurzel muss eine Klammer stehen, die bei Dir fehlt:

Code:

Sqrt(power(a1,2)+power(a2,2)+power(a3,2))

Entsprechend bei dem 2.Vektor. Wie schon erwähnt, wäre allerdings entweder

Code:

Sqrt(sqr(a1)+sqr(a2)+sqr(a3))

oder

Code:

Sqrt(a1*a1+a2*a2+a3*a3)

übersichtlicher.

Beste Grüße
Mathematiker

[Python]

Ihr seid echt super :thumb:

Ich war hier schon öfter auf der Seite und hatte mich dann eben entschlossen mich hier anzumelden.

Vielen vielen Dank :)

Mit freundlichen Grüßen

Python

[Frank Ranis]

Hallo Python.

kennst Du diese Seite.

http://wiki.delphigl.com/index.php/T...ineare_Algebra

Gruß

Frank