diff options
| author | Richard M. Stallman | 2002-12-05 15:30:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-12-05 15:30:52 +0000 |
| commit | bd0f7fd3df899c562a8ec0495932ba1b01c65999 (patch) | |
| tree | 1fbcb1f966d6c3154cab5493e0e2666213a25a51 /lisp | |
| parent | d262de61ffa7d961ab5431ddbc06047a97bad810 (diff) | |
| download | emacs-bd0f7fd3df899c562a8ec0495932ba1b01c65999.tar.gz emacs-bd0f7fd3df899c562a8ec0495932ba1b01c65999.zip | |
(solar-atn2): Give correct quadrant for arctan.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calendar/solar.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el index 889129858d9..10c385ac4a2 100644 --- a/lisp/calendar/solar.el +++ b/lisp/calendar/solar.el | |||
| @@ -262,7 +262,7 @@ Returns nil if nothing was entered." | |||
| 262 | "Arctan of point X, Y." | 262 | "Arctan of point X, Y." |
| 263 | (if (= x 0) | 263 | (if (= x 0) |
| 264 | (if (> y 0) 90 270) | 264 | (if (> y 0) 90 270) |
| 265 | (solar-arctan (/ y x) x))) | 265 | (solar-arctan (/ y x) (solar-xy-to-quadrant x y)))) |
| 266 | 266 | ||
| 267 | (defun solar-arccos (x) | 267 | (defun solar-arccos (x) |
| 268 | "Arcos of X." | 268 | "Arcos of X." |