Feedback

VB - Distanz zweier Punkte auf einer Ebene

Veröffentlicht von am 15.10.2006
(1 Bewertungen)
Diese Funktion berechnet die Länge einer Geraden zwischen 2 Punkten auf einer Ebene. Für alle die nicht wissen um was es geht, hier ist ein Screenshot der alles erklären dürfte:
<a href="http://home.arcor.de/khartak/misc/GetLinearPosDist.gif">http://home.arcor.de/khartak/misc/GetLinearPosDist.gif<a/>
''' <summary>
''' Diese Funktion berechnet die Länge einer Geraden zwischen 2 Punkten auf einer Ebene
''' </summary>
''' <param name="P1">Die erste Koordinate</param>
''' <param name="P2">Die zweite Koordinate</param>
''' <remarks>
''' Zum berechnen des Abstands von 2 Positionen auf einer geraden wird der Satz des Pythagoras verwendet.
''' </remarks>
Public Function GetLinearPosDist(ByVal P1 As PointF, ByVal P2 As PointF) As Double
    Return Math.Sqrt((Math.Pow((P2.X - P1.X), 2)) + Math.Pow((P2.Y - P1.Y), 2))
End Function
Abgelegt unter Distanz, Ebene, Pythagoras.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!