|
Revision 26, 487 bytes
(checked in by lhealy, 9 months ago)
|
|
Subversion version stamp.
|
-
Property svn:keywords set to
Id
|
| Line | |
|---|
| 1 | ;; Clausen function |
|---|
| 2 | ;; Liam Healy, Sat Mar 18 2006 - 23:18 |
|---|
| 3 | ;; Time-stamp: <2008-02-16 19:20:29EST clausen.lisp> |
|---|
| 4 | ;; $Id$ |
|---|
| 5 | |
|---|
| 6 | (in-package :gsl) |
|---|
| 7 | |
|---|
| 8 | (defmfun clausen (x) |
|---|
| 9 | "gsl_sf_clausen_e" ((x :double) (ret sf-result)) |
|---|
| 10 | :documentation ; FDL |
|---|
| 11 | "The Clausen integral Cl_2(x).") |
|---|
| 12 | |
|---|
| 13 | #| |
|---|
| 14 | (make-tests clausen |
|---|
| 15 | (clausen 2.5d0)) |
|---|
| 16 | |# |
|---|
| 17 | |
|---|
| 18 | (LISP-UNIT:DEFINE-TEST CLAUSEN |
|---|
| 19 | (LISP-UNIT::ASSERT-NUMERICAL-EQUAL |
|---|
| 20 | (LIST 0.4335982032355329d0 1.2032502825912828d-15) |
|---|
| 21 | (MULTIPLE-VALUE-LIST (CLAUSEN 2.5d0)))) |
|---|
