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
;; Liam Healy
;; Time-stamp: <2009-01-14 22:12:10EST gsll.asd>
;; Time-stamp: <2009-01-15 14:12:18EST gsll.asd>
;; $Id$
(asdf:defsystem "gsll"
......@@ -32,8 +32,11 @@
:components
((:file "ieee-modes")
(:file "floating-point")))
(:file "mathematical" :depends-on (init))
;; complex numbers not necessary? Just make a struct.
(:module mathematical
:depends-on (init)
:components
((:file "mathematical")
(:file "complex")))
(:module data
:depends-on (init)
:components
......
;; Functions of complex numbers
;; 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: $
(in-package :gsl)
......@@ -22,17 +22,17 @@
:c-return :double
:documentation "The magnitude, or modulus of the complex number.")
(defmfun abs2 (number)
(defmfun modulus2 (number)
"gsl_complex_abs2"
((number complex-double-c))
:c-return :double
:documentation "The magnitude squared of the complex number.")
(defmfun logabs2 (number)
"gsl_complex_logabs2"
(defmfun log-modulus (number)
"gsl_complex_logabs"
((number complex-double-c))
:c-return :double
:documentation "The magnitude squared of the complex number.")
:documentation "The logarithm of the magnitude of the complex number.")
;;;;****************************************************************************
;;; 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