[Top][All Lists]

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

[Axiom-developer] cot and asec

From: Juergen Weiss
Subject: [Axiom-developer] cot and asec
Date: 29 Oct 2003 14:35:25 +0100
User-agent: Gnus/5.0808 (Gnus v5.8.8) Emacs/20.7

Here the lisp version of the C versions in csl
One problem: the formula may work for real arguments

;; stolen from csl
#+(or :cmu :akcl)
(defun cot (a)
  (if (or (> a 1000.0) (< a -1000.0))
      (/ (cos a) (sin a))
    (/ 1.0 (tan a))))

;; stolen from csl
#+(or :cmu :akcl)
(defun asec (a)
  (if (and (a > -1.0) (a < 1.0))
    (acos (/ 1.0 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]