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'