Forum: Programmieren allgemein
by Antigo,
21. Dez 2006
unfassbar, den Fehler hab ich schon beim setzen der Länge begangen. :wall:
danke für die Aufklärung, nun passt es... :oops:
Forum: Programmieren allgemein
by Antigo,
21. Dez 2006
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:
function TVektor.Gibwinkel2;
begin
result:=radtodeg(arctan2(x2,x1));
end;...
Forum: Programmieren allgemein
by Antigo,
21. Dez 2006
erstmal danke für eure Hilfe. meine Prozedur sieht jetzt so aus:
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:
Forum: Programmieren allgemein
by Antigo,
21. Dez 2006
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.