Commit 878682c3 authored by liam's avatar liam
Browse files

Add wavelets; need to check example against C version.


git-svn-id: svn+ssh://pop/opt/space/mathematics/gsl/trunk@3250 a3d8a0fb-c1db-0310-ace7-a616afeb9e30
parent 5f7b97c1
......@@ -62,3 +62,14 @@ e.g. SBCL.
- I already have a generic alloc and free; need to apply that to all
the later chapters. But this would require making gratuitous CLOS
objects?
Proposed generic functions #'name, and creation of CLOS objects to
represent wavelets, series acceleration, chebyshev, etc. Then convert
the alloc, free, initialize functions to generics, generic with-
macro?
No strides allowed yet.
Can't use a function call as the length in with-data:
(with-data (data double-float (length vector))...)
......@@ -3,7 +3,7 @@
; description: Vectors
; date: Sun Mar 26 2006 - 11:51
; author: Liam M. Healy
; modified: Sun Mar 4 2007 - 09:40
; modified: Mon Nov 26 2007 - 23:30
;********************************************************
;;; $Id: $
......@@ -19,6 +19,9 @@
;;; Need to build real vector out of view pointer.
;;; Need to #'cl-invalidate when (setf gsl-aref) called, see Mon Nov 26 2007.
;;;;****************************************************************************
;;;; Vector structure and CL object
;;;;****************************************************************************
......
......@@ -3,7 +3,7 @@
; description: Definition of GSLL system
; date:
; author: Liam Healy
; modified: Wed Nov 21 2007 - 21:21
; modified: Mon Nov 26 2007 - 23:33
;********************************************************
;;; $Id: $
......@@ -172,4 +172,5 @@
;; numerical-integration dependency won't be necessary.
(:file "numerical-differentiation" :depends-on (init numerical-integration))
(:file "chebyshev" :depends-on (init numerical-integration))
(:file "series-acceleration" :depends-on (init))))
(:file "series-acceleration" :depends-on (init))
(:file "wavelet" :depends-on (init data))))
......@@ -3,7 +3,7 @@
; description: Interpolation types
; date: Sun Nov 4 2007 - 17:41
; author: Liam Healy
; modified: Sun Nov 4 2007 - 19:02
; modified: Mon Nov 26 2007 - 21:07
;********************************************************
;;; $Id: $
......@@ -48,7 +48,7 @@
((interpolation :pointer))
:c-return :string
:documentation
"This function returns the name of the interpolation type.")
"The name of the interpolation type.")
(defun-gsl interpolation-minimum-size (interpolation)
"gsl_interp_min_size"
......@@ -64,7 +64,7 @@
((interpolation :pointer))
:c-return :string
:documentation
"This function returns the name of the interpolation type.")
"The name of the interpolation type.")
(defun-gsl spline-minimum-size (interpolation)
"gsl_spline_min_size"
......
This diff is collapsed.
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