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.

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

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

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.

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

markieren

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:

markieren

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:

markieren

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

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

markieren

Delphi-Quellcode:

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

ArcTan2

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

markieren

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:

markieren

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

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

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

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