Mercurial > emacs

changeset 4519:c8f5e05c332e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(siolar-mode): Remove, since mod now subsumes it. ALl callers changed.
author Paul Eggert <eggert@twinsun.com>
date Tue, 10 Aug 1993 04:14:17 +0000
parents 9081f7a8fa6d
children 362a75ca07d9
files lisp/calendar/solar.el
diffstat 1 files changed, 14 insertions(+), 21 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/solar.el	Tue Aug 10 04:14:17 1993 +0000
+++ b/lisp/calendar/solar.el	Tue Aug 10 04:14:17 1993 +0000
@@ -145,7 +145,7 @@
 
 (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 @@
   (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 @@
 (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 @@
       (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 @@
       (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 @@
         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)