Hi,
ich habe ein kleines Problem bezüglich vektor Rechnung.

Ich habe einen Vektor, mit einer x1 und einer x2 Komponente.
Jetzt hat dieser Vektor natürlich eine Länge, die ich so berechne:

markieren

Delphi-Quellcode:

function TVektor.GibLaenge: Double;
begin
  result:=sqrt(sqr(x1)+sqr(x2));
end;

Ganz simpler Pythagoras, bisher noch kein Problem.

Jetzt möchte ich aber die Länge des Vektors verändern. Dazu habe ich den folgenden Ansatz gewählt: Vektor normieren (Lände 1), und mit der neuen Länge multiplizieren:

markieren

Delphi-Quellcode:

procedure TVektor.setzeLaenge(laenge:double);
begin
  x1:= (x1/giblaenge) * laenge;
  x2:= (x2/giblaenge) * laenge;
end;

Generell funktioniert das auch. Nur leider nicht genau genug. Ich hab folgendes Experiment gemacht:

markieren

Delphi-Quellcode:

var temp:TVektor;
begin
  temp:=Tvektor.create(4,4);
  temp.setzelaenge(5);
  Showmessage(floattostr(temp.giblaenge));
end;

Das Ergebnis: DIe SHowmessage gibt 5,11123 usw. aus. Die Zahlen mit denen er rechnet sind also ungenau. Dadurch haut mein gesamtes Programm nicht hin. Ich habe auch schon den Typ auf Extended gewechselt.. keine Verbesserung.

Daher suche ich jetzt einen anderen Ansatz, die Länge eines Vektors festzulegen. Kann mir da jemand helfen?

Danke im vorraus

markieren

Delphi-Quellcode:

procedure TVektor.setzeLaenge(laenge:double);
begin
  x1:= (x1/giblaenge) * laenge;
  x2:= (x2/giblaenge) * laenge;
end;

So wird das nix . Du musst den Vektor-Betrag in einer Variable speichern, bevor die einzelnen Komponenten zugewiesen werden.

oh mein gott.



=> <=


danke

Es würde auch reichen, wenn er die alte Länge in ner Variable speichert.

...sonst kriegste nen anderen Vektor raus

also:
neuelänge:=5

länge:=sqrt(sqr(x1)+sqr(x2))
x1:=x1*neuelänge/länge
x2:=x2*neuelänge/länge
neuelänge:=sqrt(sqr(x1)+sqr(x2))

kriegste am Ende auch 5 raus?

Zitat von Khabarakh:

Du musst den Vektor-Betrag in einer Variable speichern

Zitat von 3_of_8:

Es würde auch reichen, wenn er die alte Länge in ner Variable speichert.

Ähm... ja.

ARGH, ich hab mich verlesen.

Ich dachte du meinst die einzelnen Vektor-(ich weiß ned wie die Dinger heißen, ich rate einfach mal) Elemente.

du meinst

x1*:=x1
x2*:=x2

x1:=x1*neuelänge/länge*
x2:=x2*neuelänge/länge*

?