Commit b30455c2 authored by liam's avatar liam

Minor changes; to do.

git-svn-id: svn+ssh://pop/opt/space/mathematics/gsl/trunk@2981 a3d8a0fb-c1db-0310-ace7-a616afeb9e30
parent 461e169c
......@@ -17,3 +17,7 @@ is that the GSL library must be loaded and accessible.
access to the functions. Defining the functions you need yourself is
very easy.
======================
Needs work
bessel-sequence-Jnu in bessel.lisp.
Why do sequence-returns crash on declination?
......@@ -3,13 +3,12 @@
; description: Mathematical functions
; date: Wed Mar 8 2006 - 22:09
; author: Liam M. Healy
; modified: Thu Mar 9 2006 - 23:10
; modified: Sat Mar 18 2006 - 15:13
;********************************************************
(in-package :gsl)
(eval-when (:compile-toplevel :load-toplevel :execute)
(export '(nanp infinityp finitep log+1 exp-1 hypotenuse approximately=)))
(export '(nanp infinityp finitep log+1 exp-1 hypotenuse approximately=))
;;;;****************************************************************************
;;; Infinities and Not-a-number
......
......@@ -3,20 +3,16 @@
; description: Airy functions
; date: Fri Mar 17 2006 - 18:41
; author: Liam M. Healy
; modified: Sat Mar 18 2006 - 00:21
; modified: Sat Mar 18 2006 - 15:21
;********************************************************
(in-package :gsl)
(eval-when (:compile-toplevel :load-toplevel :execute)
(export
'()))
;;;;****************************************************************************
;;;; Airy functions
;;;;****************************************************************************
(defun-sf airy-ai ((x :double))
(defun-sf airy-Ai ((x :double))
"gsl_sf_airy_Ai_e"
:return (sf-result)
:documentation "The Airy function Ai(x)."
......@@ -26,70 +22,69 @@
;;; 0.24308135437540998d0
;;; 6.288670879282072d-17
(defun-sf airy-bi ((x :double))
(defun-sf airy-Bi ((x :double))
"gsl_sf_airy_Bi_e"
:return (sf-result)
:documentation "The Airy function Bi(x)."
:mode t)
(defun-sf airy-ai-scaled ((x :double))
(defun-sf airy-Ai-scaled ((x :double))
"gsl_sf_airy_Ai_scaled_e"
:return (sf-result)
:documentation "The scaled Airy function @math{S_A(x) Ai(x)}. For @math{x>0} the scaling factor @math{S_A(x)} is @c{$\exp(+(2/3) x^{3/2})$} @math{\exp(+(2/3) x^(3/2))}, and is 1 for @math{x<0}."
:mode t)
(defun-sf airy-bi-scaled ((x :double))
(defun-sf airy-Bi-scaled ((x :double))
"gsl_sf_airy_Bi_scaled_e"
:return (sf-result)
:documentation "The scaled Airy function @math{S_B(x) Bi(x)}. For @math{x>0} the scaling factor @math{S_B(x)} is @c{$\exp(-(2/3) x^{3/2})$} @math{exp(-(2/3) x^(3/2))}, and is 1 for @math{x<0}."
:mode t)
(defun-sf airy-ai-deriv ((x :double))
(defun-sf airy-Ai-deriv ((x :double))
"gsl_sf_airy_Ai_deriv_e"
:return (sf-result)
:documentation "The Airy function derivative Ai'(x)."
:mode t)
(defun-sf airy-bi-deriv ((x :double))
(defun-sf airy-Bi-deriv ((x :double))
"gsl_sf_airy_Bi_deriv_e"
:return (sf-result)
:documentation "The Airy function derivative Bi'(x)."
:mode t)
(defun-sf airy-ai-deriv-scaled ((x :double))
(defun-sf airy-Ai-deriv-scaled ((x :double))
"gsl_sf_airy_Ai_deriv_scaled_e"
:return (sf-result)
:documentation "The scaled Airy function derivative S_A(x) Ai'(x). For @math{x>0} the scaling factor @math{S_A(x)} is @c{$\exp(+(2/3) x^{3/2})$} @math{\exp(+(2/3) x^(3/2))}, and is 1 for @math{x<0}."
:mode t)
(defun-sf airy-bi-deriv-scaled ((x :double))
(defun-sf airy-Bi-deriv-scaled ((x :double))
"gsl_sf_airy_Bi_deriv_scaled_e"
:return (sf-result)
:documentation "The scaled Airy function derivative S_B(x) Bi'(x). For @math{x>0} the scaling factor @math{S_B(x)} is @c{$\exp(-(2/3) x^{3/2})$} @math{exp(-(2/3) x^(3/2))}, and is 1 for @math{x<0}."
:mode t)
(defun-sf airy-zero-ai ((s :unsigned-int))
(defun-sf airy-zero-Ai ((s :unsigned-int))
"gsl_sf_airy_zero_Ai_e"
:return (sf-result)
:documentation "The location of the @var{s}-th zero of the Airy function @math{Ai(x)}."
:mode t)
(defun-sf airy-zero-bi ((s :unsigned-int))
(defun-sf airy-zero-Bi ((s :unsigned-int))
"gsl_sf_airy_zero_Bi_e"
:return (sf-result)
:documentation "The location of the @var{s}-th zero of the Airy function @math{Bi(x)}."
:mode t)
(defun-sf airy-zero-ai-deriv ((s :unsigned-int))
(defun-sf airy-zero-Ai-deriv ((s :unsigned-int))
"gsl_sf_airy_zero_Ai_deriv_e"
:return (sf-result)
:documentation "The location of the @var{s}-th zero of the Airy
function derivative @math{Ai'(x)}."
:mode t)
(defun-sf airy-zero-bi-deriv ((s :unsigned-int))
(defun-sf airy-zero-Bi-deriv ((s :unsigned-int))
"gsl_sf_airy_zero_Bi_deriv_e"
:return (sf-result)
:documentation "The location of the @var{s}-th zero of the Airy function derivative @math{Bi'(x)}."
:mode t)
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