axiom-developer
[Top][All Lists]
Advanced
[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
reply via email to
[Prev in Thread] Current Thread [Next in Thread]