Punkt zwischen 2 Punkten

[Evian]

Hallo,

ich habe 2 Punkte vom Typ TPoint und brauche eine Funktion, die mir den Punkt liefert der auf der Gerade zwichen Punkt1 und Punkt 2 liegt und x% der Strecke von Punkt1 zu Punkt2 von Punkt1 entfernt ist. Da ich in der Schule bei Geometrie immer geschlafen habe, fällt mir das jetzt ein wenig schwer. Hat jemand eine Idee, wie eine solche Funktion aussehen könnte?!

gruß

Evi

[Klaus01]

kannst mal hier schauen, da ist es erklärt: http://www.hinterseher.de/Diplomarbe...unktionen.html

Grüße
Klaus

[Khabarakh]

Zitat von Evian:

ich habe 2 Punkte vom Typ TPoint und brauche eine Funktion, die mir den Punkt liefert der auf der Gerade zwichen Punkt1 und Punkt 2 liegt und x% der Strecke von Punkt1 zu Punkt2 von Punkt1 entfernt ist. Da ich in der Schule bei Geometrie immer geschlafen habe, fällt mir das jetzt ein wenig schwer.

Da musst du aber ziemlich tief geschlafen haben, um die gesamte Vektorrechnung zu verpassen .

http://de.wikipedia.org/wiki/Strecke_%28Geometrie%29

[R2D2]

Probier mal

Delphi-Quellcode:

p3.x := (p1.x - p2.x)*Prozentsatz + p1.x;
p3.y := (p1.y + p2.y)*Prozentsatz + p1.y;

Ich kann dier aber nichts garantieren.

[Khabarakh]

Zitat von R2D2:

Ich kann dier aber nichts garantieren.

Gut so, denn es ist ziemlich falsch . Aber ich stelle hier sicher nicht die korrigierte Version rein, wenn diese schon längst in dem Link über deinem Beitrag steht.

[markusj]

Nicht schlecht für 13 Jahre^^, aber knapp daneben ist auch vorbei ...
Satz des Pytagoras:

Abstand = sqrt((x1-x2)^2+(y1-y2)^2)
RichtungsvektorX = x2-x1
RichtungsvektorY = y2-y1
Punkt dazwischen ... (Prozentzahl/100)*Richtungsvektor+Punkt1

mfG

Markus

[pacman1986]

müsste es nicht so lauten?

Delphi-Quellcode:

Xm := (x1+x2)/2;
Ym := (y1+y2)/2;

[Muetze1]

Zitat von pacman1986:

müsste es nicht so lauten?

Delphi-Quellcode:

Xm := (x1+x2)/2;
Ym := (y1+y2)/2;

Und wo sind da die x % der Strecke zu finden?

[R2D2]

Er meint genau die Hälfte der Strecke.

[Khabarakh]

Nicht immer nur die Überschrift lesen und gleich auf den Antworten-Button hämmern .