[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Axiom-developer] acot function
From: |
Juergen Weiss |
Subject: |
[Axiom-developer] acot function |
Date: |
28 Oct 2003 23:45:31 +0100 |
User-agent: |
Gnus/5.0808 (Gnus v5.8.8) Emacs/20.7 |
The missing arcus cotangens function
;; stolen from csl
#+(or :cmu :akcl)
(defun acot (a)
(if (>= a 0.0)
(if (> a 1.0)
(atan (/ 1.0 a))
(- (/ pi 2.0) (atan a)))
(if (< a -1.0)
(- pi (atan (/ -1.0 a)))
(+ (/ pi 2.0) (atan (- a))))))
--
Juergen Weiss | Universitaet Mainz, Zentrum fuer Datenverarbeitung,
address@hidden| 55099 Mainz, Tel: +49(6131)39-26361, FAX: +49(6131)39-26407
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Axiom-developer] acot function,
Juergen Weiss <=