Current File : //usr/local/share/emacs/27.2/lisp/calendar/solar.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\312\313\314\315\301& \210\303\316\305\306\317DD\320\311\321\315\301&\210\303\322\305\306\323DD\324\311\325\315\301&\210\303\326\305\306\327DD\330\311\312\313\314\315\301& \210\303\331\305\306\332DD\333\311\334\315\301&\210\303\335\305\306\336DD\337\311\340\315\301&\210\303\341\305\306\342DD\343\311\344\315\301&\207" [require calendar cal-dst custom-declare-variable calendar-time-display-form funcall function #[0 "\300\207" [(12-hours ":" minutes am-pm (if time-zone " (") time-zone (if time-zone ")"))] 1] "The pseudo-pattern that governs the way a time of day is formatted.\n\nA pseudo-pattern is a list of expressions that can involve the keywords\n`12-hours', `24-hours', and `minutes', all numbers in string form,\nand `am-pm' and `time-zone', both alphabetic strings.\n\nFor example, the form\n\n (24-hours \":\" minutes\n (if time-zone \" (\") time-zone (if time-zone \")\"))\n\nwould give military-style times like \"21:07 (UTC)\"." :type sexp :risky t :group calendar-latitude #[0 "\300\207" [nil] 1] "Latitude of `calendar-location-name' in degrees.\nThe value can be either a decimal fraction (one place of accuracy is\nsufficient), + north, - south, such as 40.7 for New York City, or the value\ncan be a vector [degrees minutes north/south] such as [40 50 north] for New\nYork City.\n\nThis variable should be set in `site-start'.el." (choice (const nil) (number :tag "Exact") (vector :value [0 0 north] (integer :tag "Degrees") (integer :tag "Minutes") (choice :tag "Position" (const north) (const south)))) calendar-longitude #[0 "\300\207" [nil] 1] "Longitude of `calendar-location-name' in degrees.\nThe value can be either a decimal fraction (one place of accuracy is\nsufficient), + east, - west, such as -73.9 for New York City, or the value\ncan be a vector [degrees minutes east/west] such as [73 55 west] for New\nYork City.\n\nThis variable should be set in `site-start'.el." (choice (const nil) (number :tag "Exact") (vector :value [0 0 west] (integer :tag "Degrees") (integer :tag "Minutes") (choice :tag "Position" (const east) (const west)))) calendar-location-name #[0 "\300\207" [(let ((float-output-format "%.1f")) (format "%s%s, %s%s" (if (numberp calendar-latitude) (abs calendar-latitude) (+ (aref calendar-latitude 0) (/ (aref calendar-latitude 1) 60.0))) (if (numberp calendar-latitude) (if (> calendar-latitude 0) "N" "S") (if (eq (aref calendar-latitude 2) 'north) "N" "S")) (if (numberp calendar-longitude) (abs calendar-longitude) (+ (aref calendar-longitude 0) (/ (aref calendar-longitude 1) 60.0))) (if (numberp calendar-longitude) (if (> calendar-longitude 0) "E" "W") (if (eq (aref calendar-longitude 2) 'east) "E" "W"))))] 1] "Expression evaluating to the name of the calendar location.\nFor example, \"New York City\". The default value is just the\nvariable `calendar-latitude' paired with the variable `calendar-longitude'.\n\nThis variable should be set in `site-start'.el." solar-error #[0 "\300\207" [0.5] 1] "Tolerance (in minutes) for sunrise/sunset calculations.\n\nA larger value makes the calculations for sunrise/sunset faster, but less\naccurate. The default is half a minute (30 seconds), so that sunrise/sunset\ntimes will be correct to the minute.\n\nIt is useless to set the value smaller than 4*delta, where delta is the\naccuracy in the longitude of the sun (given by the function\n`solar-ecliptic-coordinates') in degrees since (delta/360) x (86400/60) = 4 x\ndelta. At present, delta = 0.01 degrees, so the value of the variable\n`solar-error' should be at least 0.04 minutes (about 2.5 seconds)." number solar-n-hemi-seasons #[0 "\300\207" [("Vernal Equinox" "Summer Solstice" "Autumnal Equinox" "Winter Solstice")] 1] "List of season changes for the northern hemisphere." (list (string :tag "Vernal Equinox") (string :tag "Summer Solstice") (string :tag "Autumnal Equinox") (string :tag "Winter Solstice")) solar-s-hemi-seasons #[0 "\300\207" [("Autumnal Equinox" "Winter Solstice" "Vernal Equinox" "Summer Solstice")] 1] "List of season changes for the southern hemisphere." (list (string :tag "Autumnal Equinox") (string :tag "Winter Solstice") (string :tag "Vernal Equinox") (string :tag "Summer Solstice"))] 10)
#@58 Sidereal time at Greenwich at midnight (Universal Time).
(defvar solar-sidereal-time-greenwich-midnight nil (#$ . 4677))
#@135 Non-nil if northern spring or summer and nil otherwise.
Needed for polar areas, in order to know whether the day lasts 0 or 24 hours.
(defvar solar-northern-spring-or-summer-season nil (#$ . 4805))
#@71 Ensure the variable `calendar-latitude' is a signed decimal fraction.
(defalias 'calendar-latitude #[0 "\247\203 \207\301H\302H\303\245\\\304H\305=\203 \211\202 \211[\207" [calendar-latitude 0 1 60.0 2 north] 3 (#$ . 5009)])
(put 'calendar-latitude 'byte-optimizer 'byte-compile-inline-expand)
#@72 Ensure the variable `calendar-longitude' is a signed decimal fraction.
(defalias 'calendar-longitude #[0 "\247\203 \207\301H\302H\303\245\\\304H\305=\203 \211\202 \211[\207" [calendar-longitude 0 1 60.0 2 east] 3 (#$ . 5317)])
(put 'calendar-longitude 'byte-optimizer 'byte-compile-inline-expand)
#@110 Return a number from the minibuffer, prompting with PROMPT.
Returns nil if nothing was entered.
(fn PROMPT)
(defalias 'solar-get-number #[257 "\300\301\"\211\301\230?\205 \302!\207" [read-string "" string-to-number] 4 (#$ . 5629)])
#@77 Prompt for `calendar-longitude', `calendar-latitude', `calendar-time-zone'.
(defalias 'solar-setup #[0 "\303 \210\204 \304\305! \204 \304\306!\n\206 \304\307!\211\207" [calendar-longitude calendar-latitude calendar-time-zone beep solar-get-number "Enter longitude (decimal fraction; + east, - west): " "Enter latitude (decimal fraction; + north, - south): " "Enter difference from Coordinated Universal Time (in minutes): "] 2 (#$ . 5871)])
#@34 Return sin of X degrees.
(fn X)
(defalias 'solar-sin-degrees #[257 "\300\301\302\303\"_!\207" [sin 0.017453292519943295 mod 360.0] 6 (#$ . 6325)])
#@37 Return cosine of X degrees.
(fn X)
(defalias 'solar-cosine-degrees #[257 "\300\301\302\303\"_!\207" [cos 0.017453292519943295 mod 360.0] 6 (#$ . 6480)])
#@38 Return tangent of X degrees.
(fn X)
(defalias 'solar-tangent-degrees #[257 "\300\301\302\303\"_!\207" [tan 0.017453292519943295 mod 360.0] 6 (#$ . 6641)])
#@53 Determine the quadrant of the point X, Y.
(fn X Y)
(defalias 'solar-xy-to-quadrant #[514 "\300V\203 \211\300V\203 \301\207\302\207\211\300V\203 \303\207\304\207" [0 1 4 2 3] 4 (#$ . 6804)])
#@54 Determine the quadrant of ANGLE degrees.
(fn ANGLE)
(defalias 'solar-degrees-to-quadrant #[257 "\300\301\302\"\303\"T\207" [floor mod 360 90] 5 (#$ . 7005)])
#@48 Arctangent of X in quadrant QUAD.
(fn X QUAD)
(defalias 'solar-arctan #[514 "\300\301!_\302U\203 \211\303\\\202* \304U\203 \211\303\\\202* \305U\203) \211\306\\\202* \211\207" [57.29577951308232 atan 2 180 3 4 360] 5 (#$ . 7171)])
#@37 Arctangent of point X, Y.
(fn X Y)
(defalias 'solar-atn2 #[514 "\300U\203 \211\300V\203 \301\207\302\207\303\245\304\"\"\207" [0 90 270 solar-arctan solar-xy-to-quadrant] 7 (#$ . 7415)])
#@25 Arccosine of X.
(fn X)
(defalias 'solar-arccos #[257 "\300\301\211_Z!\302\"\207" [sqrt 1 solar-atn2] 5 (#$ . 7616)])
#@22 Arcsin of Y.
(fn Y)
(defalias 'solar-arcsin #[257 "\300\301\211_Z!\302\"\207" [sqrt 1 solar-atn2] 5 (#$ . 7743)])
#@41 Convert DEGREES to hours.
(fn DEGREES)
(defalias 'solar-degrees-to-hours #[257 "\211\300\245\207" [15.0] 3 (#$ . 7867)])
(put 'solar-degrees-to-hours 'byte-optimizer 'byte-compile-inline-expand)
#@55 Convert HOUR to decimal fraction of a day.
(fn HOUR)
(defalias 'solar-hours-to-days #[257 "\211\300\245\207" [24.0] 3 (#$ . 8069)])
(put 'solar-hours-to-days 'byte-optimizer 'byte-compile-inline-expand)
#@127 Right ascension of the sun, in hours, given LONGITUDE and OBLIQUITY.
Both arguments are in degrees.
(fn LONGITUDE OBLIQUITY)
(defalias 'solar-right-ascension #[514 "\300\301!\302!_\303!\"\211\304\245\207" [solar-arctan solar-cosine-degrees solar-tangent-degrees solar-degrees-to-quadrant 15.0] 6 (#$ . 8280)])
#@125 Declination of the sun, in degrees, given LONGITUDE and OBLIQUITY.
Both arguments are in degrees.
(fn LONGITUDE OBLIQUITY)
(defalias 'solar-declination #[514 "\300\301!\301!_!\207" [solar-arcsin solar-sin-degrees] 6 (#$ . 8601)])
#@370 Return solar longitude, ecliptic inclination, equation of time, nutation.
Values are for TIME in Julian centuries of Ephemeris Time since
January 1st, 2000, at 12 ET. Longitude and inclination are in
degrees, equation of time in hours, and nutation in seconds of longitude.
If SUNRISE-FLAG is non-nil, only calculate longitude and inclination.
(fn TIME SUNRISE-FLAG)
(defalias 'solar-ecliptic-coordinates #[514 "\301\302\303_\304\305\211##\306\307_\\\301\310\311_\304\312\211#\304\313 \211\211$$\301\314\315_\304\316 \211#\304\317\n\211\211$$\301\211\320\321 _\304\322 \211##\323!_\324\325 _\\\323\326_!_\327\323\330_!_#\\\331\332 _\\?\205\217 \301\333\323!_\334\323\326 _!_\335\323\326 _!_\336\323\326_!_$?\205\242 \301\337\340\f_\304\341\211##\301\342\343\323!_#\n?\205\277 \344\326\245!\344\326\245!_ ?\205\345\301\323\326_!_\304\346\323!#\304\347\323!\350\326_!%\304\351\211\323\347_!$\304\352\n\211\323\326_!$%_\245 F\207" [float-pi + 280.46645 36000.76983 * 0.0003032 218.3165 481267.8813 357.5291 35999.0503 -0.0001559 -4.8e-07 23.43929111 -0.013004167 -1.6389e-07 5.036e-07 1.9146 -0.004817 -1.4e-05 solar-sin-degrees 0.019993 -0.000101 2 0.00029 3 125.04 -1934.136 -17.2 -1.32 -0.23 0.21 0.016708617 -4.2037e-05 -1.236e-07 -0.00569 -0.00478 solar-tangent-degrees 12 -2 4 solar-cosine-degrees -0.5 -1.25] 26 (#$ . 8841)])
#@211 Ephemeris time minus Universal Time during Gregorian YEAR.
Result is in days. For the years 1800-1987, the maximum error is
1.9 seconds. For the other years, the maximum error is about 30 seconds.
(fn YEAR)
(defalias 'solar-ephemeris-correction #[257 "\300X\203 \211\301W\203 \302\303\304\305#\306\307\310$\207\311X\203\377\211\300W\203\377\312\313\314E\211\3158\262\316\317U\203; \320\321!\202u\317V\203\257 S\262\303\211\211@\262\211A@\262\3158\262\322S_\\\315V\203\234 \211\323\324_\\\325\245Z\262\211\317W\203} \326!S\262\211\324\246\317U\205\223 \211\327\246\317U?\206\223 \211\330\246\317U\262\203\234 \211T\262\266\204\331_\324\245\327\245[\330\245%\202u\326T!\262\332\211\211@\262\211A@\262\3158\262\322S_\\\315V\203\f\211\323\324_\\\325\245Z\262\211\317W\203\355 \326!S\262\211\324\246\317U\205\211\327\246\317U?\206\211\330\246\317U\262\203\f\211T\262\266\204\331_\324\245\327\245[\330\245\333\211\211@\262\211A@\262\3158\262\322S_\\\315V\203q\211\323\324_\\\325\245Z\262\211\317W\203R\326!S\262\211\324\246\317U\205h\211\327\246\317U?\206h\211\330\246\317U\262\203q\211T\262\266\204&\266\203!\312\334\211\3158\262\316\317U\203\215\320\321!\202\307\317V\203S\262\303\211\211@\262\211A@\262\3158\262\322S_\\\315V\203\356\211\323\324_\\\325\245Z\262\211\317W\203\317\326!S\262\211\324\246\317U\205\345\211\327\246\317U?\206\345\211\330\246\317U\262\203\356\211T\262\266\204\331_\324\245\327\245[\330\245%\202\307\326T!\262\332\211\211@\262\211A@\262\3158\262\322S_\\\315V\203^\211\323\324_\\\325\245Z\262\211\317W\203?\326!S\262\211\324\246\317U\205U\211\327\246\317U?\206U\211\330\246\317U\262\203^\211T\262\266\204\331_\324\245\327\245[\330\245\333\211\211@\262\211A@\262\3158\262\322S_\\\315V\203\303\211\323\324_\\\325\245Z\262\211\317W\203\244\326!S\262\211\324\246\317U\205\272\211\327\246\317U?\206\272\211\330\246\317U\262\203\303\211T\262\266\204&\266\203!Z\335\245\211_\211_\211__\303\336\337_\340_\341_\342_\343_\344\345 \211#\344\346
#&\207\347X\203\372\211\311W\203\372\312\313\314E\211\3158\262\316\317U\203#\320\321!\202]\317V\203\227S\262\303\211\211@\262\211A@\262\3158\262\322S_\\\315V\203\204\211\323\324_\\\325\245Z\262\211\317W\203e\326!S\262\211\324\246\317U\205{\211\327\246\317U?\206{\211\330\246\317U\262\203\204\211T\262\266\204\331_\324\245\327\245[\330\245%\202]\326T!\262\332\211\211@\262\211A@\262\3158\262\322S_\\\315V\203\364\211\323\324_\\\325\245Z\262\211\317W\203\325\326!S\262\211\324\246\317U\205\353\211\327\246\317U?\206\353\211\330\246\317U\262\203\364\211T\262\266\204\331_\324\245\327\245[\330\245\333\211\211@\262\211A@\262\3158\262\322S_\\\315V\203Y\211\323\324_\\\325\245Z\262\211\317W\203:\326!S\262\211\324\246\317U\205P\211\327\246\317U?\206P\211\330\246\317U\262\203Y\211T\262\266\204&\266\203!\312\350\211\3158\262\316\317U\203u\320\321!\202\257\317V\203\351S\262\303\211\211@\262\211A@\262\3158\262\322S_\\\315V\203\326\211\323\324_\\\325\245Z\262\211\317W\203\267\326!S\262\211\324\246\317U\205\315\211\327\246\317U?\206\315\211\330\246\317U\262\203\326\211T\262\266\204\331_\324\245\327\245[\330\245%\202\257\326T!\262\332\211\211@\262\211A@\262\3158\262\322S_\\\315V\203F\211\323\324_\\\325\245Z\262\211\317W\203'\326!S\262\211\324\246\317U\205=\211\327\246\317U?\206=\211\330\246\317U\262\203F\211T\262\266\204\331_\324\245\327\245[\330\245\333\211\211@\262\211A@\262\3158\262\322S_\\\315V\203\253\211\323\324_\\\325\245Z\262\211\317W\203\214\326!S\262\211\324\246\317U\205\242\211\327\246\317U?\206\242\211\330\246\317U\262\203\253\211T\262\266\204&\266\203!Z\351\245\211_\211_\211__\303\352\353_\354_\355_\356_\357_\344\360 \211#\344\361
#\344\362\f\211#\344\363
#\344\364
\211#& \207\365X\203 \211\347W\203 \211\366Z\367\245\302\303\344\370\211#\371_\372#\373\374\375$\207\312\314\211E\211\3158\262\316\317U\2034\320\321!\202n\317V\203\250S\262\303\211\211@\262\211A@\262\3158\262\322S_\\\315V\203\225\211\323\324_\\\325\245Z\262\211\317W\203v\326!S\262\211\324\246\317U\205\214\211\327\246\317U?\206\214\211\330\246\317U\262\203\225\211T\262\266\204\331_\324\245\327\245[\330\245%\202n\326T!\262\332\211\211@\262\211A@\262\3158\262\322S_\\\315V\203\211\323\324_\\\325\245Z\262\211\317W\203\346\326!S\262\211\324\246\317U\205\374\211\327\246\317U?\206\374\211\330\246\317U\262\203\211T\262\266\204\331_\324\245\327\245[\330\245\333\211\211@\262\211A@\262\3158\262\322S_\\\315V\203j\211\323\324_\\\325\245Z\262\211\317W\203K\326!S\262\211\324\246\317U\205a\211\327\246\317U?\206a\211\330\246\317U\262\203j\211T\262\266\204&\266\203!\376Z\211_\377\245\201@ Z\302\201A \201B \201C $\207" [1988 2020 / + -2000 67.0 60.0 60.0 24.0 1900 calendar-astro-from-absolute 7 1 2 nil 0 user-error "There was no year zero" 31 23 4 10 abs 100 400 365 - (12 31 -1) (1 1 1900) 36525.0 -2e-05 0.000297 0.025184 -0.181133 0.55304 -0.861938 * 0.677066 -0.212591 1800 (1 1 1900) 36525.0 -9e-06 0.003844 0.083563 0.865736 4.867575 15.845535 31.332267 38.291999 28.316289 11.636204 2.043794 1620 1600 10.0 2.19167 -40.675 196.58333 60.0 60.0 24.0 2382148 41048480.0 15 60.0 60.0 24.0] 21 (#$ . 10255)])
#@457 Ephemeris Time at moment TIME.
TIME is a pair with the first component being the number of Julian centuries
elapsed at 0 Universal Time, and the second component counting Universal Time
hours. For instance, the pair corresponding to November 28, 1995 at 16 UT is
(-0.040945 16), -0.040945 being the number of Julian centuries elapsed between
Jan 1, 2000 at 12 UT and November 28, 1995 at 0 UT.
Result is in Julian centuries of ephemeris time.
(fn TIME)
(defalias 'solar-ephemeris-time #[257 "\211@A@\300\245\301\245\\\302\303_\\\304\305\306!!_\304\245\301\245\\\207" [24.0 36525 2000 100 86400 solar-ephemeris-correction floor] 9 (#$ . 15816)])
#@522 Right ascension (in hours) and declination (in degrees) of the sun at TIME.
TIME is a pair with the first component being the number of
Julian centuries elapsed at 0 Universal Time, and the second
component counting Universal Time hours. For instance, the pair
corresponding to November 28, 1995 at 16 UT is (-0.040945 16),
-0.040945 being the number of Julian centuries elapsed between
Jan 1, 2000 at 12 UT and November 28, 1995 at 0 UT. SUNRISE-FLAG is passed
to `solar-ecliptic-coordinates'.
(fn TIME SUNRISE-FLAG)
(defalias 'solar-equatorial-coordinates #[514 "\300\301!\"\302@A@\"\303@A@\"D\207" [solar-ecliptic-coordinates solar-ephemeris-time solar-right-ascension solar-declination] 7 (#$ . 16478)])
#@593 Azimuth and height of the sun at TIME, LATITUDE, and LONGITUDE.
TIME is a pair with the first component being the number of
Julian centuries elapsed at 0 Universal Time, and the second
component counting Universal Time hours. For instance, the pair
corresponding to November 28, 1995 at 16 UT is (-0.040945 16),
-0.040945 being the number of Julian centuries elapsed between
Jan 1, 2000 at 12 UT and November 28, 1995 at 0 UT. SUNRISE-FLAG
is passed to `solar-ecliptic-coordinates'. Azimuth and
height (between -180 and 180) are both in degrees.
(fn TIME LATITUDE LONGITUDE SUNRISE-FLAG)
(defalias 'solar-horizontal-coordinates #[1028 "A@\301\"\302_\\\303\304_\304@_\305_#A@\306\307!\310\n!_\311!\307 !_Z\310!\"\312\310\n!\310!_\313\307\f!\307!\307!#\\!\211\314V\203V \211\315Z\262D\207" [solar-sidereal-time-greenwich-midnight solar-equatorial-coordinates 1.00273790935 - 15 -1 solar-atn2 solar-cosine-degrees solar-sin-degrees solar-tangent-degrees solar-arcsin * 180 360] 17 (#$ . 17202)])
#@765 Sunrise/sunset at location.
Sunrise if DIRECTION =-1 or sunset if =1 at LATITUDE, LONGITUDE, with midday
being TIME.
TIME is a pair with the first component being the number of Julian centuries
elapsed at 0 Universal Time, and the second component counting Universal Time
hours. For instance, the pair corresponding to November 28, 1995 at 16 UT is
(-0.040945 16), -0.040945 being the number of Julian centuries elapsed between
Jan 1, 2000 at 12 UT and November 28, 1995 at 0 UT.
HEIGHT is the angle the center of the sun has over the horizon for the contact
we are trying to find. For sunrise and sunset, it is usually -0.61 degrees,
accounting for the edge of the sun being on the horizon.
Uses binary search.
(fn DIRECTION LATITUDE LONGITUDE TIME HEIGHT)
(defalias 'solar-moment #[1285 "A@\301\302_\\\303\304\305@\306D
\301$A@\306D\301$A@ W\203~ \211 V\203x \307Z!\310\245Y\203\201 \262\\\311\245\262\306D\301$A@\262 W\203k \262 V\2039 \262\2029 \312\262 \202\201 \312\262 \205\207 \207" [solar-error t 12.0 0.0 1.0 0 solar-horizontal-coordinates abs 60 2 nil] 20 (#$ . 18231)])
#@875 Sunrise, sunset and length of day.
Parameters are the midday TIME and the LATITUDE, LONGITUDE of the location.
TIME is a pair with the first component being the number of Julian centuries
elapsed at 0 Universal Time, and the second component counting Universal Time
hours. For instance, the pair corresponding to November 28, 1995 at 16 UT is
(-0.040945 16), -0.040945 being the number of Julian centuries elapsed between
Jan 1, 2000 at 12 UT and November 28, 1995 at 0 UT.
HEIGHT is the angle the center of the sun has over the horizon for the contact
we are trying to find. For sunrise and sunset, it is usually -0.61 degrees,
accounting for the edge of the sun being on the horizon.
Coordinates are included because this function is called with latitude=1
degrees to find out if polar regions have 24 hours of sun or only night.
(fn TIME LATITUDE LONGITUDE HEIGHT)
(defalias 'solar-sunrise-and-sunset #[1028 "\302\303%\302\304%\305\203 \204: \306V\203$ \204. \306W\2034 \2044 \307\262\202? \306\262\202? Z\262\205H \310\245\\\205Q \311\245\\E\207" [solar-northern-spring-or-summer-season calendar-time-zone solar-moment -1 1 nil 0 24 60.0 60.0] 11 (#$ . 19379)])
#@131 Printable form for decimal fraction TIME in TIME-ZONE.
Format used is given by `calendar-time-display-form'.
(fn TIME TIME-ZONE)
(defalias 'solar-time-string #[514 "\306\307_!\211\307\245\310\311\307\246\"\310\312\313\\\314\246T\"\211\314Y\203% \315\202& \316\310\311\" \317\320
\321#-\207" [time-zone minutes 12-hours am-pm 24-hours calendar-time-display-form round 60 format "%02d" "%d" 11 12 "pm" "am" mapconcat eval ""] 8 (#$ . 20588)])
#@56 Printable form for TIME expressed in hours.
(fn TIME)
(defalias 'solar-daylight #[257 "\300\301\302!\302\303\302!Z_!#\207" [format "%d:%02d" floor 60] 9 (#$ . 21045)])
#@88 Number of Julian centuries since 1 Jan, 2000 at noon UT for Gregorian DATE.
(fn DATE)
(defalias 'solar-julian-ut-centuries #[257 "\211\211\3008\262\301\302U\203 \303\304!\202N\302V\203\210 S\262\305\211\211@\262\211A@\262\3008\262\306S_\\\300V\203u \211\307\310_\\\311\245Z\262\211\302W\203V \312!S\262\211\310\246\302U\205l \211\313\246\302U?\206l \211\314\246\302U\262\203u \211T\262\266\204\315_\310\245\313\245[\314\245%\202N\312T!\262\316\211\211@\262\211A@\262\3008\262\306S_\\\300V\203\345 \211\307\310_\\\311\245Z\262\211\302W\203\306 \312!S\262\211\310\246\302U\205\334 \211\313\246\302U?\206\334 \211\314\246\302U\262\203\345 \211T\262\266\204\315_\310\245\313\245[\314\245\317\211\211@\262\211A@\262\3008\262\306S_\\\300V\203J\211\307\310_\\\311\245Z\262\211\302W\203+\312!S\262\211\310\246\302U\205A\211\313\246\302U?\206A\211\314\246\302U\262\203J\211T\262\266\204&\266\203\320\211\3008\262\301\302U\203d\303\304!\202\236\302V\203\330S\262\305\211\211@\262\211A@\262\3008\262\306S_\\\300V\203\305\211\307\310_\\\311\245Z\262\211\302W\203\246\312!S\262\211\310\246\302U\205\274\211\313\246\302U?\206\274\211\314\246\302U\262\203\305\211T\262\266\204\315_\310\245\313\245[\314\245%\202\236\312T!\262\316\211\211@\262\211A@\262\3008\262\306S_\\\300V\2035\211\307\310_\\\311\245Z\262\211\302W\203\312!S\262\211\310\246\302U\205,\211\313\246\302U?\206,\211\314\246\302U\262\2035\211T\262\266\204\315_\310\245\313\245[\314\245\317\211\211@\262\211A@\262\3008\262\306S_\\\300V\203\232\211\307\310_\\\311\245Z\262\211\302W\203{\312!S\262\211\310\246\302U\205\221\211\313\246\302U?\206\221\211\314\246\302U\262\203\232\211T\262\266\204&\266\203Z\321\245\207" [2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) (1 1.5 2000) 36525.0] 20 (#$ . 21224)])
#@130 Ephemeris Time at Gregorian DATE at Universal Time UT (in hours).
Expressed in Julian centuries of Ephemeris Time.
(fn DATE UT)
(defalias 'solar-date-to-et #[514 "\300\301!D!\207" [solar-ephemeris-time solar-julian-ut-centuries] 5 (#$ . 23190)])
#@91 Equation of time expressed in hours at Gregorian DATE at Universal time UT.
(fn DATE UT)
(defalias 'solar-time-equation #[514 "\300\301\302\"\303\"8\207" [2 solar-ecliptic-coordinates solar-date-to-et nil] 7 (#$ . 23445)])
#@211 Date and Universal Time of local noon at *local date* DATE.
The date may be different from the one asked for, but it will be the right
local date. The second component of date should be an integer.
(fn DATE)
(defalias 'solar-exact-local-noon #[257 "\211\301\247\203 \202$ \302H\303H\304\245\\\305H\306=\203 \211\202\" \211[\262\307\245Z\310\"Z\262\311Y\203H @A@T\3058E\262\311Z\262\302W\203` @A@S\3058E\262\311\\\262\312\211\3058\262\313\302U\203u \314\315!\202\257\302V\203\351 S\262\316\211\211@\262\211A@\262\3058\262\317S_\\\305V\203\326 \211\320\321_\\\322\245Z\262\211\302W\203\267 \323!S\262\211\321\246\302U\205\315 \211\324\246\302U?\206\315 \211\325\246\302U\262\203\326 \211T\262\266\204\326_\321\245\324\245[\325\245%\202\257\323T!\262\327\211\211@\262\211A@\262\3058\262\317S_\\\305V\203F\211\320\321_\\\322\245Z\262\211\302W\203'\323!S\262\211\321\246\302U\205=\211\324\246\302U?\206=\211\325\246\302U\262\203F\211T\262\266\204\326_\321\245\324\245[\325\245\330\211\211@\262\211A@\262\3058\262\317S_\\\305V\203\253\211\320\321_\\\322\245Z\262\211\302W\203\214\323!S\262\211\321\246\302U\205\242\211\324\246\302U?\206\242\211\325\246\302U\262\203\253\211T\262\266\204&\266\203!\262D\207" [calendar-longitude 12.0 0 1 60.0 2 east 15 solar-time-equation 24 calendar-gregorian-from-absolute nil user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 23 (#$ . 23678)])
#@106 Sidereal time (in hours) in Greenwich at T0 Julian centuries.
T0 must correspond to 0 hours UT.
(fn T0)
(defalias 'solar-sidereal-time #[257 "\300\301\302_\303\304\211#\303\305\211\211$$\306\307D!\310\311\"\3128A@\313\211\314!_\315\245\316\245\\\317\"\320\\\321\"\207" [+ 6.6973746 2400.051337 * 2.58622e-05 -1.7222e-09 solar-ephemeris-time 0.0 solar-ecliptic-coordinates nil 3 mod solar-cosine-degrees 15 3600 24.0 24.0 24.0] 12 (#$ . 25204)])
#@144 List of *local* times of sunrise, sunset, and daylight on Gregorian DATE.
Corresponding value is nil if there is no sunrise/sunset.
(fn DATE)
(defalias 'solar-sunrise-sunset #[257 "\304!\305@!\306!\307A@D\310 \247\203 \2024 \311H \312H\313\245\\ \314H\315=\2030 \211\2022 \211[\262\311$\3148\316V\307A@D \247\203K \202d \311H \312H\317\245\\ \314H\320=\203` \211\202b \211[\262 \247\203m \202\206 \311H \312H\313\245\\ \314H\315=\203\202 \211\202\204 \211[\262\321$\211@\211\205\223 \322\"A@\211\205\237 \322\"\3148\205\261 \323\n@\"\205\261 A\205\300 \323 @\"\205\300 A\324!E\207" [solar-sidereal-time-greenwich-midnight calendar-longitude solar-northern-spring-or-summer-season calendar-latitude solar-exact-local-noon solar-julian-ut-centuries solar-sidereal-time solar-sunrise-and-sunset 1.0 0 1 60.0 2 east 12 60.0 north -0.61 dst-adjust-time calendar-date-equal solar-daylight] 14 (#$ . 25669)])
#@170 String of *local* times of sunrise, sunset, and daylight on Gregorian DATE.
Optional NOLOCATION non-nil means do not print the location.
(fn DATE &optional NOLOCATION)
(defalias 'solar-sunrise-sunset-string #[513 "\301!\302\303@\203 \304\305\306@\"P\202 \307A@\203' \310\305\306A@\"P\202( \311\2030 \312\2026 \302\313\314!\"\3158%\207" [calendar-location-name solar-sunrise-sunset format "%s, %s%s (%s hrs daylight)" "Sunrise " apply solar-time-string "No sunrise" "sunset " "no sunset" "" " at %s" eval 2] 11 (#$ . 26616)])
#@47 Data used for calculation of solar longitude.
(defconst solar-data-list '((403406 4.721964 1.621043) (195207 5.937458 62830.348067) (119433 1.115589 62830.821524) (112392 5.781616 62829.634302) (3891 5.5474 125660.5691) (2819 1.512 125660.984) (1721 4.1897 62832.4766) (0 1.163 0.813) (660 5.415 125659.31) (350 4.315 57533.85) (334 4.553 -33.931) (314 5.198 777137.715) (268 5.989 78604.191) (242 2.911 5.412) (234 1.423 39302.098) (158 0.061 -34.861) (132 2.317 115067.698) (129 3.193 15774.337) (114 2.828 5296.67) (99 0.52 58849.27) (93 4.65 5296.11) (86 4.35 -3980.7) (78 2.75 52237.69) (72 4.5 55076.47) (68 3.23 261.08) (64 1.22 15773.85) (46 0.14 188491.03) (38 3.44 -7756.55) (37 4.37 264.89) (32 1.14 117906.27) (29 2.84 55075.75) (28 5.96 -7961.39) (27 5.09 188489.81) (27 1.72 2132.19) (25 2.56 109771.03) (24 1.92 54868.56) (21 0.09 25443.93) (21 5.98 -55731.43) (20 4.03 60697.74) (18 4.47 2132.79) (17 0.79 109771.63) (14 4.24 -7752.82) (13 2.01 188491.91) (13 2.65 207.81) (13 4.98 29424.63) (12 0.93 -7.99) (10 2.21 46941.14) (10 3.59 -68.29) (10 1.5 21463.25) (10 2.55 157208.4)) (#$ . 27160))
#@398 Longitude of sun on astronomical (Julian) day number D.
Accuracy is about 0.0006 degree (about 365.25*24*60*0.0006/360 = 1 minutes).
The values of `calendar-daylight-savings-starts',
`calendar-daylight-savings-starts-time', `calendar-daylight-savings-ends',
`calendar-daylight-savings-ends-time', `calendar-daylight-time-offset', and
`calendar-time-zone' are used to interpret local time.
(fn D)
(defalias 'solar-longitude #[257 "\304!\305\306\307!\203 \310\311\312#\202 \313\310 \314\315##!\211\316\317\320\304!!!\3218\262!\\\211\322Z\323\245\324\325\326_\327\330\324\331\332\333\334\335\336\f!\337\"\340\341%\n\"\"_#\342\343\344\345\346_\\!_\347Z_\350\351\352\353_\\_\\\321 _\"\350\354\355\356_\\_\\\321 _\"\357\360\361!_\362\361!_\\_\350\363\324#_\364\"\207" [calendar-daylight-time-offset calendar-time-zone solar-data-list float-pi calendar-astro-to-absolute calendar-astro-from-absolute - dst-in-effect / 24.0 60.0 0 60.0 24.0 solar-ephemeris-correction calendar-gregorian-from-absolute floor 2 2451545 3652500 + 4.9353929 62833.196168 1e-07 apply mapcar make-byte-code 257 "\211@\302\303A@\3048\300_\\\304 _\"!_\207" vconcat vector [float-pi sin mod 2] 7 "\n\n(fn X)" 1e-07 17 cos 3.1 62830.14 973 mod 2.18 -3375.7 0.36 3.51 125666.39 0.1 -1e-07 834 sin 64 57.29577951308232 360.0] 18 (#$ . 28279)])
#@555 First time after day D when solar longitude is a multiple of L degrees.
D is a Julian day number. L must be an integer divisor of 360.
The result is for `calendar-location-name', and is in local time
(including any daylight saving rules) expressed in astronomical (Julian)
day numbers. The values of `calendar-daylight-savings-starts',
`calendar-daylight-savings-starts-time', `calendar-daylight-savings-ends',
`calendar-daylight-savings-ends-time', `calendar-daylight-time-offset',
and `calendar-time-zone' are used to interpret local time.
(fn D L)
(defalias 'solar-date-next-longitude #[514 "\300\301\302!\245!T_\303\"\304\245\305_\\\306\307ZW\203P \\\310\245\262\302!\262\311U\2048 \211W\204D \311U\203J W\203J \262\202 \262\202 \\\312\245\207" [mod floor solar-longitude 360 360.0 400 nil 1e-05 2.0 0 2.0] 9 (#$ . 29622)])
#@350 Local time of sunrise and sunset for today. Accurate to a few seconds.
If called with an optional prefix argument ARG, prompt for date.
If called with an optional double prefix argument, prompt for
longitude, latitude, time zone, and date, and always use standard time.
This function is suitable for execution in an init file.
(fn &optional ARG)
(defalias 'sunrise-sunset #[256 "\211\204 \306\262\211\307W\203 \203 \203 \n\204 \310 \210\211\307W\203& \202) \311\312!\211\307W\2034 \2027 \311\313!\211\307W\203B \n\202E \311\314!\211\307W\203P \202\276 \315 \316\317\247\203_ \320!\202h \321H\306H\322\245\\\247\203{ \321V\203w \323\202\210 \324\202\210 \325H\326=\203\207 \323\202\210 \324 \247\203\223 \320 !\202\234 \321H \306H\327\245\\ \247\203\257 \321V\203\253 \330\202\274 \331\202\274 \325H\332=\203\273 \330\202\274 \331%)\211\307W\203\311
\202\344 \n\321U\203\323 \333\202\344 \n\321W\203\340 \316\334\n\"\202\344 \316\335\n\" \211\307W\205\355 ) )\211\307W\205\367 * *\211\336W\203\337 \202\340 \341\342\"\343!\316\344\336W\203\345\202 \316\346\"#\347\350\"\210.\207" [calendar-latitude calendar-longitude calendar-time-zone calendar-location-name float-output-format calendar-standard-time-zone-name 1 16 solar-setup solar-get-number "Enter longitude (decimal fraction; + east, - west): " "Enter latitude (decimal fraction; + north, - south): " "Enter difference from Coordinated Universal Time (in minutes): " "%.1f" format "%s%s, %s%s" abs 0 60.0 "N" "S" 2 north 60.0 "E" "W" east "UTC" "UTC%dmin" "UTC+%dmin" 4 calendar-current-date calendar-read-date calendar-date-string t solar-sunrise-sunset-string "%s%s" "" "%s: " message "%s" calendar-daylight-savings-starts calendar-daylight-savings-ends] 9 (#$ . 30488) "p"])
#@106 Local time of sunrise and sunset for date under cursor.
Accurate to a few seconds.
(fn &optional EVENT)
(defalias 'calendar-sunrise-sunset #[256 "\203\f \203\f \n\204 \303 \210\304\305\"\306\307\310\305\211#\311!#\207" [calendar-latitude calendar-longitude calendar-time-zone solar-setup calendar-cursor-to-date t message "%s: %s" calendar-date-string solar-sunrise-sunset-string] 8 (#$ . 32274) (list last-nonmenu-event)])
#@92 Local time of sunrise and sunset for month under cursor or at EVENT.
(fn &optional EVENT)
(defalias 'calendar-sunrise-sunset-month #[256 "\203\f \203\f \n\204 \306 \210\307\310\"\211@\3118\311U\203N \211\211\312W\203- \313!S\262\211\314\246\312U\205C \211\315\246\312U?\206C \211\316\246\312U\262\203N \317\266\202\202T \320SH\266\202\321\322\323!\324 !$\325\f!q\210\326\327!\204l \327 \210\330\310!\331 \210\332\f!\210\333!\210\211\334\261\210\312\211W\203\256 \211TE\262\321\335\323 \310\"T#\336 \310\"\337\261\266\211T\262\202\203 \266eb\210\340\330!\210\310\211\207" [calendar-latitude calendar-longitude calendar-time-zone calendar-location-name solar-sunrises-buffer buffer-read-only solar-setup calendar-cursor-to-date t 2 0 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] format "Sunrise/sunset times for %s %d at %s" calendar-month-name eval get-buffer-create derived-mode-p special-mode nil erase-buffer display-buffer calendar-set-mode-line ":\n\n" "%s %2d: " solar-sunrise-sunset-string "\n" set-buffer-modified-p buffer-undo-list] 14 (#$ . 32711) (list last-nonmenu-event)])
#@79 Local time of sunrise and sunset as a diary entry.
Accurate to a few seconds.
(defalias 'diary-sunrise-sunset #[0 "\203\f \203\f \n\204 \304 \210\305 !\207" [calendar-latitude calendar-longitude calendar-time-zone date solar-setup solar-sunrise-sunset-string] 2 (#$ . 33847)])
#@47 Data for solar equinox/solstice calculations.
(defconst solar-seasons-data '((485 324.96 1934.136) (203 337.23 32964.467) (199 342.08 20.186) (182 27.85 445267.112) (156 73.14 45036.886) (136 171.52 22518.443) (77 222.54 65928.934) (74 296.72 3034.906) (70 243.58 9037.513) (58 119.81 33718.147) (52 297.17 150.678) (50 21.02 2281.226) (45 247.54 29929.562) (44 325.15 31555.956) (29 60.93 4443.417) (18 155.12 67555.328) (17 288.79 4562.452) (16 198.04 62894.029) (14 199.76 31436.921) (12 95.39 14577.848) (12 287.11 31931.756) (12 320.81 34777.259) (9 227.73 1222.114) (8 15.45 16859.074)) (#$ . 34133))
#@221 Date of equinox/solstice K for YEAR.
K=0, spring equinox; K=1, summer solstice; K=2, fall equinox;
K=3, winter solstice. RESULT is a Gregorian local date.
Accurate to within a minute between 1951 and 2050.
(fn K YEAR)
(defalias 'solar-equinoxes/solstices #[514 "\302\"\211\303Z\304\245\305_\306Z\307\310\311\312!_\313\312\314_!_#\315\307\316\317\320\321\322\323\n!\324\"\325\326%\"\"\327_\245\\\307\330\331_\332\333 \211##\334\245Z\335\336\337Z!!\340Z\336\341Z!Z@\307A@ \342\245\343\245#\3148E\207" [solar-seasons-data calendar-time-zone solar-mean-equinoxes/solstices 2451545.0 36525 35999.373 2.47 + 1 0.0334 solar-cosine-degrees 0.0007 2 apply mapcar make-byte-code 257 "\211@\301\3028\300_A@\\!_\207" vconcat vector [solar-cosine-degrees 2] 5 "\n\n(fn X)" 1e-05 102.3 123.5 * 32.5 86400 calendar-gregorian-from-absolute floor 1721424.5 0.5 0.5 60.0 24.0] 18 (#$ . 34747)])
#@211 Julian day of mean equinox/solstice K for YEAR.
K=0, spring equinox; K=1, summer solstice; K=2, fall equinox; K=3, winter
solstice. These formulas are only to be used between 1000 BC and 3000 AD.
(fn K YEAR)
(defalias 'solar-mean-equinoxes/solstices #[514 "\211\300\245\301Z\302\245\303W\203\236 \304U\2032 \305\306\307_\310\311\211#\310\312\211\211$\310\313\211\211\211%%\202'\314U\203V \305\315\316_\310\317\211#\310\320\211\211$\310\321\211\211\211%%\202'\322U\203z \305\323\324_\310\325\211#\310\326\211\211$\310\327\211\211\211%%\202'\330U\205'\305\331\332_\310\333\211#\310\334\211\211$\310\335\211\211\211%%\202'\304U\203\301 \305\336\337_\310\340\211#\310\341\211\211$\310\342\211\211\211%%\202'\314U\203\344 \305\343\344_\310\345\211#\310\346\211\211$\310\347\211\211\211%%\202'\322U\203\305\350\351_\310\352\211#\310\353\211\211$\310\354\211\211\211%%\202'\330U\205'\305\355\356_\310\357\211#\310\360\211\211$\310\361\211\211\211%%\207" [1000.0 2000 1000.0 1000 0 + 1721139.29189 365242.1374 * 0.06134 0.00111 -0.00071 1 1721233.25401 365241.72562 -0.05323 0.00907 0.00025 2 1721325.70455 365242.49558 -0.11677 -0.00297 0.00074 3 1721414.39987 365242.88257 -0.00769 -0.00933 -6e-05 2451623.80984 365242.37404 0.05169 -0.00411 -0.00057 2451716.56767 365241.62603 0.00325 0.00888 -0.0003 2451810.21715 365242.01767 -0.11575 0.00337 0.00078 2451900.05952 365242.74049 -0.06223 -0.00823 0.00032] 15 (#$ . 35658)])
#@102 Local date and time of equinoxes and solstices, if visible in the calendar.
Requires floating point.
(defalias 'solar-equinoxes-solstices #[0 " \n\203\n \202 \306\n\205 \f \n\205
\n\203 \n\202! \307\310\311\307W\203. T\262\312_\313\314\246\315U\203A \313\202O \314\246\316U\203N \315\202O \307$\262\317\"T\262\211\245\262\211\307W\203n \315V\203n S\262\315W\203x S\262\266\314\245S\320\"\211@\321A@!\3168E\322A@\321A@!Z_\323\"\211@@@A@A@\324\245\\@AA@E\211\211\3168\262\311\307U\203\303 \325\326!\202\375\307V\2037S\262\312\211\211@\262\211A@\262\3168\262\327S_\\\316V\203$\211\330\331_\\\332\245Z\262\211\307W\203\333!S\262\211\331\246\307U\205\211\334\246\307U?\206\211\335\246\307U\262\203$\211T\262\266\204\336_\331\245\334\245[\335\245%\202\375\333T!\262\337\211\211@\262\211A@\262\3168\262\327S_\\\316V\203\224\211\330\331_\\\332\245Z\262\211\307W\203u\333!S\262\211\331\246\307U\205\213\211\334\246\307U?\206\213\211\335\246\307U\262\203\224\211T\262\266\204\336_\331\245\334\245[\335\245\340\211\211@\262\211A@\262\3168\262\327S_\\\316V\203\371\211\330\331_\\\332\245Z\262\211\307W\203\332\333!S\262\211\331\246\307U\205\360\211\334\246\307U?\206\360\211\335\246\307U\262\203\371\211T\262\266\204&\266\203\341\321!!\342\343 (\203>(\247\203(\2024(\307H(\315H\344\245\\(\316H\345=\2030\211\2022\211[\262\307W\203>)\202@*8\346\322\321!Z_\347!\203W+\202X \"#,DC\207" [displayed-month displayed-year calendar-time-zone calendar-standard-time-zone-name calendar-daylight-savings-starts calendar-daylight-savings-ends "UTC" 0 12 nil + -1 3 1 2 mod solar-equinoxes/solstices floor 24 dst-adjust-time 24.0 user-error "There was no year zero" 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-gregorian-from-absolute format "%s %s" 60.0 north solar-time-string dst-in-effect calendar-latitude solar-s-hemi-seasons solar-n-hemi-seasons calendar-daylight-time-zone-name] 26 (#$ . 37160)])
(provide 'solar)
Mini Shell