|
Revision 26, 1.1 kB
(checked in by lhealy, 9 months ago)
|
|
Subversion version stamp.
|
-
Property svn:keywords set to
Id
|
| Line | |
|---|
| 1 | ;; Synchrotron functions |
|---|
| 2 | ;; Liam Healy, Mon May 1 2006 - 22:29 |
|---|
| 3 | ;; Time-stamp: <2008-02-16 22:48:24EST synchrotron.lisp> |
|---|
| 4 | ;; $Id$ |
|---|
| 5 | |
|---|
| 6 | (in-package :gsl) |
|---|
| 7 | |
|---|
| 8 | (defmfun synchrotron-1 (x) |
|---|
| 9 | "gsl_sf_synchrotron_1_e" ((x :double) (ret sf-result)) |
|---|
| 10 | :documentation ; FDL |
|---|
| 11 | "The first synchrotron function x \int_x^\infty dt K_{5/3}(t)} for x >= 0.") |
|---|
| 12 | |
|---|
| 13 | (defmfun synchrotron-2 (x) |
|---|
| 14 | "gsl_sf_synchrotron_2_e" ((x :double) (ret sf-result)) |
|---|
| 15 | :documentation ; FDL |
|---|
| 16 | "The second synchrotron function x K_{2/3}(x)} for x >= 0.") |
|---|
| 17 | |
|---|
| 18 | ;;;;**************************************************************************** |
|---|
| 19 | ;;;; Examples and unit test |
|---|
| 20 | ;;;;**************************************************************************** |
|---|
| 21 | |
|---|
| 22 | #| |
|---|
| 23 | (make-tests synchrotron |
|---|
| 24 | (synchrotron-1 4.0d0) |
|---|
| 25 | (synchrotron-2 4.0d0)) |
|---|
| 26 | |# |
|---|
| 27 | |
|---|
| 28 | (LISP-UNIT:DEFINE-TEST SYNCHROTRON |
|---|
| 29 | (LISP-UNIT::ASSERT-NUMERICAL-EQUAL |
|---|
| 30 | (LIST 0.052827396697912476d0 4.825849878208132d-14) |
|---|
| 31 | (MULTIPLE-VALUE-LIST (SYNCHROTRON-1 4.0d0))) |
|---|
| 32 | (LISP-UNIT::ASSERT-NUMERICAL-EQUAL |
|---|
| 33 | (LIST 0.04692320582614684d0 6.854449168174663d-14) |
|---|
| 34 | (MULTIPLE-VALUE-LIST (SYNCHROTRON-2 4.0d0)))) |
|---|
