- Timestamp:
- 03/13/08 21:27:13 (8 months ago)
- Files:
-
- 1 modified
-
trunk/special-functions/elliptic-integrals.lisp (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/special-functions/elliptic-integrals.lisp
r26 r35 1 1 ;; Elliptic integrals 2 2 ;; Liam Healy, Mon Mar 20 2006 - 21:50 3 ;; Time-stamp: <2008-0 2-16 20:47:06EST elliptic-integrals.lisp>3 ;; Time-stamp: <2008-03-13 17:27:04EDT elliptic-integrals.lisp> 4 4 ;; $Id$ 5 5 … … 13 13 "gsl_sf_ellint_Kcomp_e" ((k :double) :mode (ret sf-result)) 14 14 :documentation ; FDL 15 "The complete elliptic integral K(k).") 15 "The complete elliptic integral of the first kind, K(k). Note that 16 Abramowitz & Stegun define this function in terms of the parameter m 17 = k^2.") 16 18 17 19 (defmfun elliptic-integral-E-complete (k) 18 20 "gsl_sf_ellint_Ecomp_e" ((k :double) :mode (ret sf-result)) 19 21 :documentation ; FDL 20 "The complete elliptic integral E(k).") 22 "The complete elliptic integral of the second kind, E(k). 23 Note that Abramowitz & Stegun define this function in terms of the 24 parameter m = k^2.") 21 25 22 26 ;;;;**************************************************************************** … … 27 31 "gsl_sf_ellint_F_e" ((phi :double) (k :double) :mode (ret sf-result)) 28 32 :documentation ; FDL 29 "The incomplete elliptic integral F(\phi,k).") 33 "The incomplete elliptic integral of the first kind, F(phi,k). Note 34 that Abramowitz & Stegun define this function in terms of the 35 parameter m = k^2.") 30 36 31 37 (defmfun elliptic-integral-E (phi k) 32 38 "gsl_sf_ellint_E_e" ((phi :double) (k :double) :mode (ret sf-result)) 33 39 :documentation ; FDL 34 "The incomplete elliptic integral E(\phi,k).") 40 "The incomplete elliptic integral of the second kind, E(phi,k). Note 41 that Abramowitz & Stegun define this function in terms of the 42 parameter m = k^2.") 35 43 36 44 (defmfun elliptic-integral-P (phi k n) … … 38 46 ((phi :double) (k :double) (n :double) :mode (ret sf-result)) 39 47 :documentation ; FDL 40 "The incomplete elliptic integral P(\phi,k,n).") 48 "The incomplete elliptic integral of the third kind, P(phi,k,n). 49 Note that Abramowitz & Stegun define this function in terms of the 50 parameters m = k^2 and sin^2(alpha) = k^2, with the change of sign 51 n to -n.") 41 52 42 53 (defmfun elliptic-integral-D (phi k n)
