본문 바로가기

LISP?

영국의 시계 제작자 존 해리슨의 경도 해법은?


;; 영국의 시계 제작자 존 해리슨의 경도 해법은?
;; 출발한 항구(혹은 본초자오선이 지나는 곳의 시간이나 그 외 어디든
;; 경도를 알 수 있는 곳)의 시간을 유지할 수 있는 시계를 배에 싣는다.
;; 항해를 하다가 어떤 곳에서든 그곳의 경도를 알고 싶다면 항구의 시간과
;; 배 위의 시간 차이를 구하면 된다. 예를 들어, 32분 20초의 차이가
;; 난다면 출발한 항구에서 몇도의 경도를 이동한 것이 되는가?
;;  ex) 출발한 항구에서의 시각: 오전 11시 28분 40초
;;        - 배에서의 시각: 12시 정오 = 32분 20초
;; 출처: 수학 스펙트럼 p.43 / 테오니 파파스 지음 / 서영조 옮김 / 경문사

(defun degree-for-time (hours minutes seconds)
              (+ (* hours 60 60 15) (* minutes 60 15) (* seconds 15)))
;; 지구는 1시간에 15도씩 돈다. 2시간에 30도씩 돌고, 이렇게 12시간 이면 반 바퀴를 돈다.
             
(degree-for-time 0 32 20)

>> x degrees y minutes z seconds