[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Axiom-developer] manexp
|
From: |
Juergen Weiss |
|
Subject: |
[Axiom-developer] manexp |
|
Date: |
28 Oct 2003 21:56:35 +0100 |
|
User-agent: |
Gnus/5.0808 (Gnus v5.8.8) Emacs/20.7 |
seems that the following definition for
manexp gives resonable results on common lisp
#+(or :cmu :akcl)
(defun manexp (u)
(multiple-value-bind (f e s) (decode-float u)
(list (* s f) e)))
Juergen
--
Juergen Weiss | Universitaet Mainz, Zentrum fuer Datenverarbeitung,
address@hidden| 55099 Mainz, Tel: +49(6131)39-26361, FAX: +49(6131)39-26407
- [Axiom-developer] manexp,
Juergen Weiss <=