ArcCos()
ArcCos() – Arkuscosinus
Der Arkuscosinus ist die Umkehrfunktion der Cosinusfunktion.
Hinweis
Trigonometrische Funktionen
Parameter | Beschreibung |
---|---|
nCosValue:N | Cosinus |
Rückgabewert
Numerisch, Winkel im Bogenmaß
Beispiel
CODE
| nLatM, nLongM, nLatT, nLongT, cFormat |
function Distance(aLatitudeA, aLongitudeA, aLatitudeB, aLongitudeB)
aLatitudeA := DegToRad(aLatitudeA), // -> Bogenmaß
aLongitudeA:= DegToRad(aLongitudeA),
aLatitudeB := DegToRad(aLatitudeB),
aLongitudeB:= DegToRad(aLongitudeB),
Result := (Sin(aLatitudeA) * Sin(aLatitudeB)) + // Seitencosinussatz
(Cos(aLatitudeA) * Cos(aLatitudeB) *
Cos(aLongitudeB - aLongitudeA)),
Result:= ArcCos(Result) * 6370, // Erdradius 6370 km
end,
// Koordinaten München:
nLatM := 48.139126, // Breitengrad
nLongM:= 11.580186, // Längengrad
// Koordinaten Tokio:
nLatT := 35.689488, // Breitengrad
nLongT:= 139.691706, // Längengrad
cFormat:= '"Entfernung München - Tokio:" #,##0.000 "km"',
// Berechnung der Entfernung von 2 Punkten auf der Erdoberfläche
WriteLn(FormatFloat(cFormat, Distance(nLatM, nLongM, nLatT, nLongT))) // Ergebnis: 'Entfernung München - Tokio: 9.368,061 km'