mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(siolar-mode): Remove, since mod now subsumes it. ALl callers changed.

Browse Source
This commit is contained in:
Paul Eggert 1993-08-10 04:14:17 +00:00
parent 46780baeeb
commit 12e070d17a
1 changed files with 14 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
lisp/calendar/solar.el
View File

@ -145,7 +145,7 @@ Returns nil if nothing was entered."
(defun solar-degrees-to-quadrant (angle)
"Determines the quadrant of ANGLE."
(1+ (truncate (/ (solar-mod angle 360.0) 90.0))))
(1+ (truncate (/ (mod angle 360.0) 90.0))))
(defun solar-arctan (x quad)
"Arctangent of X in quadrant QUAD."
@ -163,13 +163,6 @@ Returns nil if nothing was entered."
(let ((x (sqrt (- 1 (* y y)))))
(solar-arctan (/ y x) (solar-xy-to-quadrant x y))))
(defun solar-mod (x y)
"Returns X mod Y; value is *always* non-negative."
(let ((v (% x y)))
(if (> 0 v)
(+ v y)
v)))
(defconst solar-earth-inclination 23.441884
"Inclination of earth's equator to its solar orbit in degrees.")
@ -191,11 +184,11 @@ Returns nil if nothing was entered."
(defun solar-longitude-of-sun (day)
"Longitude of the sun at DAY in the year."
(let ((mean-anomaly (- (* 0.9856 day) 3.289)))
(solar-mod (+ mean-anomaly
(* 1.916 (solar-sin-degrees mean-anomaly))
(* 0.020 (solar-sin-degrees (* 2 mean-anomaly)))
282.634)
360)))
(mod (+ mean-anomaly
(* 1.916 (solar-sin-degrees mean-anomaly))
(* 0.020 (solar-sin-degrees (* 2 mean-anomaly)))
282.634)
360)))
(defun solar-right-ascension (longitude)
"Right ascension of the sun, given its LONGITUDE."
@ -235,10 +228,10 @@ of hours. Returns nil if the sun does not rise at that location on that day."
(let* ((local-sunrise (solar-degrees-to-hours
(- 360 (solar-arccos cos-local-sunrise))))
(local-mean-sunrise
(solar-mod (- (+ local-sunrise solar-right-ascension-at-sunrise)
(+ (* 0.065710 approx-sunrise)
6.622))
24)))
(mod (- (+ local-sunrise solar-right-ascension-at-sunrise)
(+ (* 0.065710 approx-sunrise)
6.622))
24)))
(+ (- local-mean-sunrise (solar-degrees-to-hours calendar-longitude))
(/ calendar-time-zone 60.0))))))
@ -267,9 +260,9 @@ of hours. Returns nil if the sun does not set at that location on that day."
(let* ((local-sunset (solar-degrees-to-hours
(solar-arccos cos-local-sunset)))
(local-mean-sunset
(solar-mod (- (+ local-sunset solar-right-ascension-at-sunset)
(+ (* 0.065710 approx-sunset) 6.622))
24)))
(mod (- (+ local-sunset solar-right-ascension-at-sunset)
(+ (* 0.065710 approx-sunset) 6.622))
24)))
(+ (- local-mean-sunset (solar-degrees-to-hours calendar-longitude))
(/ calendar-time-zone 60.0))))))
@ -379,7 +372,7 @@ several minutes."
app
(correction 1000))
(while (> correction 0.00001)
(setq app (solar-mod (solar-apparent-longitude-of-sun date) 360.0))
(setq app (mod (solar-apparent-longitude-of-sun date) 360.0))
(setq correction (* 58 (solar-sin-degrees (- (* k 90) app))))
(setq date (list (extract-calendar-month date)
(+ (extract-calendar-day date) correction)