Uni Hamburg - SE3-Übung #1 2012

gistfile1.rkt

#lang racket

(define (degree->radian degree)
  (* (/ (* 2 pi) 360) degree))

(define (radian->degree radian)
  (* (/ 360 (* pi)) radian))

(define (my-acos alpha)
  (if (= alpha 0)
      (/ pi 2)
      (atan (/ (sqrt (- 1 (expt alpha 2))) alpha))))

(define (nm->km nm)
  (* 1.852 nm))

;not working yet
(define (distanzAB latA longA latB longB)
  (nmToKm (* 60 (radianToDegree (my-acos (+ 
   (* (sin latA) (sin latB)) 
   (* (cos latA) (cos latB) (cos (- longA longB)))
  )))))
)