- cl-gsl-cvs@common-lisp.net - mailman3.common-lisp.net

[cl-gsl-cvs] CVS update: cl-gsl/ffi.lisp
by cl-gsl-cvs＠common-lisp.net 03 Apr '05

03 Apr '05

Update of /project/cl-gsl/cvsroot/cl-gsl In directory common-lisp.net:/tmp/cvs-serv29878 Modified Files: ffi.lisp Log Message: Added macros which allocate, bind, and free foreign structures. Date: Mon Apr 4 02:44:15 2005 Author: edenny Index: cl-gsl/ffi.lisp diff -u cl-gsl/ffi.lisp:1.3 cl-gsl/ffi.lisp:1.4 --- cl-gsl/ffi.lisp:1.3 Tue Mar 15 04:15:20 2005 +++ cl-gsl/ffi.lisp Mon Apr 4 02:44:15 2005 @@ -56,7 +56,8 @@ ;; ---------------------------------------------------------------------- -;; TODO: size_t may not always be unsigned long, could also be unsigned int. +;; TODO: size_t may not always be unsigned long, could also be unsigned int +;; on some systems? (define-foreign-type size-t :unsigned-long) (def-foreign-struct gsl-complex @@ -192,56 +193,76 @@ ;; typedef long double * gsl_complex_packed_array_long_double ; ;; typedef long double * gsl_complex_packed_long_double_ptr ; -;; typedef struct -;; { -;; long double dat[2]; -;; } -;; gsl_complex_long_double; - ;; ---------------------------------------------------------------------- (defun gsl-complex->complex (z-ptr) - ;; TODO: this seems to work with pointers and values -;; (declare (gsl-complex-def z)) + "Copies the value of the foreign object pointed to by Z-PTR to a lisp object +of type (complex (double-float)). Returns the lisp object." (let ((dat-array (uffi:get-slot-value z-ptr '(:array :double) 'cl-gsl::dat))) (complex (uffi:deref-array dat-array :double 0) (uffi:deref-array dat-array :double 1)))) (defun gsl-complex-float->complex (z-ptr) + "Copies the value of the foreign object pointed to by Z-PTR to a lisp object +of type (complex (single-float)). Returns the lisp object." (let ((dat-array (uffi:get-slot-value z-ptr '(:array :float) 'cl-gsl::dat))) (complex (uffi:deref-array dat-array :float 0) (uffi:deref-array dat-array :float 1)))) -;; FIXME: this returns a pointer to a gsl-complex. Is this correct? -;; How do we free it? -;; Replace with a with-complex->gsl-complex macro that cleans up after -;; itself -(defun complex->gsl-complex-ptr (z) - (let* ((z-ptr (uffi:allocate-foreign-object 'gsl-complex)) - (dat-array (uffi:get-slot-value z-ptr '(:array :double) 'cl-gsl::dat))) - (setf (uffi:deref-array dat-array :double 0) (realpart z)) - (setf (uffi:deref-array dat-array :double 1) (imagpart z)) - z-ptr)) - -;; FIXME: see above -(defun complex->gsl-complex-float-ptr (z) - (let* ((z-ptr (uffi:allocate-foreign-object 'gsl-complex-float)) - (dat-array (uffi:get-slot-value z-ptr '(:array :float) 'cl-gsl::dat))) - (setf (uffi:deref-array dat-array :float 0) (realpart z)) - (setf (uffi:deref-array dat-array :float 1) (imagpart z)) - z-ptr)) - - -;; TODO: generalize to all supported types? -(defun lisp-vec->c-array (v) - (declare (vector v)) - (let* ((len (length v)) - (c-ptr (uffi:allocate-foreign-object :double len))) - (dotimes (i len) - (setf (uffi:deref-array c-ptr :double i) (aref v i))) - c-ptr)) -;; TODO: generalize to all supported types? +(defmacro with-complex-double-float->gsl-complex-ptr ((c-ptr complex-val) + &body body) + "Copies the value of COMPLEX-VALUE, of type (complex (double-float)), +to a newly created foreign object of type gsl_complex. C-PTR is a pointer +to the foreign object. Returns the values of BODY and frees the memory +allocated for the foreign object." + (let ((array (gensym))) + `(let* ((,c-ptr (uffi:allocate-foreign-object 'gsl-complex)) + (,array (uffi:get-slot-value ,c-ptr + '(:array :double) + 'cl-gsl::dat))) + (unwind-protect + (progn + (setf (uffi:deref-array ,array :double 0) (realpart ,complex-val)) + (setf (uffi:deref-array ,array :double 1) (imagpart ,complex-val)) + ,@body) + (uffi:free-foreign-object ,c-ptr))))) + + +(defmacro with-complex-single-float->gsl-complex-float-ptr ((c-ptr complex-val) + &body body) + "Copies the value of COMPLEX-VALUE, of type (complex (single-float)), +to a newly created foreign object of type gsl_complex_float. C-PTR is a pointer +to the foreign object. Returns the values of BODY and frees the memory +allocated for the foreign object." + (let ((array (gensym))) + `(let* ((,c-ptr (uffi:allocate-foreign-object 'gsl-complex-float)) + (,array (uffi:get-slot-value ,c-ptr + '(:array :float) + 'cl-gsl::dat))) + (unwind-protect + (progn + (setf (uffi:deref-array ,array :float 0) (realpart ,complex-val)) + (setf (uffi:deref-array ,array :float 1) (imagpart ,complex-val)) + ,@body) + (uffi:free-foreign-object ,c-ptr))))) + + +(defmacro with-lisp-vec->c-array ((c-ptr lisp-vec) &body body) + (let ((len (gensym)) + (i (gensym))) + `(progn + (let* ((,len (length ,lisp-vec)) + (,c-ptr (uffi:allocate-foreign-object :double ,len))) + (unwind-protect + (progn + (dotimes (,i ,len) + (setf (uffi:deref-array ,c-ptr :double ,i) + (aref ,lisp-vec ,i))) + ,@body) + (uffi:free-foreign-object ,c-ptr)))))) + + (defun c-array->lisp-vec (c-ptr len) (let ((lisp-vec (make-array len :element-type 'double-float))) (dotimes (i len) @@ -249,6 +270,9 @@ lisp-vec)) (defun complex-packed-array->lisp-vec (z-ptr len) + "Copies the complex values of a foreign array to a lisp array. Z-PTR is +a pointer the the foreign array of length LEN. Returns a lisp array of +complex elements, also of length LEN." (declare (gsl-complex-packed-def z-ptr)) (let ((lisp-vec (make-array (/ len 2) :element-type 'complex))) (dotimes (i (/ len 2))

1 0

[cl-gsl-cvs] CVS update: cl-gsl/doc/index.html cl-gsl/doc/introduction.html cl-gsl/doc/poly.html cl-gsl/doc/sf.html
by cl-gsl-cvs＠common-lisp.net 28 Mar '05

28 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl/doc In directory common-lisp.net:/tmp/cvs-serv26956 Removed Files: index.html introduction.html poly.html sf.html Log Message: Remove html files. Date: Tue Mar 29 03:47:10 2005 Author: edenny

1 0

[cl-gsl-cvs] CVS update: cl-gsl/ChangeLog
by edenny＠common-lisp.net 26 Mar '05

26 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl In directory common-lisp.net:/tmp/cvs-serv27596 Modified Files: ChangeLog Log Message: *** empty log message *** Date: Sun Mar 27 05:49:46 2005 Author: edenny Index: cl-gsl/ChangeLog diff -u cl-gsl/ChangeLog:1.9 cl-gsl/ChangeLog:1.10 --- cl-gsl/ChangeLog:1.9 Thu Mar 24 02:50:45 2005 +++ cl-gsl/ChangeLog Sun Mar 27 05:49:46 2005 @@ -1,3 +1,9 @@ +2005-03-27 Edgar Denny <edgardenny(a)comcast.net> + + * sf.tex, poly.tex, math.tex, constants.tex: tex4ht fixes. + + * Makefile: modify clean. + 2005-03-24 Edgar Denny <edgardenny(a)comcast.net> * doc/math.tex: Initial checkin.

1 0

[cl-gsl-cvs] CVS update: cl-gsl/doc/sf.tex
by edenny＠common-lisp.net 26 Mar '05

26 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl/doc In directory common-lisp.net:/tmp/cvs-serv27575 Modified Files: sf.tex Log Message: tex4ht fixes. Date: Sun Mar 27 05:48:51 2005 Author: edenny Index: cl-gsl/doc/sf.tex diff -u cl-gsl/doc/sf.tex:1.2 cl-gsl/doc/sf.tex:1.3 --- cl-gsl/doc/sf.tex:1.2 Thu Mar 24 04:48:41 2005 +++ cl-gsl/doc/sf.tex Sun Mar 27 05:48:50 2005 @@ -1,28 +1,6 @@ -\documentclass{article} -\usepackage[T1]{fontenc} -\usepackage[latin1]{inputenc} -\usepackage{tex4ht} - -\begin{document} - -\Css{.monobold { font-weight: bold; font-family: monospace;}} -\Css{.floatright { float: right;}} -\Css{.floatleft { float: left;}} -\Css{.floatclear { clear: both;}} - -\def\monobf#1{\ifHtml \HCode{<span class="monobold">} #1 - \else \textbf{\texttt{#1}} \fi - \ifHtml \HCode{</span>} \fi} - -\def\func#1#2{\ifHtml \HCode{<span class="floatright">} \fi - {[}Function{]} \ifHtml \HCode{</span><span class="floatleft">} \fi - \monobf{#1} \texttt{#2} - \ifHtml \HCode{</span> <div class="floatclear"> </div>} \fi} \section{Special Functions} -\tableofcontents[section,subsection,subsubsection] - \subsection{Usage} The special functions are available in two calling conventions, @@ -2865,5 +2843,3 @@ \item Y.Y. Luke, Algorithms for the Computation of Mathematical Functions, Academic Press, New York (1977). \end{itemize} -Last modified: Tue Feb 15 21:49:18 EST 2005 -\end{document}

1 0

[cl-gsl-cvs] CVS update: cl-gsl/doc/poly.tex
by edenny＠common-lisp.net 26 Mar '05

26 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl/doc In directory common-lisp.net:/tmp/cvs-serv27559 Modified Files: poly.tex Log Message: tex4ht fixes. Date: Sun Mar 27 05:48:23 2005 Author: edenny Index: cl-gsl/doc/poly.tex diff -u cl-gsl/doc/poly.tex:1.2 cl-gsl/doc/poly.tex:1.3 --- cl-gsl/doc/poly.tex:1.2 Thu Mar 24 04:47:25 2005 +++ cl-gsl/doc/poly.tex Sun Mar 27 05:48:23 2005 @@ -1,25 +1,5 @@ -\documentclass{article} -\usepackage[T1]{fontenc} -\usepackage[latin1]{inputenc} -\usepackage{tex4ht} - -\begin{document} - -\Css{.monobold { font-weight: bold; font-family: monospace;}} -\Css{.floatright { float: right;}} -\Css{.floatleft { float: left;}} -\Css{.floatclear { clear: both;}} - -\def\monobf#1{\ifHtml \HCode{<span class="monobold">} #1 - \else \textbf{\texttt{#1}} \fi - \ifHtml \HCode{</span>} \fi} - -\def\func#1#2{\ifHtml \HCode{<span class="floatright">} \fi - {[}Function{]} \ifHtml \HCode{</span><span class="floatleft">} \fi - \monobf{#1} \texttt{#2} - \ifHtml \HCode{</span> <div class="floatclear"> </div>} \fi} -\section*{6 Polynomials} +\section{Polynomials} This chapter describes functions for evaluating and solving polynomials. There are routines for finding real and complex roots of quadratic @@ -28,7 +8,7 @@ with real coefficients (of any order). -\subsection*{6.1 Polynomial Evaluation} +\subsection{Polynomial Evaluation} \func{poly-eval}{ coeff-list x => result} @@ -38,7 +18,7 @@ of the coefficients. -\subsection*{6.2 Divided Difference Representation of Polynomials} +\subsection{Divided Difference Representation of Polynomials} The functions described here manipulate polynomials stored in Newton's divided-difference representation. The use of divided-differences @@ -70,7 +50,7 @@ -\subsection*{6.3 Quadratic Equations} +\subsection{Quadratic Equations} \func{solve-quadratic}{ a b c => x0, x1, num-roots} @@ -108,7 +88,7 @@ components and then by their imaginary components. -\subsection*{6.4 Cubic Equations} +\subsection{Cubic Equations} \func{solve-cubic}{ a b c => x0, x1, x2, num-roots} @@ -141,7 +121,7 @@ by their real components and then by their imaginary components. -\subsection*{6.5 General Polynomial Equations} +\subsection{General Polynomial Equations} The roots of polynomial equations cannot be found analytically beyond @@ -164,11 +144,11 @@ reduction does not converge. -\subsection*{6.6 Examples} +\subsection{Examples} -\subsection*{6.7 References and Further Reading} +\subsection{References and Further Reading} The balanced-QR method and its error analysis are described in the following papers, @@ -191,6 +171,3 @@ \item Abramowitz and Stegun, \textsc{Handbook of Mathematical Functions}, Sections 25.1.4 and 25.2.26. \end{itemize} - - -\end{document}

1 0

[cl-gsl-cvs] CVS update: cl-gsl/doc/math.tex
by edenny＠common-lisp.net 26 Mar '05

26 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl/doc In directory common-lisp.net:/tmp/cvs-serv27544 Modified Files: math.tex Log Message: tex4ht fixes. Date: Sun Mar 27 05:47:52 2005 Author: edenny Index: cl-gsl/doc/math.tex diff -u cl-gsl/doc/math.tex:1.1 cl-gsl/doc/math.tex:1.2 --- cl-gsl/doc/math.tex:1.1 Thu Mar 24 02:48:24 2005 +++ cl-gsl/doc/math.tex Sun Mar 27 05:47:52 2005 @@ -1,65 +1,43 @@ -\documentclass{article} -\usepackage[T1]{fontenc} -\usepackage[latin1]{inputenc} -\usepackage{tex4ht} - -\begin{document} - -\Css{.monobold { font-weight: bold; font-family: monospace;}} -\Css{.floatright { float: right;}} -\Css{.floatleft { float: left;}} -\Css{.floatclear { clear: both;}} - -\def\monobf#1{\ifHtml \HCode{<span class="monobold">} #1 - \else \textbf{\texttt{#1}} \fi - \ifHtml \HCode{</span>} \fi} - -\def\func#1#2{\ifHtml \HCode{<span class="floatright">} \fi - {[}Function{]} \ifHtml \HCode{</span><span class="floatleft">} \fi - \monobf{#1} \texttt{#2} - \ifHtml \HCode{</span> <div class="floatclear"> </div>} \fi} -\section*{4 Mathematical Constants} +\section{Mathematical Constants} The library ensures that the standard bsd mathematical constants are defined. For reference here is a list of the constants. \begin{description} -\item [+e+] The base of exponentials, $e$ +\item [\const{+e+}] The base of exponentials, $e$ -\item [+log2e+] The base-2 logarithm of e, $\log_2(e)$ +\item [\const{+log2e+}] The base-2 logarithm of e, $\log_2(e)$ -\item [+log10e+] The base-10 logarithm of e, $\log_{10}(e)$ +\item [\const{+log10e+}] The base-10 logarithm of e, $\log_{10}(e)$ -\item [+sqrt2+] The square root of two, $\sqrt 2$ +\item [\const{+sqrt2+}] The square root of two, $\sqrt 2$ -\item [+sqrt1/2+] The square root of one-half, $\sqrt{1/2}$ +\item [\const{+sqrt1/2+}] The square root of one-half, $\sqrt{1/2}$ -\item [+sqrt3+] The square root of three, $\sqrt 3$ +\item [\const{+sqrt3+}] The square root of three, $\sqrt 3$ -\item [+pi+] The constant pi, $\pi$ +\item [\const{+pi+}] The constant pi, $\pi$ -\item [+pi/2+] Pi divided by two, $\pi/2$ +\item [\const{+pi/2+}] Pi divided by two, $\pi/2$ -\item [+pi/4+] Pi divided by four, $\pi/4$ +\item [\const{+pi/4+}] Pi divided by four, $\pi/4$ -\item [+sqrtpi+] The square root of pi, $\sqrt\pi$ +\item [\const{+sqrtpi+}] The square root of pi, $\sqrt\pi$ -\item [+2/sqrtpi+] Two divided by the square root of pi, $2/\sqrt\pi$ +\item [\const{+2/sqrtpi+}] Two divided by the square root of pi, $2/\sqrt\pi$ -\item [+1/pi+] The reciprocal of pi, $1/\pi$ +\item [\const{+1/pi+}] The reciprocal of pi, $1/\pi$ -\item [+2/pi+] Twice the reciprocal of pi, $2/\pi$ +\item [\const{+2/pi+}] Twice the reciprocal of pi, $2/\pi$ -\item [+ln10+] The natural logarithm of ten, $\ln(10)$ +\item [\const{+ln10+}] The natural logarithm of ten, $\ln(10)$ -\item [+ln2+] The natural logarithm of two, $\ln(2)$ +\item [\const{+ln2+}] The natural logarithm of two, $\ln(2)$ -\item [+lnpi+] The natural logarithm of pi, $\ln(\pi)$ +\item [\const{+lnpi+}] The natural logarithm of pi, $\ln(\pi)$ -\item [+euler+] Euler's constant, $\gamma$ +\item [\const{+euler+}] Euler's constant, $\gamma$ \end{description} - -\end{document}

1 0

[cl-gsl-cvs] CVS update: cl-gsl/doc/constants.tex
by edenny＠common-lisp.net 26 Mar '05

26 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl/doc In directory common-lisp.net:/tmp/cvs-serv27528 Modified Files: constants.tex Log Message: tex4ht fixes. Date: Sun Mar 27 05:47:20 2005 Author: edenny Index: cl-gsl/doc/constants.tex diff -u cl-gsl/doc/constants.tex:1.1 cl-gsl/doc/constants.tex:1.2 --- cl-gsl/doc/constants.tex:1.1 Thu Mar 24 04:49:39 2005 +++ cl-gsl/doc/constants.tex Sun Mar 27 05:47:20 2005 @@ -1,25 +1,5 @@ -\documentclass{article} -\usepackage[T1]{fontenc} -\usepackage[latin1]{inputenc} -\usepackage{tex4ht} - -\begin{document} - -\Css{.monobold { font-weight: bold; font-family: monospace;}} -\Css{.floatright { float: right;}} -\Css{.floatleft { float: left;}} -\Css{.floatclear { clear: both;}} - -\def\monobf#1{\ifHtml \HCode{<span class="monobold">} #1 - \else \textbf{\texttt{#1}} \fi - \ifHtml \HCode{</span>} \fi} - -\def\func#1#2{\ifHtml \HCode{<span class="floatright">} \fi - {[}Function{]} \ifHtml \HCode{</span><span class="floatleft">} \fi - \monobf{#1} \texttt{#2} - \ifHtml \HCode{</span> <div class="floatclear"> </div>} \fi} -\section*{38 Physical Constants} +\section{Physical Constants} This chapter describes macros for the values of physical constants, such as the speed of light, c, and gravitational constant, G. The @@ -36,351 +16,351 @@ the header files themselves for the values of the constants used in the library. -\subsection*{38.1 Fundamental Constants} +\subsection{Fundamental Constants} \begin{description} -\item [+mksa-speed-of-light+] The speed of light in vacuum, c. +\item [\const{+mksa-speed-of-light+}] The speed of light in vacuum, c. -\item [+mksa-vacuum-permeability+] The permeability of free +\item [\const{+mksa-vacuum-permeability+}] The permeability of free space, $\mu_0$. This constant is defined in the MKSA system only. -\item [+mksa-vacuum-permittivity+] The permittivity of free +\item [\const{+mksa-vacuum-permittivity+}] The permittivity of free space, $\epsilon_0$. This constant is defined in the MKSA system only. -\item [+mksa-plancks-constant-h+] Planck's constant, h. +\item [\const{+mksa-plancks-constant-h+}] Planck's constant, h. -\item [+mksa-plancks-constant-hbar+] Planck's constant +\item [\const{+mksa-plancks-constant-hbar+}] Planck's constant divided by $2\pi, \hbar$. -\item [+num-avogadro+] Avogadro's number, $N_a$. +\item [\const{+num-avogadro+}] Avogadro's number, $N_a$. -\item [+mksa-faraday+] The molar charge of 1 Faraday. +\item [\const{+mksa-faraday+}] The molar charge of 1 Faraday. -\item [+mksa-boltzmann+] The Boltzmann constant, k. +\item [\const{+mksa-boltzmann+}] The Boltzmann constant, k. -\item [+mksa-molar-mass+] The molar gas constant, $R_0$. +\item [\const{+mksa-molar-mass+}] The molar gas constant, $R_0$. -\item [+mksa-standard-gas-volume+] The standard gas volume, $V_0$. +\item [\const{+mksa-standard-gas-volume+}] The standard gas volume, $V_0$. -\item [+mksa-stefan-boltzmann-constant+] The Stefan-Boltzmann +\item [\const{+mksa-stefan-boltzmann-constant+}] The Stefan-Boltzmann radiation constant, $\sigma$. -\item [+mksa-gauss+] The magnetic field of 1 Gauss. +\item [\const{+mksa-gauss+}] The magnetic field of 1 Gauss. -\item [+mksa-micro+] The length of 1 micron. +\item [\const{+mksa-micro+}] The length of 1 micron. -\item [+mksa-hectare+] The area of 1 hectare. +\item [\const{+mksa-hectare+}] The area of 1 hectare. -\item [+mksa-miles-per-hour+] The speed of 1 mile per hour. +\item [\const{+mksa-miles-per-hour+}] The speed of 1 mile per hour. -\item [+mksa-kilometers-per-hour+] The speed of 1 kilometer per hour. +\item [\const{+mksa-kilometers-per-hour+}] The speed of 1 kilometer per hour. \end{description} -\subsection*{38.2 Astronomy and Astrophysics} +\subsection{Astronomy and Astrophysics} \begin{description} -\item [+mksa-astronomical-unit+] The length of 1 astronomical +\item [\const{+mksa-astronomical-unit+}] The length of 1 astronomical unit (mean earth-sun distance), au. -\item [+mksa-gravitational-constant+] The gravitational constant, +\item [\const{+mksa-gravitational-constant+}] The gravitational constant, G. -\item [+mksa-light-year+] The distance of 1 light-year, ly. +\item [\const{+mksa-light-year+}] The distance of 1 light-year, ly. -\item [+mksa-parsec+] The distance of 1 parsec, pc. +\item [\const{+mksa-parsec+}] The distance of 1 parsec, pc. -\item [+mksa-grav-accel+] The standard gravitational acceleration +\item [\const{+mksa-grav-accel+}] The standard gravitational acceleration on Earth, g. -\item [+mksa-solar-mass+] The mass of the Sun. +\item [\const{+mksa-solar-mass+}] The mass of the Sun. \end{description} -\subsection*{38.3 Atomic and Nuclear Physics} +\subsection{Atomic and Nuclear Physics} \begin{description} -\item [+mksa-electron-charge+] The charge of the electron, e. +\item [\const{+mksa-electron-charge+}] The charge of the electron, e. -\item [+mksa-electron-volt+] The energy of 1 electron volt, eV. +\item [\const{+mksa-electron-volt+}] The energy of 1 electron volt, eV. -\item [+mksa-unified-atomic-mass+] The unified atomic mass, +\item [\const{+mksa-unified-atomic-mass+}] The unified atomic mass, amu. -\item [+mksa-mass-electron+] The mass of the electron, $m_e$. +\item [\const{+mksa-mass-electron+}] The mass of the electron, $m_e$. -\item [+mksa-mass-muon+] The mass of the muon, $m_\mu$. +\item [\const{+mksa-mass-muon+}] The mass of the muon, $m_\mu$. -\item [+mksa-mass-proton+] The mass of the proton, $m_p$. +\item [\const{+mksa-mass-proton+}] The mass of the proton, $m_p$. -\item [+mksa-mass-neutron+] The mass of the neutron, $m_n$. +\item [\const{+mksa-mass-neutron+}] The mass of the neutron, $m_n$. -\item [+num-fine-structure+] The electromagnetic fine structure +\item [\const{+num-fine-structure+}] The electromagnetic fine structure constant $\alpha$. -\item [+mksa-rydberg+] The Rydberg constant, Ry, in units of +\item [\const{+mksa-rydberg+}] The Rydberg constant, Ry, in units of energy. This is related to the Rydberg inverse wavelength R by Ry = h c R. -\item [+mksa-bohr-radius+] The Bohr radius, $a_0$. +\item [\const{+mksa-bohr-radius+}] The Bohr radius, $a_0$. -\item [+mksa-angstrom+] The length of 1 angstrom. +\item [\const{+mksa-angstrom+}] The length of 1 angstrom. -\item [+mksa-barn+] The area of 1 barn. +\item [\const{+mksa-barn+}] The area of 1 barn. -\item [+mksa-bohr-magneton+] The Bohr Magneton, $\mu_B$. +\item [\const{+mksa-bohr-magneton+}] The Bohr Magneton, $\mu_B$. -\item [+mksa-nuclear-magneton+] The Nuclear Magneton, $\mu_N$. +\item [\const{+mksa-nuclear-magneton+}] The Nuclear Magneton, $\mu_N$. -\item [+mksa-electron-magnetic-moment+] The absolute value +\item [\const{+mksa-electron-magnetic-moment+}] The absolute value of the magnetic moment of the electron, $\mu_e$. The physical magnetic moment of the electron is negative. -\item [+mksa-proton-magnetic-moment+] The magnetic moment of +\item [\const{+mksa-proton-magnetic-moment+}] The magnetic moment of the proton, $\mu_p$. -\item [+mksa-thomson-cross-section+] The Thomson cross section, +\item [\const{+mksa-thomson-cross-section+}] The Thomson cross section, $\sigma_T$. \end{description} -\subsection*{38.4 Measurement of Time} +\subsection{Measurement of Time} \begin{description} -\item [+mksa-minute+] The number of seconds in 1 minute. +\item [\const{+mksa-minute+}] The number of seconds in 1 minute. -\item [+mksa-hour+] The number of seconds in 1 hour. +\item [\const{+mksa-hour+}] The number of seconds in 1 hour. -\item [+mksa-day+] The number of seconds in 1 day. +\item [\const{+mksa-day+}] The number of seconds in 1 day. -\item [+mksa-week+] The number of seconds in 1 week. +\item [\const{+mksa-week+}] The number of seconds in 1 week. \end{description} -\subsection*{38.5 Imperial Units} +\subsection{Imperial Units} \begin{description} -\item [+mksa-inch+] The length of 1 inch. +\item [\const{+mksa-inch+}] The length of 1 inch. -\item [+mksa-foot+] The length of 1 foot. +\item [\const{+mksa-foot+}] The length of 1 foot. -\item [+mksa-yard+] The length of 1 yard. +\item [\const{+mksa-yard+}] The length of 1 yard. -\item [+mksa-mile+] The length of 1 mile. +\item [\const{+mksa-mile+}] The length of 1 mile. -\item [+mksa-mil+] The length of 1 mil (1/1000th of an inch). +\item [\const{+mksa-mil+}] The length of 1 mil (1/1000th of an inch). \end{description} -\subsection*{38.6 Nautical Units} +\subsection{Nautical Units} \begin{description} -\item [+mksa-nautical-mile+] The length of 1 nautical mile. +\item [\const{+mksa-nautical-mile+}] The length of 1 nautical mile. -\item [+mksa-fathom+] The length of 1 fathom. +\item [\const{+mksa-fathom+}] The length of 1 fathom. -\item [+mksa-knot+] The speed of 1 knot. +\item [\const{+mksa-knot+}] The speed of 1 knot. \end{description} -\subsection*{38.7 Printers Units} +\subsection{Printers Units} \begin{description} -\item [+mksa-point+] The length of 1 printer's point (1/72 inch). +\item [\const{+mksa-point+}] The length of 1 printer's point (1/72 inch). -\item [+mksa-texpoint+] The length of 1 \TeX{} point (1/72.27 inch). +\item [\const{+mksa-texpoint+}] The length of 1 \TeX{} point (1/72.27 inch). \end{description} -\subsection*{38.8 Volume} +\subsection{Volume} \begin{description} -\item [+mksa-acre+] The area of 1 acre. +\item [\const{+mksa-acre+}] The area of 1 acre. -\item [+mksa-liter+] The volume of 1 liter. +\item [\const{+mksa-liter+}] The volume of 1 liter. -\item [+mksa-us-gallon+] The volume of 1 US gallon. +\item [\const{+mksa-us-gallon+}] The volume of 1 US gallon. -\item [+mksa-canadian-gallon+] The volume of 1 Canadian gallon. +\item [\const{+mksa-canadian-gallon+}] The volume of 1 Canadian gallon. -\item [+mksa-uk-gallon+] The volume of 1 UK gallon. +\item [\const{+mksa-uk-gallon+}] The volume of 1 UK gallon. -\item [+mksa-quart+] The volume of 1 quart. +\item [\const{+mksa-quart+}] The volume of 1 quart. -\item [+mksa-pint+] The volume of 1 pint. +\item [\const{+mksa-pint+}] The volume of 1 pint. \end{description} -\subsection*{38.9 Mass and Weight} +\subsection{Mass and Weight} \begin{description} -\item [+mksa-pound-mass+] The mass of 1 pound. +\item [\const{+mksa-pound-mass+}] The mass of 1 pound. -\item [+mksa-ounce-mass+] The mass of 1 ounce. +\item [\const{+mksa-ounce-mass+}] The mass of 1 ounce. -\item [+mksa-ton+] The mass of 1 ton. +\item [\const{+mksa-ton+}] The mass of 1 ton. -\item [+mksa-metric-ton+] The mass of 1 metric ton (1000 kg). +\item [\const{+mksa-metric-ton+}] The mass of 1 metric ton (1000 kg). -\item [+mksa-uk-ton+] The mass of 1 UK ton. +\item [\const{+mksa-uk-ton+}] The mass of 1 UK ton. -\item [+mksa-troy-ounce+] The mass of 1 troy ounce. +\item [\const{+mksa-troy-ounce+}] The mass of 1 troy ounce. -\item [+mksa-carat+] The mass of 1 carat. +\item [\const{+mksa-carat+}] The mass of 1 carat. -\item [+mksa-gram-force+] The force of 1 gram weight. +\item [\const{+mksa-gram-force+}] The force of 1 gram weight. -\item [+mksa-pound-force+] The force of 1 pound weight. +\item [\const{+mksa-pound-force+}] The force of 1 pound weight. -\item [+mksa-kilopound-force+] The force of 1 kilopound weight. +\item [\const{+mksa-kilopound-force+}] The force of 1 kilopound weight. -\item [+mksa-poundal+] The force of 1 poundal. +\item [\const{+mksa-poundal+}] The force of 1 poundal. \end{description} -\subsection*{38.10 Thermal Energy and Power} +\subsection{Thermal Energy and Power} \begin{description} -\item [+mksa-calorie+] The energy of 1 calorie. +\item [\const{+mksa-calorie+}] The energy of 1 calorie. -\item [+mksa-btu+] The energy of 1 British Thermal Unit, btu. +\item [\const{+mksa-btu+}] The energy of 1 British Thermal Unit, btu. -\item [+mksa-therm+] The energy of 1 Therm. +\item [\const{+mksa-therm+}] The energy of 1 Therm. -\item [+mksa-horsepower+] The power of 1 horsepower. +\item [\const{+mksa-horsepower+}] The power of 1 horsepower. \end{description} -\subsection*{38.11 Pressure} +\subsection{Pressure} \begin{description} -\item [+mksa-bar+] The pressure of 1 bar. +\item [\const{+mksa-bar+}] The pressure of 1 bar. -\item [+mksa-std-atmosphere+] The pressure of 1 standard atmosphere. +\item [\const{+mksa-std-atmosphere+}] The pressure of 1 standard atmosphere. -\item [+mksa-torr+] The pressure of 1 torr. +\item [\const{+mksa-torr+}] The pressure of 1 torr. -\item [+mksa-meter-of-mercury+] The pressure of 1 meter of mercury. +\item [\const{+mksa-meter-of-mercury+}] The pressure of 1 meter of mercury. -\item [+mksa-inch-of-mercury+] The pressure of 1 inch of mercury. +\item [\const{+mksa-inch-of-mercury+}] The pressure of 1 inch of mercury. -\item [+mksa-inch-of-water+] The pressure of 1 inch of water. +\item [\const{+mksa-inch-of-water+}] The pressure of 1 inch of water. -\item [+mksa-psi+] The pressure of 1 pound per square inch. +\item [\const{+mksa-psi+}] The pressure of 1 pound per square inch. \end{description} -\subsection*{38.12 Viscosity} +\subsection{Viscosity} \begin{description} -\item [+mksa-poise+] The dynamic viscosity of 1 poise. +\item [\const{+mksa-poise+}] The dynamic viscosity of 1 poise. -\item [+mksa-stokes+] The kinematic viscosity of 1 stokes. +\item [\const{+mksa-stokes+}] The kinematic viscosity of 1 stokes. \end{description} -\subsection*{38.13 Light and Illumination} +\subsection{Light and Illumination} \begin{description} -\item [+mksa-stilb+] The luminance of 1 stilb. +\item [\const{+mksa-stilb+}] The luminance of 1 stilb. -\item [+mksa-lumen+] The luminous flux of 1 lumen. +\item [\const{+mksa-lumen+}] The luminous flux of 1 lumen. -\item [+mksa-lux+] The illuminance of 1 lux. +\item [\const{+mksa-lux+}] The illuminance of 1 lux. -\item [+mksa-phot+] The illuminance of 1 phot. +\item [\const{+mksa-phot+}] The illuminance of 1 phot. -\item [+mksa-footcandle+] The illuminance of 1 footcandle. +\item [\const{+mksa-footcandle+}] The illuminance of 1 footcandle. -\item [+mksa-lambert+] The luminance of 1 lambert. +\item [\const{+mksa-lambert+}] The luminance of 1 lambert. -\item [+mksa-footlambert+] The luminance of 1 footlambert. +\item [\const{+mksa-footlambert+}] The luminance of 1 footlambert. \end{description} -\subsection*{38.14 Radioactivity} +\subsection{Radioactivity} \begin{description} -\item [+mksa-curie+] The activity of 1 curie. +\item [\const{+mksa-curie+}] The activity of 1 curie. -\item [+mksa-roentgen+] The exposure of 1 roentgen. +\item [\const{+mksa-roentgen+}]The exposure of 1 roentgen. -\item [+mksa-rad+] The absorbed dose of 1 rad. +\item [\const{+mksa-rad+}] The absorbed dose of 1 rad. \end{description} -\subsection*{38.15 Force and Energy} +\subsection{Force and Energy} \begin{description} -\item [+mksa-newton+] The SI unit of force, 1 Newton. +\item [\const{+mksa-newton+}] The SI unit of force, 1 Newton. -\item [+mksa-dyne+] The force of 1 Dyne = $10^{-5}$ Newton. +\item [\const{+mksa-dyne+}] The force of 1 Dyne = $10^{-5}$ Newton. -\item [+mksa-joule+] The SI unit of energy, 1 Joule. +\item [\const{+mksa-joule+}] The SI unit of energy, 1 Joule. -\item [+mksa-erg+] The energy 1 erg = $10^{-7}$ Joule. +\item [\const{+mksa-erg+}] The energy 1 erg = $10^{-7}$ Joule. \end{description} -\subsection*{38.16 Prefixes} +\subsection{Prefixes} These constants are dimensionless scaling factors. \begin{description} -\item [+num-yotta+] $10^{24}$ +\item [\const{+num-yotta+}] $10^{24}$ -\item [+num-zetta+] $10^{21}$ +\item [\const{+num-zetta+}] $10^{21}$ -\item [+num-exa+] $10^{18}$ +\item [\const{+num-exa+}] $10^{18}$ -\item [+num-peta+] $10^{15}$ +\item [\const{+num-peta+}] $10^{15}$ -\item [+num-tera+] $10^{12}$ +\item [\const{+num-tera+}] $10^{12}$ -\item [+num-giga+] $10^{9}$ +\item [\const{+num-giga+}] $10^{9}$ -\item [+num-mega+] $10^{6}$ +\item [\const{+num-mega+}] $10^{6}$ -\item [+num-kilo+] $10^{3}$ +\item [\const{+num-kilo+}] $10^{3}$ -\item [+num-milli+] $10^{-3}$ +\item [\const{+num-milli+}] $10^{-3}$ -\item [+num-micro+] $10^{-6}$ +\item [\const{+num-micro+}] $10^{-6}$ -\item [+num-nano+] $10^{-9}$ +\item [\const{+num-nano+}] $10^{-9}$ -\item [+num-pico+] $10^{-12}$ +\item [\const{+num-pico+}] $10^{-12}$ -\item [+num-femto+] $10^{-15}$ +\item [\const{+num-femto+}] $10^{-15}$ -\item [+num-atto+] $10^{-18}$ +\item [\const{+num-atto+}] $10^{-18}$ -\item [+num-zepto+] $10^{-21}$ +\item [\const{+num-zepto+}] $10^{-21}$ -\item [+num-yocto+] $10^{-24}$ +\item [\const{+num-yocto+}] $10^{-24}$ \end{description} -\subsection*{38.17 Examples} +\subsection{Examples} The following program demonstrates the use of the physical constants in a calculation. In this case, the goal is to calculate the range @@ -425,7 +405,7 @@ -\subsection*{38.18 References and Further Reading} +\subsection{References and Further Reading} Further information on the values of physical constants is available from the NIST website, @@ -433,6 +413,3 @@ \begin{itemize} \item http://www.physics.nist.gov/cuu/Constants/index.html \end{itemize} - - -\end{document}

1 0

[cl-gsl-cvs] CVS update: cl-gsl/doc/Makefile
by edenny＠common-lisp.net 26 Mar '05

26 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl/doc In directory common-lisp.net:/tmp/cvs-serv27500 Modified Files: Makefile Log Message: modify clean. Date: Sun Mar 27 05:46:33 2005 Author: edenny Index: cl-gsl/doc/Makefile diff -u cl-gsl/doc/Makefile:1.1 cl-gsl/doc/Makefile:1.2 --- cl-gsl/doc/Makefile:1.1 Mon Mar 21 04:53:13 2005 +++ cl-gsl/doc/Makefile Sun Mar 27 05:46:32 2005 @@ -3,13 +3,13 @@ #### GNU Makefile clean: - $(RM) *.png *.4ct *.4tc *.aux *.css *.dvi *.html *.idv *.lg *.log *.tmp *.xref + $(RM) *.png *.4ct *.4tc *.aux *.css *.dvi *.html *.idv *.lg *.log *.tmp *.xref *.toc html: - htlatex sf.tex + htlatex cl-gsl-ref.tex html-without-png: - latex sf.tex - latex sf.tex - latex sf.tex - tex4ht sf - t4ht sf -p + latex cl-gsl-ref.tex + latex cl-gsl-ref.tex + latex cl-gsl-ref.tex + tex4ht cl-gsl-ref + t4ht cl-gsl-ref -p

1 0

[cl-gsl-cvs] CVS update: cl-gsl/doc/constants.tex
by edenny＠common-lisp.net 23 Mar '05

23 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl/doc In directory common-lisp.net:/tmp/cvs-serv6392 Added Files: constants.tex Log Message: Initial checkin. Date: Thu Mar 24 04:49:39 2005 Author: edenny

1 0

[cl-gsl-cvs] CVS update: cl-gsl/doc/sf.tex
by edenny＠common-lisp.net 23 Mar '05

23 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl/doc In directory common-lisp.net:/tmp/cvs-serv6348 Modified Files: sf.tex Log Message: Convert more of the math to images. Date: Thu Mar 24 04:48:43 2005 Author: edenny Index: cl-gsl/doc/sf.tex diff -u cl-gsl/doc/sf.tex:1.1 cl-gsl/doc/sf.tex:1.2 --- cl-gsl/doc/sf.tex:1.1 Mon Mar 21 04:44:31 2005 +++ cl-gsl/doc/sf.tex Thu Mar 24 04:48:41 2005 @@ -7,16 +7,17 @@ \Css{.monobold { font-weight: bold; font-family: monospace;}} \Css{.floatright { float: right;}} +\Css{.floatleft { float: left;}} +\Css{.floatclear { clear: both;}} \def\monobf#1{\ifHtml \HCode{<span class="monobold">} #1 \else \textbf{\texttt{#1}} \fi \ifHtml \HCode{</span>} \fi} \def\func#1#2{\ifHtml \HCode{<span class="floatright">} \fi - {[}Function{]} \ifHtml \HCode{</span>} \fi - \monobf{#1} \texttt{#2}} - -\setcounter{section}{6} + {[}Function{]} \ifHtml \HCode{</span><span class="floatleft">} \fi + \monobf{#1} \texttt{#2} + \ifHtml \HCode{</span> <div class="floatclear"> </div>} \fi} \section{Special Functions} @@ -81,12 +82,12 @@ The following precision levels are available for the mode argument, \begin{description} -\item [GSL\_PREC\_DOUBLE~]Double-precision, a relative accuracy of approximately - 2 {*} 10\^{}-16. -\item [GSL\_PREC\_SINGLE~]Single-precision, a relative accuracy of approximately - 10\^{}-7. -\item [GSL\_PREC\_APPROX~]Approximate values, a relative accuracy of -approximately 5 {*} 10\^{}-4. +\item [+prec-double+] Double-precision, a relative accuracy of approximately + $2 * 10^{-16}$. +\item [+prec-single+] Single-precision, a relative accuracy of approximately + $10^{-1}$. +\item [+prec-approx+] Approximate values, a relative accuracy of +approximately $5 * 10^{-4}$. \end{description} The approximate mode provides the fastest evaluation at the lowest accuracy. @@ -94,47 +95,47 @@ \subsection{Airy Functions and Derivatives} -The Airy functions Ai(x) and Bi(x) are defined by the integral representations, -For further information see Abramowitz \& Stegun, Section 10.4. -The \HCode{<span class="mystyle">} Airy functions \HCode{</span>} are defined in the header file gsl\_sf\_airy.h. +The Airy functions $Ai(x)$ and $Bi(x)$ are defined by the integral +representations, -\subsubsection{Airy Functions} +$$Ai(x) = \frac{1}{\pi} \int_0^\infty \cos(\frac{1}{3} t^3 + xt) dt$$ + +$$Bi(x) = \frac{1}{\pi} \int_0^\infty (e^{-t^3/3} + \sin(\frac{1}{3} t^3 + xt)) dt$$ +for further information see Abramowitz \& Stegun, Section 10.4. + +\subsubsection{Airy Functions} \func{airy-ai}{x mode => result} \func{airy-ai-e}{x mode => result, error, status} -These routines compute the Airy function Ai(x) with an accuracy +These routines compute the Airy function $Ai(x)$ with an accuracy specified by mode. \func{airy-bi}{x mode => result} \func{airy-bi-e}{x mode => result, error, status} -These routines compute the Airy function Bi(x) with an accuracy +These routines compute the Airy function $Bi(x)$ with an accuracy specified by mode. \func{airy-ai-scaled}{ x mode => result} - \func{airy-ai-scaled-e}{ x mode => result, error, status} - These routines compute a scaled version of the Airy function -S\_A(x) Ai(x). For x>0 the scaling factor S\_A(x) is $\backslash$exp(+(2/3) -x\^{}(3/2)), and is 1 for x<0. +$S_A(x) Ai(x)$. For $x>0$ the scaling factor $S_A(x)$ is +$e^{+(2/3)x^{3/2}}$, and is 1 for $x<0$. \func{airy-bi-scaled}{ x mode => result} - \func{airy-bi-scaled-e}{ x mode => result, error, status} - These routines compute a scaled version of the Airy function -S\_B(x) Bi(x). For x>0 the scaling factor S\_B(x) is exp(-(2/3) x\^{}(3/2)), -and is 1 for x<0. +$S_B(x) Bi(x)$. For $x>0$ the scaling factor $S_B(x)$ is +$e^{-(2/3) x^{3/2}}$, and is 1 for $x<0$. \subsubsection{Derivatives of Airy Functions} @@ -145,7 +146,7 @@ \func{airy-ai-deriv-e}{ x mode => result, error, status} -These routines compute the Airy function derivative Ai\verb|'|(x) +These routines compute the Airy function derivative $Ai'(x)$ with an accuracy specified by mode. \func{airy-bi-deriv}{ x mode => result} @@ -154,7 +155,7 @@ \func{airy-bi-deriv-e}{ x mode => result, error, status} -These routines compute the Airy function derivative Bi\verb|'|(x) +These routines compute the Airy function derivative $Bi'(x)$ with an accuracy specified by mode. \func{airy-ai-deriv-scaled}{ x mode => result} @@ -163,7 +164,7 @@ These routines compute the derivative of the scaled Airy function -S\_A(x) Ai(x). +$S_A(x) Ai(x)$. \func{airy-bi-deriv-scaled}{ x mode => result} @@ -172,7 +173,7 @@ These routines compute the derivative of the scaled Airy function -S\_B(x) Bi(x). +$S_B(x) Bi(x)$. \subsubsection{Zeros of Airy Functions} @@ -184,7 +185,7 @@ These routines compute the location of the s-th zero of the -Airy function Ai(x). +Airy function $Ai(x)$. \func{airy-zero-bi}{ s => result} @@ -193,7 +194,7 @@ These routines compute the location of the s-th zero of the -Airy function Bi(x). +Airy function $Bi(x)$. \subsubsection{Zeros of Derivatives of Airy Functions} @@ -205,7 +206,7 @@ These routines compute the location of the s-th zero of the -Airy function derivative Ai\verb|'|(x). +Airy function derivative $Ai'(x)$. \func{airy-zero-bi-deriv}{ s => result} @@ -214,7 +215,7 @@ These routines compute the location of the s-th zero of the -Airy function derivative Bi\verb|'|(x). +Airy function derivative $Bi'(x)$. \subsection{Bessel Functions} @@ -260,7 +261,8 @@ This routine computes the values of the regular cylindrical -Bessel functions $J_n(x)$ for n from nmin to nmax inclusive, storing +Bessel functions $J_n(x)$ for \texttt{n} from \texttt{nmin} to +\texttt{nmax} inclusive, storing the results in the array result-array. The values are computed using recurrence relations, for efficiency, and therefore may differ slightly from the exact values. @@ -299,7 +301,8 @@ This routine computes the values of the irregular cylindrical -Bessel functions $Y_n(x)$ for n from nmin to nmax inclusive, storing +Bessel functions $Y_n(x)$ for \texttt{n} from \texttt{nmin} +to \texttt{nmax} inclusive, storing the results in the array result-array. The domain of the function is $x>0$. The values are computed using recurrence relations, for efficiency, @@ -339,7 +342,8 @@ This routine computes the values of the regular modified cylindrical -Bessel functions $I_n(x)$ for n from nmin to nmax inclusive, storing +Bessel functions $I_n(x)$ for \texttt{n} from \texttt{nmin} to +\texttt{nmax} inclusive, storing the results in the array result-array. The start of the range nmin must be positive or zero. The values are computed using recurrence relations, for efficiency, and therefore may differ slightly from @@ -376,8 +380,8 @@ This routine computes the values of the scaled regular cylindrical -Bessel functions $e^{-|x|} I_n(x)$ for n from nmin to -nmax inclusive, storing the results in the array result-array. The +Bessel functions $e^{-|x|} I_n(x)$ for \texttt{n} from \texttt{nmin} to +\texttt{nmax} inclusive, storing the results in the array result-array. The start of the range nmin must be positive or zero. The values are computed using recurrence relations, for efficiency, and therefore may differ slightly from the exact values.

1 0