[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]



Extracted from the file MRG;TRIGI > :

(DEFUN ATAN2 (YY X)
  (LET ((Y (ATAN YY X))) (IF (MINUSP YY) (-$ Y 6.28318531) Y)))