mirror of https://github.com/2martens/uni.git
SE3-1: 2.1 geloest (funktioniert).
This commit is contained in:
parent
e52bfa225c
commit
ff08346dbd
|
@ -6,11 +6,11 @@ Abgebende: Jim 2martens, 2noack, 0giebel
|
|||
|#
|
||||
|
||||
; 1.1
|
||||
|
||||
; degrees ist eine positive Zahl in Grad
|
||||
(define (degreeToRadian degrees)
|
||||
(/ (* degrees pi) 180)
|
||||
)
|
||||
|
||||
; radians ist eine Zahl in Bogenmaß
|
||||
(define (radianToDegree radians)
|
||||
(/ (* radians 180) pi)
|
||||
)
|
||||
|
@ -29,11 +29,14 @@ Abgebende: Jim 2martens, 2noack, 0giebel
|
|||
)
|
||||
|
||||
; 1.3
|
||||
; nauticMiles ist eine positive Zahl in nautischen Meilen
|
||||
(define (nmToKM nauticMiles)
|
||||
(* nauticMiles 1.852)
|
||||
)
|
||||
|
||||
; 2.1
|
||||
; breiteA laengeA breiteB laengeB alle in Grad angegeben
|
||||
; westliche Länge und südliche Breite negativ angeben
|
||||
(define (distanzAB breiteA laengeA breiteB laengeB)
|
||||
; Parameter in Radiant umrechnen
|
||||
(define breiteARad (degreeToRadian breiteA))
|
||||
|
@ -56,12 +59,21 @@ Abgebende: Jim 2martens, 2noack, 0giebel
|
|||
)
|
||||
)
|
||||
)
|
||||
(define dG (acos cosDG))
|
||||
; umrechen in Kilometer
|
||||
(nmToKM
|
||||
; ermitteln der Entfernung in Seemeilen
|
||||
(* 60
|
||||
; umwandeln in Grad
|
||||
(radianToDegree cosDG)
|
||||
(radianToDegree dG)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
; ausrechnen der Entfernung von Oslo und Hongkong
|
||||
(display "Entfernung Oslo - Hongkong (in km): ")
|
||||
(distanzAB 59.93 10.75 22.2 114.1)
|
||||
(display "Entfernung San Francisco - Honolulu (in km): ")
|
||||
(distanzAB 37.75 -122.45 21.32 -157.83)
|
||||
(display "Entfernung Osterinsel - Lima (in km): ")
|
||||
(distanzAB -27.1 -109.4 -12.1 -77.05)
|
||||
|
|
Loading…
Reference in New Issue