Lines Matching defs:moon
1 ;;; lunar.el --- calendar functions for phases of the moon
9 ;; Human-Keywords: moon, lunar phases, calendar, diary
78 (new-moon (lunar-phase index))
80 (while (calendar-date-compare new-moon end-date)
81 (if (calendar-date-compare start-date new-moon)
82 (setq list (append list (list new-moon))))
84 (setq new-moon (lunar-phase index)))
90 remainder mod 4 gives the phase: 0 new moon, 1 first quarter, 2 full moon,
110 (moon-anomaly (mod
116 (moon-lat (mod
127 (* -0.4068 (solar-sin-degrees moon-anomaly))
128 (* 0.0161 (solar-sin-degrees (* 2 moon-anomaly)))
129 (* -0.0004 (solar-sin-degrees (* 3 moon-anomaly)))
130 (* 0.0104 (solar-sin-degrees (* 2 moon-lat)))
131 (* -0.0051 (solar-sin-degrees (+ sun-anomaly moon-anomaly)))
132 (* -0.0074 (solar-sin-degrees (- sun-anomaly moon-anomaly)))
133 (* 0.0004 (solar-sin-degrees (+ (* 2 moon-lat) sun-anomaly)))
134 (* -0.0004 (solar-sin-degrees (- (* 2 moon-lat) sun-anomaly)))
136 (+ (* 2 moon-lat) moon-anomaly)))
137 (* 0.0010 (solar-sin-degrees (- (* 2 moon-lat) moon-anomaly)))
139 (+ (* 2 moon-anomaly) sun-anomaly))))
143 (* -0.6280 (solar-sin-degrees moon-anomaly))
144 (* 0.0089 (solar-sin-degrees (* 2 moon-anomaly)))
145 (* -0.0004 (solar-sin-degrees (* 3 moon-anomaly)))
146 (* 0.0079 (solar-sin-degrees (* 2 moon-lat)))
147 (* -0.0119 (solar-sin-degrees (+ sun-anomaly moon-anomaly)))
148 (* -0.0047 (solar-sin-degrees (- sun-anomaly moon-anomaly)))
149 (* 0.0003 (solar-sin-degrees (+ (* 2 moon-lat) sun-anomaly)))
150 (* -0.0004 (solar-sin-degrees (- (* 2 moon-lat) sun-anomaly)))
151 (* -0.0006 (solar-sin-degrees (+ (* 2 moon-lat) moon-anomaly)))
152 (* 0.0021 (solar-sin-degrees (- (* 2 moon-lat) moon-anomaly)))
154 (+ (* 2 moon-anomaly) sun-anomaly)))
156 (- sun-anomaly (* 2 moon-anomaly))))
158 (+ (* 2 sun-anomaly) moon-anomaly))))))
163 moon-anomaly))))
181 0 = new moon, 1 = first quarter, 2 = full moon, 3 = last quarter."
187 (defun calendar-phases-of-moon ()
190 (message "Computing phases of the moon...")
222 (message "Computing phases of the moon...done")))
225 (defun phases-of-moon (&optional arg)
226 "Display the quarters of the moon for last month, this month, and next month.
237 (calendar-phases-of-moon))))
239 (defun diary-phases-of-moon (&optional mark)
260 ;; For the Chinese calendar the calculations for the new moon need to be more
263 (defun lunar-new-moon-time (k)
264 "Astronomical (Julian) day number of K th new moon."
279 (moon-anomaly (+ 201.5643
284 (moon-argument (+ 160.7108
308 (+ (* -0.40720 (solar-sin-degrees moon-anomaly))
310 (* 0.01608 (solar-sin-degrees (* 2 moon-anomaly)))
311 (* 0.01039 (solar-sin-degrees (* 2 moon-argument)))
312 (* 0.00739 E (solar-sin-degrees (- moon-anomaly sun-anomaly)))
313 (* -0.00514 E (solar-sin-degrees (+ moon-anomaly sun-anomaly)))
316 (- moon-anomaly (* 2 moon-argument))))
318 (+ moon-anomaly (* 2 moon-argument))))
320 (+ (* 2 moon-anomaly) sun-anomaly)))
321 (* -0.00042 (solar-sin-degrees (* 3 moon-anomaly)))
323 (+ sun-anomaly (* 2 moon-argument))))
325 (- sun-anomaly (* 2 moon-argument))))
327 (- (* 2 moon-anomaly) sun-anomaly)))
330 (+ moon-anomaly (* 2 sun-anomaly))))
332 (- (* 2 moon-anomaly) (* 2 moon-argument))))
334 (* 0.00003 (solar-sin-degrees (+ moon-anomaly sun-anomaly
335 (* -2 moon-argument))))
337 (+ (* 2 moon-anomaly) (* 2 moon-argument))))
338 (* -0.00003 (solar-sin-degrees (+ moon-anomaly sun-anomaly
339 (* 2 moon-argument))))
340 (* 0.00003 (solar-sin-degrees (- moon-anomaly sun-anomaly
341 (* -2 moon-argument))))
342 (* -0.00002 (solar-sin-degrees (- moon-anomaly sun-anomaly
343 (* 2 moon-argument))))
345 (+ (* 3 moon-anomaly) sun-anomaly)))
346 (* 0.00002 (solar-sin-degrees (* 4 moon-anomaly)))))
370 (defun lunar-new-moon-on-or-after (d)
371 "Astronomical (Julian) day number of first new moon on or after astronomical
384 (date (lunar-new-moon-time k)))
387 (setq date (lunar-new-moon-time k)))