Commit b484c1d1 authored by Liam Healy's avatar Liam Healy

Directory "mathematical"

New directory "mathematical" has complex.lisp and mathematical.lisp;
fix complex function log-modulus.
parent 4647599b
;; Definition of GSLL system ;; Definition of GSLL system
;; Liam Healy ;; Liam Healy
;; Time-stamp: <2009-01-14 22:12:10EST gsll.asd> ;; Time-stamp: <2009-01-15 14:12:18EST gsll.asd>
;; $Id$ ;; $Id$
(asdf:defsystem "gsll" (asdf:defsystem "gsll"
...@@ -32,8 +32,11 @@ ...@@ -32,8 +32,11 @@
:components :components
((:file "ieee-modes") ((:file "ieee-modes")
(:file "floating-point"))) (:file "floating-point")))
(:file "mathematical" :depends-on (init)) (:module mathematical
;; complex numbers not necessary? Just make a struct. :depends-on (init)
:components
((:file "mathematical")
(:file "complex")))
(:module data (:module data
:depends-on (init) :depends-on (init)
:components :components
......
;; Functions of complex numbers ;; Functions of complex numbers
;; Liam Healy 2009-01-13 21:19:38EST complex.lisp ;; Liam Healy 2009-01-13 21:19:38EST complex.lisp
;; Time-stamp: <2009-01-13 21:57:29EST complex.lisp> ;; Time-stamp: <2009-01-15 14:14:07EST complex.lisp>
;; $Id: $ ;; $Id: $
(in-package :gsl) (in-package :gsl)
...@@ -22,17 +22,17 @@ ...@@ -22,17 +22,17 @@
:c-return :double :c-return :double
:documentation "The magnitude, or modulus of the complex number.") :documentation "The magnitude, or modulus of the complex number.")
(defmfun abs2 (number) (defmfun modulus2 (number)
"gsl_complex_abs2" "gsl_complex_abs2"
((number complex-double-c)) ((number complex-double-c))
:c-return :double :c-return :double
:documentation "The magnitude squared of the complex number.") :documentation "The magnitude squared of the complex number.")
(defmfun logabs2 (number) (defmfun log-modulus (number)
"gsl_complex_logabs2" "gsl_complex_logabs"
((number complex-double-c)) ((number complex-double-c))
:c-return :double :c-return :double
:documentation "The magnitude squared of the complex number.") :documentation "The logarithm of the magnitude of the complex number.")
;;;;**************************************************************************** ;;;;****************************************************************************
;;; Complex arithmetic ;;; Complex arithmetic
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment