Vektor mit bestimmtem winkel erzeugen

[Antigo]

Servus,
Ich hab grad ein totales Brett vorm Kopf. Ich möchte einen Vektor erzeugen, der eine bestimmte Länge und einen bestimmten Winkel (1-360°) hat.

Wie gehe ich da am besten ran? Über tan(alpha)=Gegen/ANkathete?

edit sry ganz vergessen, es geht um 2d vektoren. X1 und X2 sind also gesucht bei gegebenem WInkel und gegebener Länge.

[Cöster]

Die Länge eines Vektors kriegst du doch mit dem Pythagoras raus. Was meinst du mit Winkel? Winkel wozu?

[QuickAndDirty]

x := Cos(alpha) * laenge
y := Sin(alpha) * laenge

evtl. x und y vertauschen....must mal eben ausprobieren.
Du must mit double Werten Rechnen und dann nach int Konvertieren

[Khabarakh]

Zitat von QuickAndDirty:

evtl. x und y vertauschen

Nein

Zitat:

Du must mit double Werten Rechnen und dann nach int Konvertieren

In den allermeisten Fällen werden Vektorkoordinaten weiterhin als Fließkommazahl gespeichert.

@Cöster: Polarkoordinaten sind eine übliche Darstellung von Vektoren.

[Antigo]

erstmal danke für eure Hilfe. meine Prozedur sieht jetzt so aus:

Delphi-Quellcode:

procedure TVektor.setzewinkel(alpha:double);
begin
 if alpha <= 0 then alpha:=360+alpha;
 x1:=cos(degtorad(alpha))*giblaenge;
 x2:=sin(degtorad(alpha))*giblaenge;
end;

meine Prozedur gibwinkel sieht so aus:

Delphi-Quellcode:

function TVektor.Gibwinkel2;
begin
  if x2 >= 0 then result:=radtodeg(arccos(x1/giblaenge))
  else result:=360-radtodeg(arccos(x1/giblaenge))
end;

Generell funktioniert das ganze auch. Zumindest ungefähr. Ich mache nun bei meinem kleinens SPielchen folgendes:

Delphi-Quellcode:

   
  kanone.vrohr.setzewinkel(45);
  showmessage(floattostr(kanone.vrohr.gibwinkel));

Ich setze den Winkel also auf 45 Grad und lasse ihne sofort danach ausgeben. Heraus kommt aber nicht 45 ° sondern
~50,76. Durch diese UNgenauigkeiten wird alles ziemlich unschön. Ich arbeite aber überall mit doppelter Genauigkeit. WIe kann ich da wo etwas verbessern? Ich danke schonmal im vorraus

[Khabarakh]

Wenn du innerhalb einer Prozedur Felder des Objektes veränderst, darfst du natürlich nicht erwarten, dass Funktionen immer noch den gleichen Wert zurückgeben.
if alpha <= 0 then alpha:=360+alpha; Überflüssig

Delphi-Quellcode:

if x2 >= 0 then result:=radtodeg(arccos(x1/giblaenge))
  else result:=360-radtodeg(arccos(x1/giblaenge))

ArcTan2

[Antigo]

Zitat von Khabarakh:

Wenn du innerhalb einer Prozedur Felder des Objektes veränderst, darfst du natürlich nicht erwarten, dass Funktionen immer noch den gleichen Wert zurückgeben.
if alpha <= 0 then alpha:=360+alpha; Überflüssig

Delphi-Quellcode:

if x2 >= 0 then result:=radtodeg(arccos(x1/giblaenge))
  else result:=360-radtodeg(arccos(x1/giblaenge))

ArcTan2

hmm jo das alpha zu verändern ist in der Tat überflüssig. Das mit dem Arctan2 gucke ich mir mal an, aber die bisherige Funktion liefert ja grundsätzlich auch das richtige, nur eben ungenau und das ist es was ich nicht verstehe...

edit: ok arctan2 ist eingebunden. meine gibwinkel prozedur sieht jetzt also so aus:

Delphi-Quellcode:

function TVektor.Gibwinkel2;
begin
  result:=radtodeg(arctan2(x2,x1));
end;

schonmal sehr viel einfacher danke

die setzewinkel haut jedoch immer noch nicht hin, aus 20 wird damit beispielsweise 23,xx

[Khabarakh]

Dann eben noch einen weiteren Hint zusätzlich zu meinem ersten Satz : TVektor.SetzeWinkel: x1 <-> GibLaenge

[Antigo]

unfassbar, den Fehler hab ich schon beim setzen der Länge begangen.

danke für die Aufklärung, nun passt es...