Hallo Christian,
Die Winkelberechnung mit der Funktion:
Function calcBearing(ByVal lat1 As Double, ByVal lon1 As Double, ByVal lat2 As Double, ByVal lon2 As Double) As Double
' Input sind Breite/Laenge in Altgrad
' Der Fall lat/lon1 == lat/lon2 sollte vorher abgefangen werden,
' zB. ueber die Abfrage der Distanz, dass Bearing nur bei Distanz > 5m
' geholt wird, sonst = " - " gesetzt wird...
Dim rad_lat1 As Double
Dim rad_lon1 As Double
Dim rad_lat2 As Double
Dim rad_lon2 As Double
Dim delta_lon As Double
' $pi = 3.141592653589793238462643383279502884197;
rad_lat1 = lat1 / 180.0 * System.Math.PI
rad_lon1 = lon1 / 180.0 * System.Math.PI
rad_lat2 = lat2 / 180.0 * System.Math.PI
rad_lon2 = lon2 / 180.0 * System.Math.PI
delta_lon = rad_lon2 - rad_lon1
calcBearing = System.Math.Atan2(System.Math.Sin(delta_lon) * System.Math.Cos(rad_lat2), _
System.Math.Cos(rad_lat1) * System.Math.Sin(rad_lat2) - _
System.Math.Sin(rad_lat1) * System.Math.Cos(rad_lat2) * _
System.Math.Cos(delta_lon))
calcBearing = 180.0 * calcBearing / System.Math.PI
' Output Richtung von lat/lon1 nach lat/lon2 in Altgrad von -180 bis +180
' wenn man Output von 0 bis 360 haben moechte, kann man dies machen:
If (calcBearing < 0.0) Then
calcBearing = calcBearing + 360.0
End If
End Function
Beim Algorithmus bin ich noch einwenig am Probieren. Im Moment bin ich bei einer Abweichung der Himmelsrichtung von 40° bis 50° und die Entfernung der POi´s sollte 2 Km nicht überschreiten. Das Ergebnis ist abhängig von der Trackaufzeichnung, wieviel aufgezeichnet wird. Bei meinem Navi kann ich die Zeit, jede Sekunde, einstellen.
Zum Motorradtourenplaner in der Rubrik [DESCRIPTION] bekommt der Erste und der Letzte Eintrag einen zusätzliche Erweiterung (",,,0,").
z.B. STATION1=Position 1,,,0,
Map&Guide hat an dieser Stelle eine kleine Änderung der BCR-Datei vorgenommen. Früher war im Falk Navigator2 diese Erweiterung nicht vorhanden.
Die Rubrik [Route] braucht nicht belegt zu sein. Hier steht z.B. der Fahrzeug Type drin oder Routen nach schöner Landschaft.
So wie ich gelesen habe, hast Du aber der Motorradroutenplaner 2006/2007 auch.
Eine Trackaufzeichnung von mir.
Routenaufz. 001.zip (Size: 57.67 KB / Downloads: 683)
Die Winkelberechnung mit der Funktion:
Function calcBearing(ByVal lat1 As Double, ByVal lon1 As Double, ByVal lat2 As Double, ByVal lon2 As Double) As Double
' Input sind Breite/Laenge in Altgrad
' Der Fall lat/lon1 == lat/lon2 sollte vorher abgefangen werden,
' zB. ueber die Abfrage der Distanz, dass Bearing nur bei Distanz > 5m
' geholt wird, sonst = " - " gesetzt wird...
Dim rad_lat1 As Double
Dim rad_lon1 As Double
Dim rad_lat2 As Double
Dim rad_lon2 As Double
Dim delta_lon As Double
' $pi = 3.141592653589793238462643383279502884197;
rad_lat1 = lat1 / 180.0 * System.Math.PI
rad_lon1 = lon1 / 180.0 * System.Math.PI
rad_lat2 = lat2 / 180.0 * System.Math.PI
rad_lon2 = lon2 / 180.0 * System.Math.PI
delta_lon = rad_lon2 - rad_lon1
calcBearing = System.Math.Atan2(System.Math.Sin(delta_lon) * System.Math.Cos(rad_lat2), _
System.Math.Cos(rad_lat1) * System.Math.Sin(rad_lat2) - _
System.Math.Sin(rad_lat1) * System.Math.Cos(rad_lat2) * _
System.Math.Cos(delta_lon))
calcBearing = 180.0 * calcBearing / System.Math.PI
' Output Richtung von lat/lon1 nach lat/lon2 in Altgrad von -180 bis +180
' wenn man Output von 0 bis 360 haben moechte, kann man dies machen:
If (calcBearing < 0.0) Then
calcBearing = calcBearing + 360.0
End If
End Function
Beim Algorithmus bin ich noch einwenig am Probieren. Im Moment bin ich bei einer Abweichung der Himmelsrichtung von 40° bis 50° und die Entfernung der POi´s sollte 2 Km nicht überschreiten. Das Ergebnis ist abhängig von der Trackaufzeichnung, wieviel aufgezeichnet wird. Bei meinem Navi kann ich die Zeit, jede Sekunde, einstellen.
Zum Motorradtourenplaner in der Rubrik [DESCRIPTION] bekommt der Erste und der Letzte Eintrag einen zusätzliche Erweiterung (",,,0,").
z.B. STATION1=Position 1,,,0,
Map&Guide hat an dieser Stelle eine kleine Änderung der BCR-Datei vorgenommen. Früher war im Falk Navigator2 diese Erweiterung nicht vorhanden.
Die Rubrik [Route] braucht nicht belegt zu sein. Hier steht z.B. der Fahrzeug Type drin oder Routen nach schöner Landschaft.
So wie ich gelesen habe, hast Du aber der Motorradroutenplaner 2006/2007 auch.
Eine Trackaufzeichnung von mir.
Routenaufz. 001.zip (Size: 57.67 KB / Downloads: 683)
Gruß
Harri
Harri