procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(solar-atn2): Give correct quadrant for arctan.

Browse source
This commit is contained in:
Richard M. Stallman 2002-12-05 15:30:52 +00:00
parent d262de61ff
commit bd0f7fd3df
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/calendar/solar.el
View file

@ -262,7 +262,7 @@ Returns nil if nothing was entered."
"Arctan of point X, Y."
(if (= x 0)
(if (> y 0) 90 270)
(solar-arctan (/ y x) x)))
(solar-arctan (/ y x) (solar-xy-to-quadrant x y))))
(defun solar-arccos (x)
"Arcos of X."