Mercurial > emacs
annotate lisp/calendar/solar.el @ 15937:ab395798ed22
Change `GNU Emacs' to `this program' in the comment referring the reader
to the file COPYING, since rcs2log is distributed as part of programs
other than GNU Emacs.
author | Paul Eggert <eggert@twinsun.com> |
---|---|
date | Mon, 26 Aug 1996 21:20:48 +0000 |
parents | 66db908addc7 |
children | 68cce262538d |
rev | line source |
---|---|
956 | 1 ;;; solar.el --- calendar functions for solar events. |
2 | |
13045
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
3 ;; Copyright (C) 1992, 1993, 1995 Free Software Foundation, Inc. |
956 | 4 |
5 ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> | |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
6 ;; Denis B. Roegel <Denis.Roegel@loria.fr> |
2249
94fc2ce49c55
Corrected Keywords header
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2248
diff
changeset
|
7 ;; Keywords: calendar |
94fc2ce49c55
Corrected Keywords header
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2248
diff
changeset
|
8 ;; Human-Keywords: sunrise, sunset, equinox, solstice, calendar, diary, |
94fc2ce49c55
Corrected Keywords header
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2248
diff
changeset
|
9 ;; holidays |
956 | 10 |
11 ;; This file is part of GNU Emacs. | |
12 | |
6736
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5835
diff
changeset
|
13 ;; GNU Emacs is free software; you can redistribute it and/or modify |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5835
diff
changeset
|
14 ;; it under the terms of the GNU General Public License as published by |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5835
diff
changeset
|
15 ;; the Free Software Foundation; either version 2, or (at your option) |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5835
diff
changeset
|
16 ;; any later version. |
956 | 17 |
6736
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5835
diff
changeset
|
18 ;; GNU Emacs is distributed in the hope that it will be useful, |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5835
diff
changeset
|
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5835
diff
changeset
|
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5835
diff
changeset
|
21 ;; GNU General Public License for more details. |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5835
diff
changeset
|
22 |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5835
diff
changeset
|
23 ;; You should have received a copy of the GNU General Public License |
14169 | 24 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
26 ;; Boston, MA 02111-1307, USA. | |
956 | 27 |
28 ;;; Commentary: | |
29 | |
9714
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
30 ;; This collection of functions implements the features of calendar.el, |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
31 ;; diary.el, and holiday.el that deal with times of day, sunrise/sunset, and |
13742
6896ecdd9378
Fix misspelling in comment.
Paul Eggert <eggert@twinsun.com>
parents:
13668
diff
changeset
|
32 ;; equinoxes/solstices. |
956 | 33 |
34 ;; Based on the ``Almanac for Computers 1984,'' prepared by the Nautical | |
13045
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
35 ;; Almanac Office, United States Naval Observatory, Washington, 1984, on |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
36 ;; ``Astronomical Formulae for Calculators,'' 3rd ed., by Jean Meeus, |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
37 ;; Willmann-Bell, Inc., 1985, on ``Astronomical Algorithms'' by Jean Meeus, |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
38 ;; Willmann-Bell, Inc., 1991, and on ``Planetary Programs and Tables from |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
39 ;; -4000 to +2800'' by Pierre Bretagnon and Jean-Louis Simon, Willmann-Bell, |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
40 ;; Inc., 1986. |
13045
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
41 |
956 | 42 ;; |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
43 ;; Accuracy: |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
44 ;; 1. Sunrise/sunset times will be accurate to the minute for years |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
45 ;; 1951--2050. For other years the times will be within +/- 2 minutes. |
956 | 46 ;; |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
47 ;; 2. Equinox/solstice times will be accurate to the minute for years |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
48 ;; 1951--2050. For other years the times will be within +/- 1 minute. |
956 | 49 |
50 ;; Comments, corrections, and improvements should be sent to | |
51 ;; Edward M. Reingold Department of Computer Science | |
52 ;; (217) 333-6733 University of Illinois at Urbana-Champaign | |
53 ;; reingold@cs.uiuc.edu 1304 West Springfield Avenue | |
54 ;; Urbana, Illinois 61801 | |
55 | |
56 ;;; Code: | |
57 | |
58 (if (fboundp 'atan) | |
59 (require 'lisp-float-type) | |
9714
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
60 (error "Solar/lunar calculations impossible since floating point is unavailable.")) |
956 | 61 |
3866
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
62 (require 'cal-dst) |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
63 (require 'cal-julian) |
3866
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
64 |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
65 ;;;###autoload |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
66 (defvar calendar-time-display-form |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
67 '(12-hours ":" minutes am-pm |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
68 (if time-zone " (") time-zone (if time-zone ")")) |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
69 "*The pseudo-pattern that governs the way a time of day is formatted. |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
70 |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
71 A pseudo-pattern is a list of expressions that can involve the keywords |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
72 `12-hours', `24-hours', and `minutes', all numbers in string form, |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
73 and `am-pm' and `time-zone', both alphabetic strings. |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
74 |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
75 For example, the form |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
76 |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
77 '(24-hours \":\" minutes |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
78 (if time-zone \" (\") time-zone (if time-zone \")\")) |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
79 |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
80 would give military-style times like `21:07 (UTC)'.") |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
81 |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
82 ;;;###autoload |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
83 (defvar calendar-latitude nil |
9714
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
84 "*Latitude of `calendar-location-name' in degrees. |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
85 |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
86 The value can be either a decimal fraction (one place of accuracy is |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
87 sufficient), + north, - south, such as 40.7 for New York City, or the value |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
88 can be a vector [degrees minutes north/south] such as [40 50 north] for New |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
89 York City. |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
90 |
14267
da2d268f737f
Fixed doc strings and references to calendar-latitude and calendar-longitude.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14169
diff
changeset
|
91 This variable should be set in `site-start'.el.") |
3866
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
92 |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
93 ;;;###autoload |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
94 (defvar calendar-longitude nil |
9714
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
95 "*Longitude of `calendar-location-name' in degrees. |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
96 |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
97 The value can be either a decimal fraction (one place of accuracy is |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
98 sufficient), + east, - west, such as -73.9 for New York City, or the value |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
99 can be a vector [degrees minutes east/west] such as [73 55 west] for New |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
100 York City. |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
101 |
14267
da2d268f737f
Fixed doc strings and references to calendar-latitude and calendar-longitude.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14169
diff
changeset
|
102 This variable should be set in `site-start'.el.") |
9714
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
103 |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
104 (defsubst calendar-latitude () |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
105 "Convert calendar-latitude to a signed decimal fraction, if needed." |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
106 (if (numberp calendar-latitude) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
107 calendar-latitude |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
108 (let ((lat (+ (aref calendar-latitude 0) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
109 (/ (aref calendar-latitude 1) 60.0)))) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
110 (if (equal (aref calendar-latitude 2) 'north) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
111 lat |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
112 (- lat))))) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
113 |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
114 (defsubst calendar-longitude () |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
115 "Convert calendar-longitude to a signed decimal fraction, if needed." |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
116 (if (numberp calendar-longitude) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
117 calendar-longitude |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
118 (let ((long (+ (aref calendar-longitude 0) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
119 (/ (aref calendar-longitude 1) 60.0)))) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
120 (if (equal (aref calendar-longitude 2) 'east) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
121 long |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
122 (- long))))) |
3866
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
123 |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
124 ;;;###autoload |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
125 (defvar calendar-location-name |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
126 '(let ((float-output-format "%.1f")) |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
127 (format "%s%s, %s%s" |
9714
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
128 (if (numberp calendar-latitude) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
129 (abs calendar-latitude) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
130 (+ (aref calendar-latitude 0) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
131 (/ (aref calendar-latitude 1) 60.0))) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
132 (if (numberp calendar-latitude) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
133 (if (> calendar-latitude 0) "N" "S") |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
134 (if (equal (aref calendar-latitude 2) 'north) "N" "S")) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
135 (if (numberp calendar-longitude) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
136 (abs calendar-longitude) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
137 (+ (aref calendar-longitude 0) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
138 (/ (aref calendar-longitude 1) 60.0))) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
139 (if (numberp calendar-longitude) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
140 (if (> calendar-longitude 0) "E" "W") |
12312
7816b2769014
Fix bug in determination of output string.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9829
diff
changeset
|
141 (if (equal (aref calendar-longitude 2) 'east) "E" "W")))) |
3866
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
142 "*Expression evaluating to name of `calendar-longitude', calendar-latitude'. |
9714
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
143 For example, \"New York City\". Default value is just the latitude, longitude |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
144 pair. |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
145 |
14267
da2d268f737f
Fixed doc strings and references to calendar-latitude and calendar-longitude.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14169
diff
changeset
|
146 This variable should be set in `site-start'.el.") |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
147 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
148 (defvar solar-error 0.5 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
149 "*Tolerance (in minutes) for sunrise/sunset calculations. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
150 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
151 A larger value makes the calculations for sunrise/sunset faster, but less |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
152 accurate. The default is half a minute (30 seconds), so that sunrise/sunset |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
153 times will be correct to the minute. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
154 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
155 It is useless to set the value smaller than 4*delta, where delta is the |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
156 accuracy in the longitude of the sun (given by the function |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
157 `solar-ecliptic-coordinates') in degrees since (delta/360) x (86400/60) = 4 x |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
158 delta. At present, delta = 0.01 degrees, so the value of the variable |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
159 `solar-error' should be at least 0.04 minutes (about 2.5 seconds).") |
956 | 160 |
4863
adfd03a381ca
(solar-n-hemi-seasons, solar-s-hemi-seasons): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4766
diff
changeset
|
161 (defvar solar-n-hemi-seasons |
4766
ec8c8721b7e3
(s-hemi-seasons n-hemi-seasons): New constants are hemisphere
Brian Fox <bfox@gnu.org>
parents:
4660
diff
changeset
|
162 '("Vernal Equinox" "Summer Solstice" "Autumnal Equinox" "Winter Solstice") |
ec8c8721b7e3
(s-hemi-seasons n-hemi-seasons): New constants are hemisphere
Brian Fox <bfox@gnu.org>
parents:
4660
diff
changeset
|
163 "List of season changes for the northern hemisphere.") |
ec8c8721b7e3
(s-hemi-seasons n-hemi-seasons): New constants are hemisphere
Brian Fox <bfox@gnu.org>
parents:
4660
diff
changeset
|
164 |
4863
adfd03a381ca
(solar-n-hemi-seasons, solar-s-hemi-seasons): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
4766
diff
changeset
|
165 (defvar solar-s-hemi-seasons |
4766
ec8c8721b7e3
(s-hemi-seasons n-hemi-seasons): New constants are hemisphere
Brian Fox <bfox@gnu.org>
parents:
4660
diff
changeset
|
166 '("Autumnal Equinox" "Winter Solstice" "Vernal Equinox" "Summer Solstice") |
ec8c8721b7e3
(s-hemi-seasons n-hemi-seasons): New constants are hemisphere
Brian Fox <bfox@gnu.org>
parents:
4660
diff
changeset
|
167 "List of season changes for the southern hemisphere.") |
ec8c8721b7e3
(s-hemi-seasons n-hemi-seasons): New constants are hemisphere
Brian Fox <bfox@gnu.org>
parents:
4660
diff
changeset
|
168 |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
169 (defvar solar-sidereal-time-greenwich-midnight |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
170 nil |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
171 "Sidereal time at Greenwich at midnight (universal time).") |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
172 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
173 (defvar solar-spring-or-summer-season nil |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
174 "T if spring or summer and nil otherwise. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
175 Needed for polar areas, in order to know whether the day lasts 0 or 24 hours.") |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
176 |
956 | 177 (defun solar-setup () |
178 "Prompt user for latitude, longitude, and time zone." | |
179 (beep) | |
180 (if (not calendar-longitude) | |
181 (setq calendar-longitude | |
182 (solar-get-number | |
183 "Enter longitude (decimal fraction; + east, - west): "))) | |
184 (if (not calendar-latitude) | |
185 (setq calendar-latitude | |
186 (solar-get-number | |
187 "Enter latitude (decimal fraction; + north, - south): "))) | |
188 (if (not calendar-time-zone) | |
189 (setq calendar-time-zone | |
190 (solar-get-number | |
3779
e9961fa24193
*solar.el (solar-setup, solar-ephemeris-time, sunrise-sunset): Change
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
191 "Enter difference from Coordinated Universal Time (in minutes): ")))) |
956 | 192 |
193 (defun solar-get-number (prompt) | |
194 "Return a number from the minibuffer, prompting with PROMPT. | |
195 Returns nil if nothing was entered." | |
196 (let ((x (read-string prompt ""))) | |
197 (if (not (string-equal x "")) | |
198 (string-to-int x)))) | |
199 | |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
200 ;; The condition-case stuff is needed to catch bogus arithmetic |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
201 ;; exceptions that occur on some machines (like Sparcs) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
202 (defun solar-sin-degrees (x) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
203 (condition-case nil |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
204 (sin (degrees-to-radians (mod x 360.0))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
205 (solar-sin-degrees x))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
206 (defun solar-cosine-degrees (x) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
207 (condition-case nil |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
208 (cos (degrees-to-radians (mod x 360.0))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
209 (solar-cosine-degrees x))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
210 (defun solar-tangent-degrees (x) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
211 (condition-case nil |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
212 (tan (degrees-to-radians (mod x 360.0))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
213 (solar-tangent-degrees x))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
214 |
956 | 215 (defun solar-xy-to-quadrant (x y) |
216 "Determines the quadrant of the point X, Y." | |
217 (if (> x 0) | |
218 (if (> y 0) 1 4) | |
219 (if (> y 0) 2 3))) | |
220 | |
221 (defun solar-degrees-to-quadrant (angle) | |
222 "Determines the quadrant of ANGLE." | |
4660
2516bc453477
Use integers instead of floating point where they will do.
Paul Eggert <eggert@twinsun.com>
parents:
4657
diff
changeset
|
223 (1+ (floor (mod angle 360) 90))) |
956 | 224 |
225 (defun solar-arctan (x quad) | |
226 "Arctangent of X in quadrant QUAD." | |
227 (let ((deg (radians-to-degrees (atan x)))) | |
228 (cond ((equal quad 2) (+ deg 180)) | |
229 ((equal quad 3) (+ deg 180)) | |
230 ((equal quad 4) (+ deg 360)) | |
231 (t deg)))) | |
232 | |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
233 (defun solar-atn2 (x y) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
234 "Arctan of point X, Y." |
14917
f353b7b88418
Fixed solar-arcsin/arcos stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14331
diff
changeset
|
235 (if (= x 0) |
f353b7b88418
Fixed solar-arcsin/arcos stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14331
diff
changeset
|
236 (if (> y 0) 90 270) |
f353b7b88418
Fixed solar-arcsin/arcos stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14331
diff
changeset
|
237 (solar-arctan (/ y x) x))) |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
238 |
956 | 239 (defun solar-arccos (x) |
14917
f353b7b88418
Fixed solar-arcsin/arcos stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14331
diff
changeset
|
240 "Arcos of X." |
f353b7b88418
Fixed solar-arcsin/arcos stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14331
diff
changeset
|
241 (let ((y (sqrt (- 1 (* x x))))) |
f353b7b88418
Fixed solar-arcsin/arcos stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14331
diff
changeset
|
242 (solar-atn2 x y))) |
956 | 243 |
244 (defun solar-arcsin (y) | |
14917
f353b7b88418
Fixed solar-arcsin/arcos stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14331
diff
changeset
|
245 "Arcsin of Y." |
f353b7b88418
Fixed solar-arcsin/arcos stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14331
diff
changeset
|
246 (let ((x (sqrt (- 1 (* y y))))) |
f353b7b88418
Fixed solar-arcsin/arcos stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14331
diff
changeset
|
247 (solar-atn2 x y) |
f353b7b88418
Fixed solar-arcsin/arcos stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14331
diff
changeset
|
248 )) |
956 | 249 |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
250 (defsubst solar-degrees-to-hours (degrees) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
251 "Convert DEGREES to hours." |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
252 (/ degrees 15.0)) |
956 | 253 |
9714
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
254 (defsubst solar-hours-to-days (hour) |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
255 "Convert HOUR to decimal fraction of a day." |
9714
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
256 (/ hour 24.0)) |
956 | 257 |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
258 (defun solar-right-ascension (longitude obliquity) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
259 "Right ascension of the sun, in hours, given LONGITUDE and OBLIQUITY. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
260 Both arguments are in degrees." |
956 | 261 (solar-degrees-to-hours |
262 (solar-arctan | |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
263 (* (solar-cosine-degrees obliquity) (solar-tangent-degrees longitude)) |
956 | 264 (solar-degrees-to-quadrant longitude)))) |
265 | |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
266 (defun solar-declination (longitude obliquity) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
267 "Declination of the sun, in degrees, given LONGITUDE and OBLIQUITY. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
268 Both arguments are in degrees." |
956 | 269 (solar-arcsin |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
270 (* (solar-sin-degrees obliquity) |
956 | 271 (solar-sin-degrees longitude)))) |
272 | |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
273 (defun solar-sunrise-and-sunset (time latitude longitude) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
274 "Sunrise, sunset and length of day. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
275 Parameters are the midday TIME and the LATITUDE, LONGITUDE of the location. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
276 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
277 TIME is a pair with the first component being the number of Julian centuries |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
278 elapsed at 0 Universal Time, and the second component being the universal |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
279 time. For instance, the pair corresponding to November 28, 1995 at 16 UT is |
14267
da2d268f737f
Fixed doc strings and references to calendar-latitude and calendar-longitude.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14169
diff
changeset
|
280 \(-0.040945 16), -0.040945 being the number of julian centuries elapsed between |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
281 Jan 1, 2000 at 12 UT and November 28, 1995 at 0 UT. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
282 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
283 Coordinates are included because this function is called with latitude=10 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
284 degrees to find out if polar regions have 24 hours of sun or only night." |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
285 (let* ((rise-time (solar-moment -1 latitude longitude time)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
286 (set-time (solar-moment 1 latitude longitude time)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
287 (day-length)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
288 (if (not (and rise-time set-time)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
289 (if (or (and (> latitude 0) solar-spring-or-summer-season) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
290 (and (< latitude 0) (not solar-spring-or-summer-season))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
291 (setq day-length 24) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
292 (setq day-length 0)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
293 (setq day-length (- set-time rise-time))) |
14917
f353b7b88418
Fixed solar-arcsin/arcos stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14331
diff
changeset
|
294 (list (if rise-time (+ rise-time (/ calendar-time-zone 60.0)) nil) |
f353b7b88418
Fixed solar-arcsin/arcos stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14331
diff
changeset
|
295 (if set-time (+ set-time (/ calendar-time-zone 60.0)) nil) |
f353b7b88418
Fixed solar-arcsin/arcos stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14331
diff
changeset
|
296 day-length))) |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
297 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
298 (defun solar-moment (direction latitude longitude time) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
299 "Sunrise/sunset at location. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
300 Sunrise if DIRECTION =-1 or sunset if =1 at LATITUDE, LONGITUDE, with midday |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
301 being TIME. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
302 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
303 TIME is a pair with the first component being the number of Julian centuries |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
304 elapsed at 0 Universal Time, and the second component being the universal |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
305 time. For instance, the pair corresponding to November 28, 1995 at 16 UT is |
14273
73b9ac33b161
(solar-moment, solar-ephemeris-time, solar-equatorial-coordinates,
Erik Naggum <erik@naggum.no>
parents:
14267
diff
changeset
|
306 \(-0.040945 16), -0.040945 being the number of julian centuries elapsed between |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
307 Jan 1, 2000 at 12 UT and November 28, 1995 at 0 UT. |
7778
b0e2bd1e825a
(solar-sunrise, solar-sunset): Fix doc string.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7255
diff
changeset
|
308 |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
309 Uses binary search." |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
310 (let* ((ut (car (cdr time))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
311 (possible 1) ; we assume that rise or set are possible |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
312 (utmin (+ ut (* direction 12.0))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
313 (utmax ut) ; the time searched is between utmin and utmax |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
314 ; utmin and utmax are in hours |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
315 (utmoment-old 0.0) ; rise or set approximation |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
316 (utmoment 1.0) ; rise or set approximation |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
317 (hut 0) ; sun height at utmoment |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
318 (t0 (car time)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
319 (hmin (car (cdr |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
320 (solar-horizontal-coordinates (list t0 utmin) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
321 latitude longitude t)))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
322 (hmax (car (cdr |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
323 (solar-horizontal-coordinates (list t0 utmax) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
324 latitude longitude t))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
325 ; -0.61 degrees is the height of the middle of the sun, when it rises |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
326 ; or sets. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
327 (if (< hmin -0.61) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
328 (if (> hmax -0.61) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
329 (while ;(< i 20) ; we perform a simple dichotomy |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
330 ; (> (abs (+ hut 0.61)) epsilon) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
331 (>= (abs (- utmoment utmoment-old)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
332 (/ solar-error 60)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
333 (setq utmoment-old utmoment) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
334 (setq utmoment (/ (+ utmin utmax) 2)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
335 (setq hut (car (cdr |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
336 (solar-horizontal-coordinates |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
337 (list t0 utmoment) latitude longitude t)))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
338 (if (< hut -0.61) (setq utmin utmoment)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
339 (if (> hut -0.61) (setq utmax utmoment)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
340 ) |
14917
f353b7b88418
Fixed solar-arcsin/arcos stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14331
diff
changeset
|
341 (setq possible 0)) ; the sun never rises |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
342 (setq possible 0)) ; the sun never sets |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
343 (if (equal possible 0) nil utmoment))) |
956 | 344 |
7778
b0e2bd1e825a
(solar-sunrise, solar-sunset): Fix doc string.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7255
diff
changeset
|
345 (defun solar-time-string (time time-zone) |
13045
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
346 "Printable form for decimal fraction TIME in TIME-ZONE. |
7778
b0e2bd1e825a
(solar-sunrise, solar-sunset): Fix doc string.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7255
diff
changeset
|
347 Format used is given by `calendar-time-display-form'." |
b0e2bd1e825a
(solar-sunrise, solar-sunset): Fix doc string.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7255
diff
changeset
|
348 (let* ((time (round (* 60 time))) |
3866
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
349 (24-hours (/ time 60)) |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
350 (minutes (format "%02d" (% time 60))) |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
351 (12-hours (format "%d" (1+ (% (+ 24-hours 11) 12)))) |
956 | 352 (am-pm (if (>= 24-hours 12) "pm" "am")) |
353 (24-hours (format "%02d" 24-hours))) | |
354 (mapconcat 'eval calendar-time-display-form ""))) | |
355 | |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
356 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
357 (defun solar-daylight (time) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
358 "Printable form for time expressed in hours." |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
359 (format "%d:%02d" |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
360 (floor time) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
361 (floor (* 60 (- time (floor time)))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
362 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
363 (defun solar-exact-local-noon (date) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
364 "Date and Universal Time of local noon at *local date* date. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
365 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
366 The date may be different from the one asked for, but it will be the right |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
367 local date. The second component of date should be an integer." |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
368 (let* ((nd date) |
14267
da2d268f737f
Fixed doc strings and references to calendar-latitude and calendar-longitude.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14169
diff
changeset
|
369 (ut (- 12.0 (/ (calendar-longitude) 15))) |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
370 (te (solar-time-equation date ut))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
371 (setq ut (- ut te)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
372 (if (>= ut 24) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
373 (progn |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
374 (setq nd (list (car date) (+ 1 (car (cdr date))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
375 (car (cdr (cdr date))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
376 (setq ut (- ut 24)))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
377 (if (< ut 0) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
378 (progn |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
379 (setq nd (list (car date) (- (car (cdr date)) 1) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
380 (car (cdr (cdr date))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
381 (setq ut (+ ut 24)))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
382 (setq nd (calendar-gregorian-from-absolute |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
383 (calendar-absolute-from-gregorian nd))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
384 ; date standardization |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
385 (list nd ut))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
386 |
956 | 387 (defun solar-sunrise-sunset (date) |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
388 "List of *local* times of sunrise, sunset, and daylight on Gregorian DATE. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
389 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
390 Corresponding value is nil if there is no sunrise/sunset." |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
391 (let* (; first, get the exact moment of local noon. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
392 (exact-local-noon (solar-exact-local-noon date)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
393 ; get the the time from the 2000 epoch. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
394 (t0 (solar-julian-ut-centuries (car exact-local-noon))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
395 ; store the sidereal time at Greenwich at midnight of UT time. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
396 ; find if summer or winter slightly above the equator |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
397 (equator-rise-set |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
398 (progn (setq solar-sidereal-time-greenwich-midnight |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
399 (solar-sidereal-time t0)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
400 (solar-sunrise-and-sunset |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
401 (list t0 (car (cdr exact-local-noon))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
402 10.0 |
14267
da2d268f737f
Fixed doc strings and references to calendar-latitude and calendar-longitude.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14169
diff
changeset
|
403 (calendar-longitude)))) |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
404 ; store the spring/summer information, |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
405 ; compute sunrise and sunset (two first components of rise-set). |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
406 ; length of day is the third component (it is only the difference |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
407 ; between sunset and sunrise when there is a sunset and a sunrise) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
408 (rise-set |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
409 (progn |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
410 (setq solar-spring-or-summer-season |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
411 (if (> (car (cdr (cdr equator-rise-set))) 12) 1 0)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
412 (solar-sunrise-and-sunset |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
413 (list t0 (car (cdr exact-local-noon))) |
14267
da2d268f737f
Fixed doc strings and references to calendar-latitude and calendar-longitude.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14169
diff
changeset
|
414 (calendar-latitude) |
da2d268f737f
Fixed doc strings and references to calendar-latitude and calendar-longitude.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14169
diff
changeset
|
415 (calendar-longitude)))) |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
416 (rise (car rise-set)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
417 (adj-rise (if rise (dst-adjust-time date rise) nil)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
418 (set (car (cdr rise-set))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
419 (adj-set (if set (dst-adjust-time date set) nil)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
420 (length (car (cdr (cdr rise-set)))) ) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
421 (list |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
422 (and rise (calendar-date-equal date (car adj-rise)) (cdr adj-rise)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
423 (and set (calendar-date-equal date (car adj-set)) (cdr adj-set)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
424 (solar-daylight length)))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
425 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
426 (defun solar-sunrise-sunset-string (date) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
427 "String of *local* times of sunrise, sunset, and daylight on Gregorian DATE." |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
428 (let ((l (solar-sunrise-sunset date))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
429 (format |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
430 "%s, %s at %s (%s hours daylight)" |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
431 (if (car l) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
432 (concat "Sunrise " (apply 'solar-time-string (car l))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
433 "No sunrise") |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
434 (if (car (cdr l)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
435 (concat "sunset " (apply 'solar-time-string (car (cdr l)))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
436 "no sunset") |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
437 (eval calendar-location-name) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
438 (car (cdr (cdr l)))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
439 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
440 (defun solar-julian-ut-centuries (date) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
441 "Number of Julian centuries elapsed since 1 Jan, 2000 at noon U.T. for Gregorian DATE." |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
442 (/ (- (calendar-absolute-from-gregorian date) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
443 (calendar-absolute-from-gregorian '(1 1.5 2000))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
444 36525.0)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
445 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
446 (defun solar-ephemeris-time(time) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
447 "Ephemeris Time at moment TIME. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
448 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
449 TIME is a pair with the first component being the number of Julian centuries |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
450 elapsed at 0 Universal Time, and the second component being the universal |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
451 time. For instance, the pair corresponding to November 28, 1995 at 16 UT is |
14273
73b9ac33b161
(solar-moment, solar-ephemeris-time, solar-equatorial-coordinates,
Erik Naggum <erik@naggum.no>
parents:
14267
diff
changeset
|
452 \(-0.040945 16), -0.040945 being the number of julian centuries elapsed between |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
453 Jan 1, 2000 at 12 UT and November 28, 1995 at 0 UT. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
454 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
455 Result is in julian centuries of ephemeris time." |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
456 (let* ((t0 (car time)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
457 (ut (car (cdr time))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
458 (t1 (+ t0 (/ (/ ut 24.0) 36525))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
459 (y (+ 2000 (* 100 t1))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
460 (dt (* 86400 (solar-ephemeris-correction (floor y))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
461 (+ t1 (/ (/ dt 86400) 36525)))) |
956 | 462 |
13045
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
463 (defun solar-date-next-longitude (d l) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
464 "First moment on or after Julian day number D when sun's longitude is a |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
465 multiple of L degrees at calendar-location-name with that location's |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
466 local time (including any daylight savings rules). |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
467 |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
468 L must be an integer divisor of 360. |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
469 |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
470 Result is in local time expressed astronomical (Julian) day numbers. |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
471 |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
472 The values of calendar-daylight-savings-starts, |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
473 calendar-daylight-savings-starts-time, calendar-daylight-savings-ends, |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
474 calendar-daylight-savings-ends-time, calendar-daylight-time-offset, and |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
475 calendar-time-zone are used to interpret local time." |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
476 (let* ((long) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
477 (start d) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
478 (start-long (solar-longitude d)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
479 (next (mod (* l (1+ (floor (/ start-long l)))) 360)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
480 (end (+ d (* (/ l 360.0) 400))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
481 (end-long (solar-longitude end))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
482 (while ;; bisection search for nearest minute |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
483 (< 0.00001 (- end start)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
484 ;; start <= d < end |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
485 ;; start-long <= next < end-long when next != 0 |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
486 ;; when next = 0, we look for the discontinuity (start-long is near 360 |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
487 ;; and end-long is small (less than l). |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
488 (setq d (/ (+ start end) 2.0)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
489 (setq long (solar-longitude d)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
490 (if (or (and (/= next 0) (< long next)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
491 (and (= next 0) (< l long))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
492 (progn |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
493 (setq start d) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
494 (setq start-long long)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
495 (setq end d) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
496 (setq end-long long))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
497 (/ (+ start end) 2.0))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
498 |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
499 (defun solar-horizontal-coordinates |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
500 (time latitude longitude for-sunrise-sunset) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
501 "Azimuth and height of the sun at TIME, LATITUDE, and LONGITUDE. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
502 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
503 TIME is a pair with the first component being the number of Julian centuries |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
504 elapsed at 0 Universal Time, and the second component being the universal |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
505 time. For instance, the pair corresponding to November 28, 1995 at 16 UT is |
14273
73b9ac33b161
(solar-moment, solar-ephemeris-time, solar-equatorial-coordinates,
Erik Naggum <erik@naggum.no>
parents:
14267
diff
changeset
|
506 \(-0.040945 16), -0.040945 being the number of julian centuries elapsed between |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
507 Jan 1, 2000 at 12 UT and November 28, 1995 at 0 UT. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
508 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
509 The azimuth is given in degrees as well as the height (between -180 and 180)." |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
510 (let* ((ut (car (cdr time))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
511 (ec (solar-equatorial-coordinates time for-sunrise-sunset)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
512 (st (+ solar-sidereal-time-greenwich-midnight |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
513 (* ut 1.00273790935))) |
14267
da2d268f737f
Fixed doc strings and references to calendar-latitude and calendar-longitude.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14169
diff
changeset
|
514 (ah (- (* st 15) (* 15 (car ec)) (* -1 (calendar-longitude)))) |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
515 ; hour angle (in degrees) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
516 (de (car (cdr ec))) |
14917
f353b7b88418
Fixed solar-arcsin/arcos stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14331
diff
changeset
|
517 (azimuth (solar-atn2 (- (* (solar-cosine-degrees ah) |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
518 (solar-sin-degrees latitude)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
519 (* (solar-tangent-degrees de) |
14917
f353b7b88418
Fixed solar-arcsin/arcos stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14331
diff
changeset
|
520 (solar-cosine-degrees latitude))) |
f353b7b88418
Fixed solar-arcsin/arcos stuff.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14331
diff
changeset
|
521 (solar-sin-degrees ah))) |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
522 (height (solar-arcsin |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
523 (+ (* (solar-sin-degrees latitude) (solar-sin-degrees de)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
524 (* (solar-cosine-degrees latitude) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
525 (solar-cosine-degrees de) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
526 (solar-cosine-degrees ah)))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
527 (if (> height 180) (setq height (- height 360))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
528 (list azimuth height))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
529 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
530 (defun solar-equatorial-coordinates (time for-sunrise-sunset) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
531 "Right ascension (in hours) and declination (in degrees) of the sun at TIME. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
532 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
533 TIME is a pair with the first component being the number of Julian centuries |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
534 elapsed at 0 Universal Time, and the second component being the universal |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
535 time. For instance, the pair corresponding to November 28, 1995 at 16 UT is |
14273
73b9ac33b161
(solar-moment, solar-ephemeris-time, solar-equatorial-coordinates,
Erik Naggum <erik@naggum.no>
parents:
14267
diff
changeset
|
536 \(-0.040945 16), -0.040945 being the number of julian centuries elapsed between |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
537 Jan 1, 2000 at 12 UT and November 28, 1995 at 0 UT." |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
538 (let* ((tm (solar-ephemeris-time time)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
539 (ec (solar-ecliptic-coordinates tm for-sunrise-sunset))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
540 (list (solar-right-ascension (car ec) (car (cdr ec))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
541 (solar-declination (car ec) (car (cdr ec)))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
542 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
543 (defun solar-ecliptic-coordinates (time for-sunrise-sunset) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
544 "Apparent longitude of the sun, ecliptic inclination, (both in degrees) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
545 equation of time (in hours) and nutation in longitude (in seconds) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
546 at moment `time', expressed in julian centuries of Ephemeris Time |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
547 since January 1st, 2000, at 12 ET." |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
548 (let* ((l (+ 280.46645 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
549 (* 36000.76983 time) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
550 (* 0.0003032 time time))) ; sun mean longitude |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
551 (ml (+ 218.3165 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
552 (* 481267.8813 time))) ; moon mean longitude |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
553 (m (+ 357.52910 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
554 (* 35999.05030 time) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
555 (* -0.0001559 time time) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
556 (* -0.00000048 time time time))) ; sun mean anomaly |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
557 (i (+ 23.43929111 (* -0.013004167 time) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
558 (* -0.00000016389 time time) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
559 (* 0.0000005036 time time time))); mean inclination |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
560 (c (+ (* (+ 1.914600 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
561 (* -0.004817 time) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
562 (* -0.000014 time time)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
563 (solar-sin-degrees m)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
564 (* (+ 0.019993 (* -0.000101 time)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
565 (solar-sin-degrees (* 2 m))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
566 (* 0.000290 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
567 (solar-sin-degrees (* 3 m))))) ; center equation |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
568 (L (+ l c)) ; total longitude |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
569 (omega (+ 125.04 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
570 (* -1934.136 time))) ; longitude of moon's ascending node |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
571 ; on the ecliptic |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
572 (nut (if (not for-sunrise-sunset) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
573 (+ (* -17.20 (solar-sin-degrees omega)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
574 (* -1.32 (solar-sin-degrees (* 2 l))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
575 (* -0.23 (solar-sin-degrees (* 2 ml))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
576 (* 0.21 (solar-sin-degrees (* 2 omega)))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
577 nil)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
578 ; nut = nutation in longitude, measured in seconds of angle. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
579 (ecc (if (not for-sunrise-sunset) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
580 (+ 0.016708617 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
581 (* -0.000042037 time) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
582 (* -0.0000001236 time time)) ; eccentricity of earth's orbit |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
583 nil)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
584 (app (+ L |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
585 -0.00569 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
586 (* -0.00478 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
587 (solar-sin-degrees omega)))) ; apparent longitude of sun |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
588 (y (if (not for-sunrise-sunset) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
589 (* (solar-tangent-degrees (/ i 2)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
590 (solar-tangent-degrees (/ i 2))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
591 nil)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
592 (time-eq (if (not for-sunrise-sunset) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
593 (/ (* 12 (+ (* y (solar-sin-degrees (* 2 l))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
594 (* -2 ecc (solar-sin-degrees m)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
595 (* 4 ecc y (solar-sin-degrees m) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
596 (solar-cosine-degrees (* 2 l))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
597 (* -0.5 y y (solar-sin-degrees (* 4 l))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
598 (* -1.25 ecc ecc (solar-sin-degrees (* 2 m))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
599 3.1415926535) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
600 nil))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
601 ; equation of time, in hours |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
602 (list app i time-eq nut))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
603 |
13045
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
604 (defun solar-longitude (d) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
605 "Longitude of sun on astronomical (Julian) day number D. |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
606 Accurary is about 0.0006 degree (about 365.25*24*60*0.0006/360 = 1 minutes). |
13045
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
607 |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
608 The values of calendar-daylight-savings-starts, |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
609 calendar-daylight-savings-starts-time, calendar-daylight-savings-ends, |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
610 calendar-daylight-savings-ends-time, calendar-daylight-time-offset, and |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
611 calendar-time-zone are used to interpret local time." |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
612 (let* ((a-d (calendar-absolute-from-astro d)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
613 ;; get Universal Time |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
614 (date (calendar-astro-from-absolute |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
615 (- a-d |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
616 (if (dst-in-effect a-d) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
617 (/ calendar-daylight-time-offset 24.0 60.0) 0) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
618 (/ calendar-time-zone 60.0 24.0)))) |
13045
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
619 ;; get Ephemeris Time |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
620 (date (+ date (solar-ephemeris-correction |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
621 (extract-calendar-year |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
622 (calendar-gregorian-from-absolute |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
623 (floor |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
624 (calendar-absolute-from-astro |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
625 date))))))) |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
626 (U (/ (- date 2451545) 3652500)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
627 (longitude |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
628 (+ 4.9353929 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
629 (* 62833.1961680 U) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
630 (* 0.0000001 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
631 (apply '+ |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
632 (mapcar '(lambda (x) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
633 (* (car x) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
634 (sin (mod |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
635 (+ (car (cdr x)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
636 (* (car (cdr (cdr x))) U)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
637 (* 2 pi))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
638 solar-data-list))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
639 (aberration |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
640 (* 0.0000001 (- (* 17 (cos (+ 3.10 (* 62830.14 U)))) 973))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
641 (A1 (mod (+ 2.18 (* U (+ -3375.70 (* 0.36 U)))) (* 2 pi))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
642 (A2 (mod (+ 3.51 (* U (+ 125666.39 (* 0.10 U)))) (* 2 pi))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
643 (nutation (* -0.0000001 (+ (* 834 (sin A1)) (* 64 (sin A2)))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
644 (mod (radians-to-degrees (+ longitude aberration nutation)) 360.0))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
645 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
646 (defconst solar-data-list |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
647 '((403406 4.721964 1.621043) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
648 (195207 5.937458 62830.348067) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
649 (119433 1.115589 62830.821524) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
650 (112392 5.781616 62829.634302) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
651 (3891 5.5474 125660.5691) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
652 (2819 1.5120 125660.984) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
653 (1721 4.1897 62832.4766) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
654 (0 1.163 0.813) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
655 (660 5.415 125659.31) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
656 (350 4.315 57533.85) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
657 (334 4.553 -33.931) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
658 (314 5.198 777137.715) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
659 (268 5.989 78604.191) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
660 (242 2.911 5.412) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
661 (234 1.423 39302.098) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
662 (158 0.061 -34.861) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
663 (132 2.317 115067.698) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
664 (129 3.193 15774.337) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
665 (114 2.828 5296.670) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
666 (99 0.52 58849.27) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
667 (93 4.65 5296.11) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
668 (86 4.35 -3980.70) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
669 (78 2.75 52237.69) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
670 (72 4.50 55076.47) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
671 (68 3.23 261.08) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
672 (64 1.22 15773.85) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
673 (46 0.14 188491.03) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
674 (38 3.44 -7756.55) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
675 (37 4.37 264.89) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
676 (32 1.14 117906.27) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
677 (29 2.84 55075.75) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
678 (28 5.96 -7961.39) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
679 (27 5.09 188489.81) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
680 (27 1.72 2132.19) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
681 (25 2.56 109771.03) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
682 (24 1.92 54868.56) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
683 (21 0.09 25443.93) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
684 (21 5.98 -55731.43) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
685 (20 4.03 60697.74) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
686 (18 4.47 2132.79) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
687 (17 0.79 109771.63) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
688 (14 4.24 -7752.82) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
689 (13 2.01 188491.91) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
690 (13 2.65 207.81) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
691 (13 4.98 29424.63) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
692 (12 0.93 -7.99) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
693 (10 2.21 46941.14) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
694 (10 3.59 -68.29) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
695 (10 1.50 21463.25) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
696 (10 2.55 157208.40))) |
956 | 697 |
698 (defun solar-ephemeris-correction (year) | |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
699 "Ephemeris time minus Universal Time during Gregorian year. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
700 Result is in days. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
701 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
702 For the years 1800-1987, the maximum error is 1.9 seconds. |
13045
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
703 For the other years, the maximum error is about 30 seconds." |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
704 (cond ((and (<= 1988 year) (< year 2020)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
705 (/ (+ year -2000 67.0) 60.0 60.0 24.0)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
706 ((and (<= 1900 year) (< year 1988)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
707 (let* ((theta (/ (- (calendar-astro-from-absolute |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
708 (calendar-absolute-from-gregorian |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
709 (list 7 1 year))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
710 (calendar-astro-from-absolute |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
711 (calendar-absolute-from-gregorian |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
712 '(1 1 1900)))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
713 36525.0)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
714 (theta2 (* theta theta)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
715 (theta3 (* theta2 theta)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
716 (theta4 (* theta2 theta2)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
717 (theta5 (* theta3 theta2))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
718 (+ -0.00002 |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
719 (* 0.000297 theta) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
720 (* 0.025184 theta2) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
721 (* -0.181133 theta3) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
722 (* 0.553040 theta4) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
723 (* -0.861938 theta5) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
724 (* 0.677066 theta3 theta3) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
725 (* -0.212591 theta4 theta3)))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
726 ((and (<= 1800 year) (< year 1900)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
727 (let* ((theta (/ (- (calendar-astro-from-absolute |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
728 (calendar-absolute-from-gregorian |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
729 (list 7 1 year))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
730 (calendar-astro-from-absolute |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
731 (calendar-absolute-from-gregorian |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
732 '(1 1 1900)))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
733 36525.0)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
734 (theta2 (* theta theta)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
735 (theta3 (* theta2 theta)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
736 (theta4 (* theta2 theta2)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
737 (theta5 (* theta3 theta2))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
738 (+ -0.000009 |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
739 (* 0.003844 theta) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
740 (* 0.083563 theta2) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
741 (* 0.865736 theta3) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
742 (* 4.867575 theta4) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
743 (* 15.845535 theta5) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
744 (* 31.332267 theta3 theta3) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
745 (* 38.291999 theta4 theta3) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
746 (* 28.316289 theta4 theta4) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
747 (* 11.636204 theta4 theta5) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
748 (* 2.043794 theta5 theta5)))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
749 ((and (<= 1620 year) (< year 1800)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
750 (let ((x (/ (- year 1600) 10.0))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
751 (/ (+ (* 2.19167 x x) (* -40.675 x) 196.58333) 60.0 60.0 24.0))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
752 (t (let* ((tmp (- (calendar-astro-from-absolute |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
753 (calendar-absolute-from-gregorian |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
754 (list 1 1 year))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
755 2382148)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
756 (second (- (/ (* tmp tmp) 41048480.0) 15))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
757 (/ second 60.0 60.0 24.0))))) |
956 | 758 |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
759 (defun solar-sidereal-time (t0) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
760 "Sidereal time (in hours) in Greenwich. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
761 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
762 At T0=Julian centuries of universal time. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
763 T0 must correspond to 0 hours UT." |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
764 (let* ((mean-sid-time (+ 6.6973746 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
765 (* 2400.051337 t0) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
766 (* 0.0000258622 t0 t0) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
767 (* -0.0000000017222 t0 t0 t0))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
768 (et (solar-ephemeris-time (list t0 0.0))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
769 (nut-i (solar-ecliptic-coordinates et nil)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
770 (nut (car (cdr (cdr (cdr nut-i))))) ; nutation |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
771 (i (car (cdr nut-i)))) ; inclination |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
772 (mod (+ (mod (+ mean-sid-time |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
773 (/ (/ (* nut (solar-cosine-degrees i)) 15) 3600)) 24.0) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
774 24.0) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
775 24.0))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
776 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
777 (defun solar-time-equation (date ut) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
778 "Equation of time expressed in hours at Gregorian DATE at Universal time UT." |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
779 (let* ((et (solar-date-to-et date ut)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
780 (ec (solar-ecliptic-coordinates et nil))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
781 (car (cdr (cdr ec))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
782 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
783 (defun solar-date-to-et (date ut) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
784 "Ephemeris Time at Gregorian DATE at Universal Time UT (in hours). |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
785 Expressed in julian centuries of Ephemeris Time." |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
786 (let ((t0 (solar-julian-ut-centuries date))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
787 (solar-ephemeris-time (list t0 ut)))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
788 |
956 | 789 ;;;###autoload |
790 (defun sunrise-sunset (&optional arg) | |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
791 "Local time of sunrise and sunset for today. Accurate to a few seconds. |
7255
c79c14e28d71
(sunrise-sunset): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
7248
diff
changeset
|
792 If called with an optional prefix argument, prompt for date. |
956 | 793 |
7255
c79c14e28d71
(sunrise-sunset): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
7248
diff
changeset
|
794 If called with an optional double prefix argument, prompt for longitude, |
c79c14e28d71
(sunrise-sunset): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
7248
diff
changeset
|
795 latitude, time zone, and date, and always use standard time. |
956 | 796 |
797 This function is suitable for execution in a .emacs file." | |
798 (interactive "p") | |
5835
1c685c3bd5a9
(calendar-sunrise-sunset): Use new error arg to calendar-cursor-to-date.
Richard M. Stallman <rms@gnu.org>
parents:
5698
diff
changeset
|
799 (or arg (setq arg 1)) |
998 | 800 (if (and (< arg 16) |
801 (not (and calendar-latitude calendar-longitude calendar-time-zone))) | |
802 (solar-setup)) | |
956 | 803 (let* ((calendar-longitude |
998 | 804 (if (< arg 16) calendar-longitude |
956 | 805 (solar-get-number |
806 "Enter longitude (decimal fraction; + east, - west): "))) | |
807 (calendar-latitude | |
998 | 808 (if (< arg 16) calendar-latitude |
956 | 809 (solar-get-number |
810 "Enter latitude (decimal fraction; + north, - south): "))) | |
811 (calendar-time-zone | |
998 | 812 (if (< arg 16) calendar-time-zone |
956 | 813 (solar-get-number |
3779
e9961fa24193
*solar.el (solar-setup, solar-ephemeris-time, sunrise-sunset): Change
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
814 "Enter difference from Coordinated Universal Time (in minutes): "))) |
956 | 815 (calendar-location-name |
998 | 816 (if (< arg 16) calendar-location-name |
817 (let ((float-output-format "%.1f")) | |
818 (format "%s%s, %s%s" | |
9714
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
819 (if (numberp calendar-latitude) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
820 (abs calendar-latitude) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
821 (+ (aref calendar-latitude 0) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
822 (/ (aref calendar-latitude 1) 60.0))) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
823 (if (numberp calendar-latitude) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
824 (if (> calendar-latitude 0) "N" "S") |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
825 (if (equal (aref calendar-latitude 2) 'north) "N" "S")) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
826 (if (numberp calendar-longitude) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
827 (abs calendar-longitude) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
828 (+ (aref calendar-longitude 0) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
829 (/ (aref calendar-longitude 1) 60.0))) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
830 (if (numberp calendar-longitude) |
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
831 (if (> calendar-longitude 0) "E" "W") |
12312
7816b2769014
Fix bug in determination of output string.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9829
diff
changeset
|
832 (if (equal (aref calendar-longitude 2) 'east) |
9714
c14b023ca6fe
Allow vector form of latitude/longitude. Fix documentation.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7778
diff
changeset
|
833 "E" "W")))))) |
956 | 834 (calendar-standard-time-zone-name |
998 | 835 (if (< arg 16) calendar-standard-time-zone-name |
3866
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
836 (cond ((= calendar-time-zone 0) "UTC") |
998 | 837 ((< calendar-time-zone 0) |
3866
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
838 (format "UTC%dmin" calendar-time-zone)) |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
839 (t (format "UTC+%dmin" calendar-time-zone))))) |
7255
c79c14e28d71
(sunrise-sunset): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
7248
diff
changeset
|
840 (calendar-daylight-savings-starts |
c79c14e28d71
(sunrise-sunset): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
7248
diff
changeset
|
841 (if (< arg 16) calendar-daylight-savings-starts)) |
c79c14e28d71
(sunrise-sunset): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
7248
diff
changeset
|
842 (calendar-daylight-savings-ends |
c79c14e28d71
(sunrise-sunset): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
7248
diff
changeset
|
843 (if (< arg 16) calendar-daylight-savings-ends)) |
998 | 844 (date (if (< arg 4) (calendar-current-date) (calendar-read-date))) |
956 | 845 (date-string (calendar-date-string date t)) |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
846 (time-string (solar-sunrise-sunset-string date)) |
956 | 847 (msg (format "%s: %s" date-string time-string)) |
848 (one-window (one-window-p t))) | |
4651
7ca17b5fd85e
* solar.el (solar-sunrise, solar-sunset, solar-longitude-of-sun):
Jim Blandy <jimb@redhat.com>
parents:
4519
diff
changeset
|
849 (if (<= (length msg) (frame-width)) |
14331
b5434941b9b1
(sunrise-sunset): Pass proper format string to message.
Karl Heuer <kwzh@gnu.org>
parents:
14273
diff
changeset
|
850 (message "%s" msg) |
956 | 851 (with-output-to-temp-buffer "*temp*" |
852 (princ (concat date-string "\n" time-string))) | |
14331
b5434941b9b1
(sunrise-sunset): Pass proper format string to message.
Karl Heuer <kwzh@gnu.org>
parents:
14273
diff
changeset
|
853 (message "%s" |
b5434941b9b1
(sunrise-sunset): Pass proper format string to message.
Karl Heuer <kwzh@gnu.org>
parents:
14273
diff
changeset
|
854 (substitute-command-keys |
956 | 855 (if one-window |
856 (if pop-up-windows | |
857 "Type \\[delete-other-windows] to remove temp window." | |
858 "Type \\[switch-to-buffer] RET to remove temp window.") | |
859 "Type \\[switch-to-buffer-other-window] RET to restore old contents of temp window.")))))) | |
860 | |
861 (defun calendar-sunrise-sunset () | |
862 "Local time of sunrise and sunset for date under cursor. | |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
863 Accurate to a few seconds." |
956 | 864 (interactive) |
865 (if (not (and calendar-latitude calendar-longitude calendar-time-zone)) | |
866 (solar-setup)) | |
5835
1c685c3bd5a9
(calendar-sunrise-sunset): Use new error arg to calendar-cursor-to-date.
Richard M. Stallman <rms@gnu.org>
parents:
5698
diff
changeset
|
867 (let ((date (calendar-cursor-to-date t))) |
5698
d127e0963a2c
(calendar-sunrise-sunset): Add date to message.
Richard M. Stallman <rms@gnu.org>
parents:
5010
diff
changeset
|
868 (message "%s: %s" |
d127e0963a2c
(calendar-sunrise-sunset): Add date to message.
Richard M. Stallman <rms@gnu.org>
parents:
5010
diff
changeset
|
869 (calendar-date-string date t t) |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
870 (solar-sunrise-sunset-string date)))) |
956 | 871 |
872 (defun diary-sunrise-sunset () | |
873 "Local time of sunrise and sunset as a diary entry. | |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
874 Accurate to a few seconds." |
956 | 875 (if (not (and calendar-latitude calendar-longitude calendar-time-zone)) |
876 (solar-setup)) | |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
877 (solar-sunrise-sunset-string date)) |
956 | 878 |
879 (defun diary-sabbath-candles () | |
880 "Local time of candle lighting diary entry--applies if date is a Friday. | |
881 No diary entry if there is no sunset on that date." | |
882 (if (not (and calendar-latitude calendar-longitude calendar-time-zone)) | |
883 (solar-setup)) | |
884 (if (= (% (calendar-absolute-from-gregorian date) 7) 5);; Friday | |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
885 (let* ((sunset (car (cdr (solar-sunrise-sunset date)))) |
15095
66db908addc7
Double DST correction removed!
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14917
diff
changeset
|
886 (light (if sunset |
66db908addc7
Double DST correction removed!
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14917
diff
changeset
|
887 (cons (- (car sunset) (/ 18.0 60.0)) (cdr sunset))))) |
66db908addc7
Double DST correction removed!
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14917
diff
changeset
|
888 (if sunset |
7778
b0e2bd1e825a
(solar-sunrise, solar-sunset): Fix doc string.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7255
diff
changeset
|
889 (format "%s Sabbath candle lighting" |
15095
66db908addc7
Double DST correction removed!
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14917
diff
changeset
|
890 (apply 'solar-time-string light)))))) |
956 | 891 |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
892 (defun solar-equinoxes/solstices (k year) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
893 "Date of equinox/solstice K for YEAR. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
894 K=0, spring equinox; K=1, summer solstice; K=2, fall equinox; |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
895 K=3, winter solstice. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
896 RESULT is a gregorian local date. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
897 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
898 Accurate to less than a minute between 1951 and 2050." |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
899 (let* ((JDE0 (solar-mean-equinoxes/solstices k year)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
900 (T (/ (- JDE0 2451545.0) 36525)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
901 (W (- (* 35999.373 T) 2.47)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
902 (Delta-lambda (+ 1 (* 0.0334 (solar-cosine-degrees W)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
903 (* 0.0007 (solar-cosine-degrees (* 2 W))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
904 (S (apply '+ (mapcar '(lambda(x) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
905 (* (car x) (solar-cosine-degrees |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
906 (+ (* (car (cdr (cdr x))) T) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
907 (car (cdr x)))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
908 solar-seasons-data))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
909 (JDE (+ JDE0 (/ (* 0.00001 S) Delta-lambda))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
910 (correction (+ 102.3 (* 123.5 T) (* 32.5 T T))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
911 ; ephemeris time correction |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
912 (JD (- JDE (/ correction 86400))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
913 (date (calendar-gregorian-from-absolute (floor (- JD 1721424.5)))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
914 (time (- (- JD 0.5) (floor (- JD 0.5)))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
915 ) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
916 (list (car date) (+ (car (cdr date)) time |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
917 (/ (/ calendar-time-zone 60.0) 24.0)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
918 (car (cdr (cdr date)))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
919 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
920 ; from Meeus, 1991, page 166 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
921 (defun solar-mean-equinoxes/solstices (k year) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
922 "Julian day of mean equinox/solstice K for YEAR. |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
923 K=0, spring equinox; K=1, summer solstice; K=2, fall equinox; K=3, winter |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
924 solstice. These formulas are only to be used between 1000 BC and 3000 AD." |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
925 (let ((y (/ year 1000.0)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
926 (z (/ (- year 2000) 1000.0))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
927 (if (< year 1000) ; actually between -1000 and 1000 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
928 (cond ((equal k 0) (+ 1721139.29189 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
929 (* 365242.13740 y) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
930 (* 0.06134 y y) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
931 (* 0.00111 y y y) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
932 (* -0.00071 y y y y))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
933 ((equal k 1) (+ 1721233.25401 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
934 (* 365241.72562 y) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
935 (* -0.05323 y y) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
936 (* 0.00907 y y y) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
937 (* 0.00025 y y y y))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
938 ((equal k 2) (+ 1721325.70455 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
939 (* 365242.49558 y) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
940 (* -0.11677 y y) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
941 (* -0.00297 y y y) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
942 (* 0.00074 y y y y))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
943 ((equal k 3) (+ 1721414.39987 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
944 (* 365242.88257 y) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
945 (* -0.00769 y y) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
946 (* -0.00933 y y y) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
947 (* -0.00006 y y y y)))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
948 ; actually between 1000 and 3000 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
949 (cond ((equal k 0) (+ 2451623.80984 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
950 (* 365242.37404 z) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
951 (* 0.05169 z z) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
952 (* -0.00411 z z z) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
953 (* -0.00057 z z z z))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
954 ((equal k 1) (+ 2451716.56767 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
955 (* 365241.62603 z) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
956 (* 0.00325 z z) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
957 (* 0.00888 z z z) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
958 (* -0.00030 z z z z))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
959 ((equal k 2) (+ 2451810.21715 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
960 (* 365242.01767 z) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
961 (* -0.11575 z z) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
962 (* 0.00337 z z z) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
963 (* 0.00078 z z z z))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
964 ((equal k 3) (+ 2451900.05952 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
965 (* 365242.74049 z) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
966 (* -0.06223 z z) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
967 (* -0.00823 z z z) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
968 (* 0.00032 z z z z))))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
969 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
970 ; from Meeus, 1991, page 167 |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
971 (defconst solar-seasons-data |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
972 '((485 324.96 1934.136) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
973 (203 337.23 32964.467) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
974 (199 342.08 20.186) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
975 (182 27.85 445267.112) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
976 (156 73.14 45036.886) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
977 (136 171.52 22518.443) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
978 (77 222.54 65928.934) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
979 (74 296.72 3034.906) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
980 (70 243.58 9037.513) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
981 (58 119.81 33718.147) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
982 (52 297.17 150.678) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
983 (50 21.02 2281.226) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
984 (45 247.54 29929.562) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
985 (44 325.15 31555.956) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
986 (29 60.93 4443.417) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
987 (18 155.12 67555.328) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
988 (17 288.79 4562.452) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
989 (16 198.04 62894.029) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
990 (14 199.76 31436.921) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
991 (12 95.39 14577.848) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
992 (12 287.11 31931.756) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
993 (12 320.81 34777.259) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
994 (9 227.73 1222.114) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
995 (8 15.45 16859.074))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
996 |
5010
9595049f63a9
(solar-equinoxes-solstices): Add autoload.
Richard M. Stallman <rms@gnu.org>
parents:
4863
diff
changeset
|
997 ;;;###autoload |
3866
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
998 (defun solar-equinoxes-solstices () |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
999 "*local* date and time of equinoxes and solstices, if visible in the calendar window. |
956 | 1000 Requires floating point." |
3866
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
1001 (let ((m displayed-month) |
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
1002 (y displayed-year)) |
956 | 1003 (increment-calendar-month m y (cond ((= 1 (% m 3)) -1) |
1004 ((= 2 (% m 3)) 1) | |
1005 (t 0))) | |
1006 (let* ((calendar-standard-time-zone-name | |
3866
c97c63c1a920
* solar.el (calendar-holiday-solar-equinoxes-solstices): Renamed
Jim Blandy <jimb@redhat.com>
parents:
3779
diff
changeset
|
1007 (if calendar-time-zone calendar-standard-time-zone-name "UTC")) |
956 | 1008 (calendar-daylight-savings-starts |
1009 (if calendar-time-zone calendar-daylight-savings-starts)) | |
1010 (calendar-daylight-savings-ends | |
1011 (if calendar-time-zone calendar-daylight-savings-ends)) | |
1012 (calendar-time-zone (if calendar-time-zone calendar-time-zone 0)) | |
1013 (k (1- (/ m 3))) | |
13874
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
1014 (d0 (solar-equinoxes/solstices k y)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
1015 (d1 (list (car d0) (floor (car (cdr d0))) (car (cdr (cdr d0))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
1016 (h0 (* 24 (- (car (cdr d0)) (floor (car (cdr d0)))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
1017 (adj (dst-adjust-time d1 h0)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
1018 (d (list (car d1) (+ (car (cdr d1)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
1019 (/ (car (cdr adj)) 24.0)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
1020 (car (cdr (cdr d1))))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
1021 ; The following is nearly as accurate, but not quite: |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
1022 ;(d0 (solar-date-next-longitude |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
1023 ; (calendar-astro-from-absolute |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
1024 ; (calendar-absolute-from-gregorian |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
1025 ; (list (+ 3 (* k 3)) 15 y))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
1026 ; 90)) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
1027 ;(abs-day (calendar-absolute-from-astro d))) |
eec68643bcfb
Rewrote completely for better accuracy.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13742
diff
changeset
|
1028 (abs-day (calendar-absolute-from-gregorian d))) |
13045
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
1029 (list |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
1030 (list (calendar-gregorian-from-absolute (floor abs-day)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
1031 (format "%s %s" |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
1032 (nth k (if (and calendar-latitude |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
1033 (< (calendar-latitude) 0)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
1034 solar-s-hemi-seasons |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
1035 solar-n-hemi-seasons)) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
1036 (solar-time-string |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
1037 (* 24 (- abs-day (floor abs-day))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
1038 (if (dst-in-effect abs-day) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
1039 calendar-daylight-time-zone-name |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
1040 calendar-standard-time-zone-name)))))))) |
2779e3cf6cfa
Added code to support Chinese calendar. Minor fixes as well.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12908
diff
changeset
|
1041 |
956 | 1042 |
1043 (provide 'solar) | |
1044 | |
1045 ;;; solar.el ends here |