mirror of https://github.com/2martens/uni.git
SE3-1: 2.1 ansatzweise geloest (funzt noch nicht).
This commit is contained in:
parent
1c4d015147
commit
5e2b1503d4
|
@ -31,4 +31,37 @@ Abgebende: Jim 2martens, 2noack, 0giebel
|
||||||
; 1.3
|
; 1.3
|
||||||
(define (nmToKM nauticMiles)
|
(define (nmToKM nauticMiles)
|
||||||
(* nauticMiles 1.852)
|
(* nauticMiles 1.852)
|
||||||
)
|
)
|
||||||
|
|
||||||
|
; 2.1
|
||||||
|
(define (distanzAB breiteA laengeA breiteB laengeB)
|
||||||
|
; Parameter in Radiant umrechnen
|
||||||
|
(define breiteARad (degreeToRadian breiteA))
|
||||||
|
(define breiteBRad (degreeToRadian breiteB))
|
||||||
|
; Differenz geographische Längen
|
||||||
|
(define distanzLaenge
|
||||||
|
(- laengeB laengeA)
|
||||||
|
)
|
||||||
|
; Differenz in Radiant umrechnen
|
||||||
|
(define distanzLaengeRad (degreeToRadian distanzLaenge))
|
||||||
|
(define cosDG
|
||||||
|
; ausrechnen von cos dG im Bogenmaß
|
||||||
|
(+ (*
|
||||||
|
(sin breiteARad)
|
||||||
|
(sin breiteBRad)
|
||||||
|
)
|
||||||
|
(* (cos breiteARad)
|
||||||
|
(cos breiteBRad)
|
||||||
|
(cos distanzLaengeRad)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
; umrechen in Kilometer
|
||||||
|
(nmToKM
|
||||||
|
; ermitteln der Entfernung in Seemeilen
|
||||||
|
(* 60
|
||||||
|
; umwandeln in Grad
|
||||||
|
(radianToDegree cosDG)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
|
Loading…
Reference in New Issue