[cl-gsl-cvs] CVS update: cl-gsl/test/test-vector.lisp
cl-gsl-cvs at common-lisp.net
cl-gsl-cvs at common-lisp.net
Fri Apr 22 02:44:58 UTC 2005
Update of /project/cl-gsl/cvsroot/cl-gsl/test
In directory common-lisp.net:/tmp/cvs-serv15056
Modified Files:
test-vector.lisp
Log Message:
Replaced references to gsl-vector package with gsl-array package -
since this is now the package that the vector symbols now belong.
Date: Fri Apr 22 04:44:57 2005
Author: edenny
Index: cl-gsl/test/test-vector.lisp
diff -u cl-gsl/test/test-vector.lisp:1.4 cl-gsl/test/test-vector.lisp:1.5
--- cl-gsl/test/test-vector.lisp:1.4 Mon Apr 18 03:00:12 2005
+++ cl-gsl/test/test-vector.lisp Fri Apr 22 04:44:57 2005
@@ -24,123 +24,123 @@
(deftest "make-vector-double-float" :category +vector+
:test-fn
#'(lambda ()
- (let ((v (gsl-vector:make-vector 5 :element-type 'double-float)))
+ (let ((v (gsl-array:make-vector 5 :element-type 'double-float)))
(prog1
- (and (= (gsl-vector::size v) 5)
- (eq (gsl-vector::element-type v) 'double-float))
- (gsl-vector:free v)))))
+ (and (= (gsl-array::size v) 5)
+ (eq (gsl-array::element-type v) 'double-float))
+ (gsl-array:free v)))))
(deftest "make-vector-single-float" :category +vector+
:test-fn
#'(lambda ()
- (let ((v (gsl-vector:make-vector 5 :element-type 'single-float)))
+ (let ((v (gsl-array:make-vector 5 :element-type 'single-float)))
(prog1
- (and (= (gsl-vector::size v) 5)
- (eq (gsl-vector::element-type v) 'single-float))
- (gsl-vector:free v)))))
+ (and (= (gsl-array::size v) 5)
+ (eq (gsl-array::element-type v) 'single-float))
+ (gsl-array:free v)))))
(deftest "make-vector-integer" :category +vector+
:test-fn
#'(lambda ()
- (let ((v (gsl-vector:make-vector 5 :element-type 'integer)))
+ (let ((v (gsl-array:make-vector 5 :element-type 'integer)))
(prog1
- (and (= (gsl-vector::size v) 5)
- (eq (gsl-vector::element-type v) 'integer))
- (gsl-vector:free v)))))
+ (and (= (gsl-array::size v) 5)
+ (eq (gsl-array::element-type v) 'integer))
+ (gsl-array:free v)))))
(deftest "make-vector-complex-double-float" :category +vector+
:test-fn
#'(lambda ()
- (let ((v (gsl-vector:make-vector 5 :element-type
+ (let ((v (gsl-array:make-vector 5 :element-type
'(complex (double-float)))))
(prog1
- (and (= (gsl-vector::size v) 5)
- (equal (gsl-vector::element-type v)
+ (and (= (gsl-array::size v) 5)
+ (equal (gsl-array::element-type v)
'(complex (double-float))))
- (gsl-vector:free v)))))
+ (gsl-array:free v)))))
(deftest "make-vector-complex-single-float" :category +vector+
:test-fn
#'(lambda ()
- (let ((v (gsl-vector:make-vector 5 :element-type
+ (let ((v (gsl-array:make-vector 5 :element-type
'(complex (single-float)))))
(prog1
- (and (= (gsl-vector::size v) 5)
- (equal (gsl-vector::element-type v)
+ (and (= (gsl-array::size v) 5)
+ (equal (gsl-array::element-type v)
'(complex (single-float))))
- (gsl-vector:free v)))))
+ (gsl-array:free v)))))
;; ----------------------------------------------------------------------
(deftest "make-vector-double-float-initial-element" :category +vector+
:test-fn
#'(lambda ()
- (let ((v (gsl-vector:make-vector 5
+ (let ((v (gsl-array:make-vector 5
:element-type 'double-float
:initial-element 1.0d0))
(ret t))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i) 1.0d0)
+ (unless (= (gsl-array:get-element v i) 1.0d0)
(setq ret nil)))
- (gsl-vector:free v)
+ (gsl-array:free v)
ret)))
(deftest "make-vector-single-float-initial-element" :category +vector+
:test-fn
#'(lambda ()
- (let ((v (gsl-vector:make-vector 5
+ (let ((v (gsl-array:make-vector 5
:element-type 'single-float
:initial-element 1.0))
(ret t))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i) 1.0)
+ (unless (= (gsl-array:get-element v i) 1.0)
(setq ret nil)))
- (gsl-vector:free v)
+ (gsl-array:free v)
ret)))
(deftest "make-vector-integer-initial-element" :category +vector+
:test-fn
#'(lambda ()
- (let ((v (gsl-vector:make-vector 5
+ (let ((v (gsl-array:make-vector 5
:element-type 'integer
:initial-element 1))
(ret t))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i) 1)
+ (unless (= (gsl-array:get-element v i) 1)
(setq ret nil)))
- (gsl-vector:free v)
+ (gsl-array:free v)
ret)))
(deftest "make-vector-complex-double-float-initial-element" :category +vector+
:test-fn
#'(lambda ()
- (let ((v (gsl-vector:make-vector 5
+ (let ((v (gsl-array:make-vector 5
:element-type
'(complex (double-float))
:initial-element
(complex 1.0d0 1.0d0)))
(ret t))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i) (complex 1.0d0 1.0d0))
+ (unless (= (gsl-array:get-element v i) (complex 1.0d0 1.0d0))
(setq ret nil)))
- (gsl-vector:free v)
+ (gsl-array:free v)
ret)))
(deftest "make-vector-complex-single-float-initial-element" :category +vector+
:test-fn
#'(lambda ()
- (let ((v (gsl-vector:make-vector 5 :element-type
+ (let ((v (gsl-array:make-vector 5 :element-type
'(complex (single-float))
:initial-element
(complex 1.0 1.0)))
(ret t))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i) (complex 1.0 1.0))
+ (unless (= (gsl-array:get-element v i) (complex 1.0 1.0))
(setq ret nil)))
- (gsl-vector:free v)
+ (gsl-array:free v)
ret)))
;; ----------------------------------------------------------------------
@@ -148,54 +148,54 @@
(deftest "make-vector-double-float-initial-contents" :category +vector+
:test-fn
#'(lambda ()
- (let ((v (gsl-vector:make-vector
+ (let ((v (gsl-array:make-vector
5
:element-type 'double-float
:initial-contents (list 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0)))
(ret t)
(val 0.0d0))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i) (incf val 1.0d0))
+ (unless (= (gsl-array:get-element v i) (incf val 1.0d0))
(setq ret nil)))
- (gsl-vector:free v)
+ (gsl-array:free v)
ret)))
(deftest "make-vector-single-float-initial-contents" :category +vector+
:test-fn
#'(lambda ()
- (let ((v (gsl-vector:make-vector
+ (let ((v (gsl-array:make-vector
5
:element-type 'single-float
:initial-contents (vector -1.0 -2.0 -3.0 -4.0 -5.0)))
(ret t)
(val 0.0))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i) (decf val 1.0))
+ (unless (= (gsl-array:get-element v i) (decf val 1.0))
(setq ret nil)))
- (gsl-vector:free v)
+ (gsl-array:free v)
ret)))
(deftest "make-vector-integer-initial-contents" :category +vector+
:test-fn
#'(lambda ()
- (let ((v (gsl-vector:make-vector
+ (let ((v (gsl-array:make-vector
5
:element-type 'integer
:initial-contents (list 1 2 3 4 5)))
(ret t)
(val 0))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i) (incf val))
+ (unless (= (gsl-array:get-element v i) (incf val))
(setq ret nil)))
- (gsl-vector:free v)
+ (gsl-array:free v)
ret)))
(deftest "make-vector-complex-double-float-initial-contents" :category +vector+
:test-fn
#'(lambda ()
- (let ((v (gsl-vector:make-vector
+ (let ((v (gsl-array:make-vector
5
:element-type '(complex (double-float))
:initial-contents
@@ -205,16 +205,16 @@
(ret t)
(val (complex 0.0d0 0.0d0)))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i)
+ (unless (= (gsl-array:get-element v i)
(incf val (complex 1.0d0 1.0d0)))
(setq ret nil)))
- (gsl-vector:free v)
+ (gsl-array:free v)
ret)))
(deftest "make-vector-complex-single-float-initial-contents" :category +vector+
:test-fn
#'(lambda ()
- (let ((v (gsl-vector:make-vector
+ (let ((v (gsl-array:make-vector
5
:element-type '(complex (single-float))
:initial-contents
@@ -224,10 +224,10 @@
(ret t)
(val (complex 0.0 0.0)))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i)
+ (unless (= (gsl-array:get-element v i)
(decf val (complex 1.0 1.0)))
(setq ret nil)))
- (gsl-vector:free v)
+ (gsl-array:free v)
ret)))
;; ----------------------------------------------------------------------
@@ -235,55 +235,55 @@
(deftest "set-all-double-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector (v 5 :element-type 'double-float)
- (gsl-vector:set-all v 5.0d0)
+ (gsl-array:with-vector (v 5 :element-type 'double-float)
+ (gsl-array:set-all v 5.0d0)
(let ((ret t))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i) 5.0d0)
+ (unless (= (gsl-array:get-element v i) 5.0d0)
(setq ret nil)))))))
(deftest "set-all-single-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector (v 5 :element-type 'single-float)
- (gsl-vector:set-all v 5.0)
+ (gsl-array:with-vector (v 5 :element-type 'single-float)
+ (gsl-array:set-all v 5.0)
(let ((ret t))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i) 5.0)
+ (unless (= (gsl-array:get-element v i) 5.0)
(setq ret nil)))))))
(deftest "set-all-integer" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector (v 5 :element-type 'integer)
- (gsl-vector:set-all v 5)
+ (gsl-array:with-vector (v 5 :element-type 'integer)
+ (gsl-array:set-all v 5)
(let ((ret t))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i) 5)
+ (unless (= (gsl-array:get-element v i) 5)
(setq ret nil)))))))
(deftest "set-all-complex-double-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v 5 :element-type '(complex (double-float)))
- (gsl-vector:set-all v (complex 5.0d0 4.0d0))
+ (gsl-array:set-all v (complex 5.0d0 4.0d0))
(let ((ret t))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i)
+ (unless (= (gsl-array:get-element v i)
(complex 5.0d0 4.0d0))
(setq ret nil)))))))
(deftest "set-all-complex-single-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v 5 :element-type '(complex (single-float)))
- (gsl-vector:set-all v (complex 5.0 4.0))
+ (gsl-array:set-all v (complex 5.0 4.0))
(let ((ret t))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i) (complex 5.0 4.0))
+ (unless (= (gsl-array:get-element v i) (complex 5.0 4.0))
(setq ret nil)))))))
;; ----------------------------------------------------------------------
@@ -291,60 +291,60 @@
(deftest "set-zero-double-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector (v 5 :element-type 'double-float)
- (gsl-vector:set-all v 5.0d0)
- (gsl-vector:set-zero v)
+ (gsl-array:with-vector (v 5 :element-type 'double-float)
+ (gsl-array:set-all v 5.0d0)
+ (gsl-array:set-zero v)
(let ((ret t))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i) 0.0d0)
+ (unless (= (gsl-array:get-element v i) 0.0d0)
(setq ret nil)))))))
(deftest "set-zero-single-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector (v 5 :element-type 'single-float)
- (gsl-vector:set-all v 5.0)
- (gsl-vector:set-zero v)
+ (gsl-array:with-vector (v 5 :element-type 'single-float)
+ (gsl-array:set-all v 5.0)
+ (gsl-array:set-zero v)
(let ((ret t))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i) 0.0)
+ (unless (= (gsl-array:get-element v i) 0.0)
(setq ret nil)))))))
(deftest "set-zero-integer" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector (v 5 :element-type 'integer)
- (gsl-vector:set-all v 5)
- (gsl-vector:set-zero v)
+ (gsl-array:with-vector (v 5 :element-type 'integer)
+ (gsl-array:set-all v 5)
+ (gsl-array:set-zero v)
(let ((ret t))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i) 0)
+ (unless (= (gsl-array:get-element v i) 0)
(setq ret nil)))))))
(deftest "set-zero-complex-double-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v 5 :element-type '(complex (double-float)))
- (gsl-vector:set-all v (complex 5.0d0 4.0d0))
- (gsl-vector:set-zero v)
+ (gsl-array:set-all v (complex 5.0d0 4.0d0))
+ (gsl-array:set-zero v)
(let ((ret t))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i)
+ (unless (= (gsl-array:get-element v i)
(complex 0.0d0 0.0d0))
(setq ret nil)))))))
(deftest "set-zero-complex-single-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v 5 :element-type '(complex (single-float)))
- (gsl-vector:set-all v (complex 5.0 4.0))
- (gsl-vector:set-zero v)
+ (gsl-array:set-all v (complex 5.0 4.0))
+ (gsl-array:set-zero v)
(let ((ret t))
(dotimes (i 5 ret)
- (unless (= (gsl-vector:get-element v i) (complex 0.0 0.0))
+ (unless (= (gsl-array:get-element v i) (complex 0.0 0.0))
(setq ret nil)))))))
;; ----------------------------------------------------------------------
@@ -352,71 +352,71 @@
(deftest "set-basis-double-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector (v 5 :element-type 'double-float)
- (gsl-vector:set-basis v 3)
+ (gsl-array:with-vector (v 5 :element-type 'double-float)
+ (gsl-array:set-basis v 3)
(let ((ret t))
(dotimes (i 5 ret)
(if (= i 3)
- (unless (= (gsl-vector:get-element v i) 1.0d0)
+ (unless (= (gsl-array:get-element v i) 1.0d0)
(setq ret nil))
- (unless (= (gsl-vector:get-element v i) 0.0d0)
+ (unless (= (gsl-array:get-element v i) 0.0d0)
(setq ret nil))))))))
(deftest "set-basis-single-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector (v 5 :element-type 'single-float)
- (gsl-vector:set-basis v 2)
+ (gsl-array:with-vector (v 5 :element-type 'single-float)
+ (gsl-array:set-basis v 2)
(let ((ret t))
(dotimes (i 5 ret)
(if (= i 2)
- (unless (= (gsl-vector:get-element v i) 1.0)
+ (unless (= (gsl-array:get-element v i) 1.0)
(setq ret nil))
- (unless (= (gsl-vector:get-element v i) 0.0)
+ (unless (= (gsl-array:get-element v i) 0.0)
(setq ret nil))))))))
(deftest "set-basis-integer" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector (v 5 :element-type 'integer)
- (gsl-vector:set-basis v 1)
+ (gsl-array:with-vector (v 5 :element-type 'integer)
+ (gsl-array:set-basis v 1)
(let ((ret t))
(dotimes (i 5 ret)
(if (= i 1)
- (unless (= (gsl-vector:get-element v i) 1)
+ (unless (= (gsl-array:get-element v i) 1)
(setq ret nil))
- (unless (= (gsl-vector:get-element v i) 0)
+ (unless (= (gsl-array:get-element v i) 0)
(setq ret nil))))))))
(deftest "set-basis-complex-double-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v 5 :element-type '(complex (double-float)))
- (gsl-vector:set-basis v 4)
+ (gsl-array:set-basis v 4)
(let ((ret t))
(dotimes (i 5 ret)
(if (= i 4)
- (unless (= (gsl-vector:get-element v i)
+ (unless (= (gsl-array:get-element v i)
(complex 1.0d0 0.0d0))
(setq ret nil))
- (unless (= (gsl-vector:get-element v i)
+ (unless (= (gsl-array:get-element v i)
(complex 0.0d0 0.0d0))
(setq ret nil))))))))
(deftest "set-basis-complex-single-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v 5 :element-type '(complex (single-float)))
- (gsl-vector:set-basis v 0)
+ (gsl-array:set-basis v 0)
(let ((ret t))
(dotimes (i 5 ret)
(if (= i 0)
- (unless (= (gsl-vector:get-element v i)
+ (unless (= (gsl-array:get-element v i)
(complex 1.0 0.0))
(setq ret nil))
- (unless (= (gsl-vector:get-element v i)
+ (unless (= (gsl-array:get-element v i)
(complex 0.0 0.0))
(setq ret nil))))))))
@@ -426,77 +426,77 @@
(deftest "set-element-double-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector (v 5 :element-type 'double-float)
- (gsl-vector:set-zero v)
- (gsl-vector:set-element v 3 6.0d0)
+ (gsl-array:with-vector (v 5 :element-type 'double-float)
+ (gsl-array:set-zero v)
+ (gsl-array:set-element v 3 6.0d0)
(let ((ret t))
(dotimes (i 5 ret)
(if (= i 3)
- (unless (= (gsl-vector:get-element v i) 6.0d0)
+ (unless (= (gsl-array:get-element v i) 6.0d0)
(setq ret nil))
- (unless (= (gsl-vector:get-element v i) 0.0d0)
+ (unless (= (gsl-array:get-element v i) 0.0d0)
(setq ret nil))))))))
(deftest "set-element-single-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector (v 5 :element-type 'single-float)
- (gsl-vector:set-zero v)
- (gsl-vector:set-element v 2 6.0)
+ (gsl-array:with-vector (v 5 :element-type 'single-float)
+ (gsl-array:set-zero v)
+ (gsl-array:set-element v 2 6.0)
(let ((ret t))
(dotimes (i 5 ret)
(if (= i 2)
- (unless (= (gsl-vector:get-element v i) 6.0)
+ (unless (= (gsl-array:get-element v i) 6.0)
(setq ret nil))
- (unless (= (gsl-vector:get-element v i) 0.0)
+ (unless (= (gsl-array:get-element v i) 0.0)
(setq ret nil))))))))
(deftest "set-element-integer" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector (v 5 :element-type 'integer)
- (gsl-vector:set-zero v)
- (gsl-vector:set-element v 1 6)
+ (gsl-array:with-vector (v 5 :element-type 'integer)
+ (gsl-array:set-zero v)
+ (gsl-array:set-element v 1 6)
(let ((ret t))
(dotimes (i 5 ret)
(if (= i 1)
- (unless (= (gsl-vector:get-element v i) 6)
+ (unless (= (gsl-array:get-element v i) 6)
(setq ret nil))
- (unless (= (gsl-vector:get-element v i) 0)
+ (unless (= (gsl-array:get-element v i) 0)
(setq ret nil))))))))
(deftest "set-element-complex-double-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v 5 :element-type '(complex (double-float)))
- (gsl-vector:set-zero v)
- (gsl-vector:set-element v 4 (complex 6.0d0 7.0d0))
+ (gsl-array:set-zero v)
+ (gsl-array:set-element v 4 (complex 6.0d0 7.0d0))
(let ((ret t))
(dotimes (i 5 ret)
(if (= i 4)
- (unless (= (gsl-vector:get-element v i)
+ (unless (= (gsl-array:get-element v i)
(complex 6.0d0 7.0d0))
(setq ret nil))
- (unless (= (gsl-vector:get-element v i)
+ (unless (= (gsl-array:get-element v i)
(complex 0.0d0 0.0d0))
(setq ret nil))))))))
(deftest "set-element-complex-single-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v 5 :element-type '(complex (single-float)))
- (gsl-vector:set-zero v)
- (gsl-vector:set-element v 0 (complex 6.0 7.0))
+ (gsl-array:set-zero v)
+ (gsl-array:set-element v 0 (complex 6.0 7.0))
(let ((ret t))
(dotimes (i 5 ret)
(if (= i 0)
- (unless (= (gsl-vector:get-element v i)
+ (unless (= (gsl-array:get-element v i)
(complex 6.0 7.0))
(setq ret nil))
- (unless (= (gsl-vector:get-element v i)
+ (unless (= (gsl-array:get-element v i)
(complex 0.0 0.0))
(setq ret nil))))))))
@@ -505,41 +505,41 @@
(deftest "isnull-double-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector (v 5 :element-type 'double-float)
- (gsl-vector:set-zero v)
- (gsl-vector:isnull v))))
+ (gsl-array:with-vector (v 5 :element-type 'double-float)
+ (gsl-array:set-zero v)
+ (gsl-array:isnull v))))
(deftest "isnull-single-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector (v 5 :element-type 'single-float)
- (gsl-vector:set-basis v 0)
- (not (gsl-vector:isnull v)))))
+ (gsl-array:with-vector (v 5 :element-type 'single-float)
+ (gsl-array:set-basis v 0)
+ (not (gsl-array:isnull v)))))
(deftest "isnull-integer" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector (v 5 :element-type 'integer)
- (gsl-vector:set-zero v)
- (gsl-vector:isnull v))))
+ (gsl-array:with-vector (v 5 :element-type 'integer)
+ (gsl-array:set-zero v)
+ (gsl-array:isnull v))))
(deftest "isnull-complex-double-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v 5 :element-type '(complex (double-float)))
- (gsl-vector:set-basis v 1)
- (not (gsl-vector:isnull v)))))
+ (gsl-array:set-basis v 1)
+ (not (gsl-array:isnull v)))))
(deftest "isnull-complex-single-float" :category +vector+
:test-fn
#'(lambda ()
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v 5 :element-type '(complex (single-float)))
- (gsl-vector:set-zero v)
- (gsl-vector:isnull v))))
+ (gsl-array:set-zero v)
+ (gsl-array:isnull v))))
;; ----------------------------------------------------------------------
@@ -547,31 +547,31 @@
:test-fn
#'(lambda ()
(let ((vec (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v 5 :element-type 'double-float :initial-contents vec)
(equalp (reverse vec)
- (gsl-vector:gsl->lisp-vector
- (gsl-vector:reverse-vector v)))))))
+ (gsl-array:gsl->lisp-vector
+ (gsl-array:reverse-vector v)))))))
(deftest "reverse-single-float" :category +vector+
:test-fn
#'(lambda ()
(let ((vec (vector 1.0 2.0 3.0 4.0 5.0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v 5 :element-type 'single-float :initial-contents vec)
(equalp (reverse vec)
- (gsl-vector:gsl->lisp-vector
- (gsl-vector:reverse-vector v)))))))
+ (gsl-array:gsl->lisp-vector
+ (gsl-array:reverse-vector v)))))))
(deftest "reverse-integer" :category +vector+
:test-fn
#'(lambda ()
(let ((vec (vector 1 2 3 4 5)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v 5 :element-type 'integer :initial-contents vec)
(equalp (reverse vec)
- (gsl-vector:gsl->lisp-vector
- (gsl-vector:reverse-vector v)))))))
+ (gsl-array:gsl->lisp-vector
+ (gsl-array:reverse-vector v)))))))
(deftest "reverse-complex-double-float" :category +vector+
@@ -580,12 +580,12 @@
(let ((vec (vector (complex 1.0d0 1.0d0) (complex 2.0d0 2.0d0)
(complex 3.0d0 3.0d0) (complex 4.0d0 4.0d0)
(complex 5.0d0 5.0d0))))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v 5 :element-type '(complex (double-float))
:initial-contents vec)
(equalp (reverse vec)
- (gsl-vector:gsl->lisp-vector
- (gsl-vector:reverse-vector v)))))))
+ (gsl-array:gsl->lisp-vector
+ (gsl-array:reverse-vector v)))))))
(deftest "reverse-complex-single-float" :category +vector+
@@ -594,12 +594,12 @@
(let ((vec (vector (complex -1.0 -1.0) (complex -2.0 -2.0)
(complex -3.0 -3.0) (complex -4.0 -4.0)
(complex -5.0 -5.0))))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v 5 :element-type '(complex (single-float))
:initial-contents vec)
(equalp (reverse vec)
- (gsl-vector:gsl->lisp-vector
- (gsl-vector:reverse-vector v)))))))
+ (gsl-array:gsl->lisp-vector
+ (gsl-array:reverse-vector v)))))))
;; ----------------------------------------------------------------------
@@ -607,39 +607,39 @@
:test-fn
#'(lambda ()
(let ((vec (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'double-float :initial-contents vec)
- (gsl-vector:write-to-file "/tmp/test.txt" v1)
- (gsl-vector:with-vector
+ (gsl-array:write-to-file "/tmp/test.txt" v1)
+ (gsl-array:with-vector
(v2 5 :element-type 'double-float
:from-file "/tmp/test.txt")
- (and (equalp vec (gsl-vector:gsl->lisp-vector v1))
- (equalp vec (gsl-vector:gsl->lisp-vector v2))))))))
+ (and (equalp vec (gsl-array:gsl->lisp-vector v1))
+ (equalp vec (gsl-array:gsl->lisp-vector v2))))))))
(deftest "read-write-single-float" :category +vector+
:test-fn
#'(lambda ()
(let ((vec (vector 1.0 2.0 3.0 4.0 5.0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'single-float :initial-contents vec)
- (gsl-vector:write-to-file "/tmp/test.txt" v1)
- (gsl-vector:with-vector
+ (gsl-array:write-to-file "/tmp/test.txt" v1)
+ (gsl-array:with-vector
(v2 5 :element-type 'single-float
:from-file "/tmp/test.txt")
- (and (equalp vec (gsl-vector:gsl->lisp-vector v1))
- (equalp vec (gsl-vector:gsl->lisp-vector v2))))))))
+ (and (equalp vec (gsl-array:gsl->lisp-vector v1))
+ (equalp vec (gsl-array:gsl->lisp-vector v2))))))))
(deftest "read-write-integer" :category +vector+
:test-fn
#'(lambda ()
(let ((vec (vector 1 2 3 4 5)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'integer :initial-contents vec)
- (gsl-vector:write-to-file "/tmp/test.txt" v1)
- (gsl-vector:with-vector
+ (gsl-array:write-to-file "/tmp/test.txt" v1)
+ (gsl-array:with-vector
(v2 5 :element-type 'integer :from-file "/tmp/test.txt")
- (and (equalp vec (gsl-vector:gsl->lisp-vector v1))
- (equalp vec (gsl-vector:gsl->lisp-vector v2))))))))
+ (and (equalp vec (gsl-array:gsl->lisp-vector v1))
+ (equalp vec (gsl-array:gsl->lisp-vector v2))))))))
(deftest "read-write-complex-double-float" :category +vector+
:test-fn
@@ -647,15 +647,15 @@
(let ((vec (vector (complex 1.0d0 1.0d0) (complex 2.0d0 2.0d0)
(complex 3.0d0 3.0d0) (complex 4.0d0 4.0d0)
(complex 5.0d0 5.0d0))))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type '(complex (double-float))
:initial-contents vec)
- (gsl-vector:write-to-file "/tmp/test.txt" v1)
- (gsl-vector:with-vector
+ (gsl-array:write-to-file "/tmp/test.txt" v1)
+ (gsl-array:with-vector
(v2 5 :element-type '(complex (double-float))
:from-file "/tmp/test.txt")
- (and (equalp vec (gsl-vector:gsl->lisp-vector v1))
- (equalp vec (gsl-vector:gsl->lisp-vector v2))))))))
+ (and (equalp vec (gsl-array:gsl->lisp-vector v1))
+ (equalp vec (gsl-array:gsl->lisp-vector v2))))))))
(deftest "read-write-complex-single-float" :category +vector+
:test-fn
@@ -663,15 +663,15 @@
(let ((vec (vector (complex 1.0 1.0) (complex 2.0 2.0)
(complex 3.0 3.0) (complex 4.0 4.0)
(complex 5.0 5.0))))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type '(complex (single-float))
:initial-contents vec)
- (gsl-vector:write-to-file "/tmp/test.txt" v1)
- (gsl-vector:with-vector
+ (gsl-array:write-to-file "/tmp/test.txt" v1)
+ (gsl-array:with-vector
(v2 5 :element-type '(complex (single-float))
:from-file "/tmp/test.txt")
- (and (equalp vec (gsl-vector:gsl->lisp-vector v1))
- (equalp vec (gsl-vector:gsl->lisp-vector v2))))))))
+ (and (equalp vec (gsl-array:gsl->lisp-vector v1))
+ (equalp vec (gsl-array:gsl->lisp-vector v2))))))))
;; ----------------------------------------------------------------------
@@ -680,38 +680,38 @@
:test-fn
#'(lambda ()
(let ((vec (vector 1.0000000000001d0 2.0d0 3.0d0 4.0d0 5.0d0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'double-float :initial-contents vec)
- (gsl-vector:write-to-binary-file "/tmp/test.bin" v1)
- (gsl-vector:with-vector (v2 5 :element-type 'double-float
+ (gsl-array:write-to-binary-file "/tmp/test.bin" v1)
+ (gsl-array:with-vector (v2 5 :element-type 'double-float
:from-binary-file "/tmp/test.bin")
- (and (equalp vec (gsl-vector:gsl->lisp-vector v1))
- (equalp vec (gsl-vector:gsl->lisp-vector v2))))))))
+ (and (equalp vec (gsl-array:gsl->lisp-vector v1))
+ (equalp vec (gsl-array:gsl->lisp-vector v2))))))))
(deftest "read-write-binary-single-float" :category +vector+
:test-fn
#'(lambda ()
(let ((vec (vector 1.0 2.0 3.0 4.0 5.0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'single-float :initial-contents vec)
- (gsl-vector:write-to-binary-file "/tmp/test.bin" v1)
- (gsl-vector:with-vector (v2 5 :element-type 'single-float
+ (gsl-array:write-to-binary-file "/tmp/test.bin" v1)
+ (gsl-array:with-vector (v2 5 :element-type 'single-float
:from-binary-file "/tmp/test.bin")
- (and (equalp vec (gsl-vector:gsl->lisp-vector v1))
- (equalp vec (gsl-vector:gsl->lisp-vector v2))))))))
+ (and (equalp vec (gsl-array:gsl->lisp-vector v1))
+ (equalp vec (gsl-array:gsl->lisp-vector v2))))))))
(deftest "read-write-binary-integer" :category +vector+
:test-fn
#'(lambda ()
(let ((vec (vector 1 2 3 4 5)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'integer :initial-contents vec)
- (gsl-vector:write-to-binary-file "/tmp/test.bin" v1)
- (gsl-vector:with-vector (v2 5 :element-type 'integer
+ (gsl-array:write-to-binary-file "/tmp/test.bin" v1)
+ (gsl-array:with-vector (v2 5 :element-type 'integer
:from-binary-file "/tmp/test.bin")
- (and (equalp vec (gsl-vector:gsl->lisp-vector v1))
- (equalp vec (gsl-vector:gsl->lisp-vector v2))))))))
+ (and (equalp vec (gsl-array:gsl->lisp-vector v1))
+ (equalp vec (gsl-array:gsl->lisp-vector v2))))))))
(deftest "read-write-binary-complex-double-float" :category +vector+
:test-fn
@@ -719,15 +719,15 @@
(let ((vec (vector (complex 1.0d0 1.0d0) (complex 2.0d0 2.0d0)
(complex 3.0d0 3.0d0) (complex 4.0d0 4.0d0)
(complex 5.0d0 5.0d0))))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type '(complex (double-float))
:initial-contents vec)
- (gsl-vector:write-to-binary-file "/tmp/test.bin" v1)
- (gsl-vector:with-vector
+ (gsl-array:write-to-binary-file "/tmp/test.bin" v1)
+ (gsl-array:with-vector
(v2 5 :element-type '(complex (double-float))
:from-binary-file "/tmp/test.bin")
- (and (equalp vec (gsl-vector:gsl->lisp-vector v1))
- (equalp vec (gsl-vector:gsl->lisp-vector v2))))))))
+ (and (equalp vec (gsl-array:gsl->lisp-vector v1))
+ (equalp vec (gsl-array:gsl->lisp-vector v2))))))))
(deftest "read-write-binary-complex-single-float" :category +vector+
:test-fn
@@ -735,15 +735,15 @@
(let ((vec (vector (complex 1.0 1.0) (complex 2.0 2.0)
(complex 3.0 3.0) (complex 4.0 4.0)
(complex 5.0 5.0))))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type '(complex (single-float))
:initial-contents vec)
- (gsl-vector:write-to-binary-file "/tmp/test.bin" v1)
- (gsl-vector:with-vector
+ (gsl-array:write-to-binary-file "/tmp/test.bin" v1)
+ (gsl-array:with-vector
(v2 5 :element-type '(complex (single-float))
:from-binary-file "/tmp/test.bin")
- (and (equalp vec (gsl-vector:gsl->lisp-vector v1))
- (equalp vec (gsl-vector:gsl->lisp-vector v2))))))))
+ (and (equalp vec (gsl-array:gsl->lisp-vector v1))
+ (equalp vec (gsl-array:gsl->lisp-vector v2))))))))
;; ----------------------------------------------------------------------
@@ -753,33 +753,33 @@
(let ((vec (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0))
(v2)
(res))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'double-float :initial-contents vec)
- (setq v2 (gsl-vector:copy v1))
- (setq res (equalp (gsl-vector:gsl->lisp-vector v1)
- (gsl-vector:gsl->lisp-vector v2)))
- (gsl-vector:free v2))
+ (setq v2 (gsl-array:copy v1))
+ (setq res (equalp (gsl-array:gsl->lisp-vector v1)
+ (gsl-array:gsl->lisp-vector v2)))
+ (gsl-array:free v2))
res)))
(deftest "copy-single-float" :category +vector+
:test-fn
#'(lambda ()
(let ((vec (vector 1.0 2.0 3.0 4.0 5.0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'single-float :initial-contents vec)
- (gsl-vector:with-vector-copy (v2 v1)
- (and (equalp vec (gsl-vector:gsl->lisp-vector v1))
- (equalp vec (gsl-vector:gsl->lisp-vector v2))))))))
+ (gsl-array:with-vector-copy (v2 v1)
+ (and (equalp vec (gsl-array:gsl->lisp-vector v1))
+ (equalp vec (gsl-array:gsl->lisp-vector v2))))))))
(deftest "copy-integer" :category +vector+
:test-fn
#'(lambda ()
(let ((vec (vector 1 2 3 4 5)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'integer :initial-contents vec)
- (gsl-vector:with-vector-copy (v2 v1)
- (and (equalp vec (gsl-vector:gsl->lisp-vector v1))
- (equalp vec (gsl-vector:gsl->lisp-vector v2))))))))
+ (gsl-array:with-vector-copy (v2 v1)
+ (and (equalp vec (gsl-array:gsl->lisp-vector v1))
+ (equalp vec (gsl-array:gsl->lisp-vector v2))))))))
(deftest "copy-complex-double-float" :category +vector+
:test-fn
@@ -787,12 +787,12 @@
(let ((vec (vector (complex 1.0d0 1.0d0) (complex 2.0d0 2.0d0)
(complex 3.0d0 3.0d0) (complex 4.0d0 4.0d0)
(complex 5.0d0 5.0d0))))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type '(complex (double-float))
:initial-contents vec)
- (gsl-vector:with-vector-copy (v2 v1)
- (and (equalp vec (gsl-vector:gsl->lisp-vector v1))
- (equalp vec (gsl-vector:gsl->lisp-vector v2))))))))
+ (gsl-array:with-vector-copy (v2 v1)
+ (and (equalp vec (gsl-array:gsl->lisp-vector v1))
+ (equalp vec (gsl-array:gsl->lisp-vector v2))))))))
(deftest "copy-complex-single-float" :category +vector+
:test-fn
@@ -800,12 +800,12 @@
(let ((vec (vector (complex 1.0 1.0) (complex 2.0 2.0)
(complex 3.0 3.0) (complex 4.0 4.0)
(complex 5.0 5.0))))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type '(complex (single-float))
:initial-contents vec)
- (gsl-vector:with-vector-copy (v2 v1)
- (and (equalp vec (gsl-vector:gsl->lisp-vector v1))
- (equalp vec (gsl-vector:gsl->lisp-vector v2))))))))
+ (gsl-array:with-vector-copy (v2 v1)
+ (and (equalp vec (gsl-array:gsl->lisp-vector v1))
+ (equalp vec (gsl-array:gsl->lisp-vector v2))))))))
;; ----------------------------------------------------------------------
@@ -815,39 +815,39 @@
#'(lambda ()
(let* ((vec-1 (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0))
(vec-2 (reverse vec-1)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'double-float :initial-contents vec-1)
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v2 5 :element-type 'double-float :initial-contents vec-2)
- (gsl-vector:swap v1 v2)
- (and (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))
- (equalp vec-1 (gsl-vector:gsl->lisp-vector v2))))))))
+ (gsl-array:swap v1 v2)
+ (and (equalp vec-2 (gsl-array:gsl->lisp-vector v1))
+ (equalp vec-1 (gsl-array:gsl->lisp-vector v2))))))))
(deftest "swap-single-float" :category +vector+
:test-fn
#'(lambda ()
(let* ((vec-1 (vector 1.0 2.0 3.0 4.0 5.0))
(vec-2 (reverse vec-1)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'single-float :initial-contents vec-1)
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v2 5 :element-type 'single-float :initial-contents vec-2)
- (gsl-vector:swap v1 v2)
- (and (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))
- (equalp vec-1 (gsl-vector:gsl->lisp-vector v2))))))))
+ (gsl-array:swap v1 v2)
+ (and (equalp vec-2 (gsl-array:gsl->lisp-vector v1))
+ (equalp vec-1 (gsl-array:gsl->lisp-vector v2))))))))
(deftest "swap-integer" :category +vector+
:test-fn
#'(lambda ()
(let* ((vec-1 (vector 1 2 3 4 5))
(vec-2 (reverse vec-1)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'integer :initial-contents vec-1)
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v2 5 :element-type 'integer :initial-contents vec-2)
- (gsl-vector:swap v1 v2)
- (and (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))
- (equalp vec-1 (gsl-vector:gsl->lisp-vector v2))))))))
+ (gsl-array:swap v1 v2)
+ (and (equalp vec-2 (gsl-array:gsl->lisp-vector v1))
+ (equalp vec-1 (gsl-array:gsl->lisp-vector v2))))))))
(deftest "swap-complex-double-float" :category +vector+
:test-fn
@@ -856,15 +856,15 @@
(complex 3.0d0 3.0d0) (complex 4.0d0 4.0d0)
(complex 5.0d0 5.0d0)))
(vec-2 (reverse vec-1)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type '(complex (double-float))
:initial-contents vec-1)
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v2 5 :element-type '(complex (double-float))
:initial-contents vec-2)
- (gsl-vector:swap v1 v2)
- (and (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))
- (equalp vec-1 (gsl-vector:gsl->lisp-vector v2))))))))
+ (gsl-array:swap v1 v2)
+ (and (equalp vec-2 (gsl-array:gsl->lisp-vector v1))
+ (equalp vec-1 (gsl-array:gsl->lisp-vector v2))))))))
(deftest "swap-complex-single-float" :category +vector+
:test-fn
@@ -873,15 +873,15 @@
(complex 3.0 3.0) (complex 4.0 4.0)
(complex 5.0 5.0)))
(vec-2 (reverse vec-1)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type '(complex (single-float))
:initial-contents vec-1)
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v2 5 :element-type '(complex (single-float))
:initial-contents vec-2)
- (gsl-vector:swap v1 v2)
- (and (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))
- (equalp vec-1 (gsl-vector:gsl->lisp-vector v2))))))))
+ (gsl-array:swap v1 v2)
+ (and (equalp vec-2 (gsl-array:gsl->lisp-vector v1))
+ (equalp vec-1 (gsl-array:gsl->lisp-vector v2))))))))
;; ----------------------------------------------------------------------
@@ -890,30 +890,30 @@
#'(lambda ()
(let ((vec-1 (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0))
(vec-2 (vector 1.0d0 2.0d0 4.0d0 3.0d0 5.0d0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'double-float :initial-contents vec-1)
- (gsl-vector:swap-elements v1 2 3)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))
+ (gsl-array:swap-elements v1 2 3)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))
(deftest "swap-elements-single-float" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 1.0 2.0 3.0 4.0 5.0))
(vec-2 (vector 1.0 2.0 4.0 3.0 5.0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'single-float :initial-contents vec-1)
- (gsl-vector:swap-elements v1 2 3)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))
+ (gsl-array:swap-elements v1 2 3)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))
(deftest "swap-elements-integer" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 1 2 3 4 5))
(vec-2 (vector 1 2 4 3 5)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'integer :initial-contents vec-1)
- (gsl-vector:swap-elements v1 2 3)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))
+ (gsl-array:swap-elements v1 2 3)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))
(deftest "swap-elements-complex-double-float" :category +vector+
:test-fn
@@ -924,11 +924,11 @@
(vec-2 (vector (complex 1.0d0 1.0d0) (complex 2.0d0 2.0d0)
(complex 4.0d0 4.0d0) (complex 3.0d0 3.0d0)
(complex 5.0d0 5.0d0))))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type '(complex (double-float))
:initial-contents vec-1)
- (gsl-vector:swap-elements v1 2 3)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))
+ (gsl-array:swap-elements v1 2 3)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))
(deftest "swap-elements-complex-single-float" :category +vector+
:test-fn
@@ -939,11 +939,11 @@
(vec-2 (vector (complex 1.0 1.0) (complex 2.0 2.0)
(complex 4.0 4.0) (complex 3.0 3.0)
(complex 5.0 5.0))))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type '(complex (single-float))
:initial-contents vec-1)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector
- (gsl-vector:swap-elements v1 2 3)))))))
+ (equalp vec-2 (gsl-array:gsl->lisp-vector
+ (gsl-array:swap-elements v1 2 3)))))))
;; ----------------------------------------------------------------------
@@ -952,36 +952,36 @@
#'(lambda ()
(let ((vec-1 (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0))
(vec-2 (vector 2.0d0 4.0d0 6.0d0 8.0d0 10.0d0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'double-float :initial-contents vec-1)
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v2 5 :element-type 'double-float :initial-contents vec-1)
- (gsl-vector:add v1 v2)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))))
+ (gsl-array:add v1 v2)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))))
(deftest "add-single-float" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 1.0 2.0 3.0 4.0 5.0))
(vec-2 (vector 2.0 4.0 6.0 8.0 10.0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'single-float :initial-contents vec-1)
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v2 5 :element-type 'single-float :initial-contents vec-1)
- (gsl-vector:add v1 v2)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))))
+ (gsl-array:add v1 v2)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))))
(deftest "add-integer" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 1 2 3 4 5))
(vec-2 (vector 2 4 6 8 10)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'integer :initial-contents vec-1)
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v2 5 :element-type 'integer :initial-contents vec-1)
- (gsl-vector:add v1 v2)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))))
+ (gsl-array:add v1 v2)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))))
;; ----------------------------------------------------------------------
@@ -991,36 +991,36 @@
#'(lambda ()
(let ((vec-1 (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0))
(vec-2 (vector 0.0d0 0.0d0 0.0d0 0.0d0 0.0d0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'double-float :initial-contents vec-1)
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v2 5 :element-type 'double-float :initial-contents vec-1)
- (gsl-vector:sub v1 v2)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))))
+ (gsl-array:sub v1 v2)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))))
(deftest "sub-single-float" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 1.0 2.0 3.0 4.0 5.0))
(vec-2 (vector 0.0 0.0 0.0 0.0 0.0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'single-float :initial-contents vec-1)
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v2 5 :element-type 'single-float :initial-contents vec-1)
- (gsl-vector:sub v1 v2)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))))
+ (gsl-array:sub v1 v2)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))))
(deftest "sub-integer" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 1 2 3 4 5))
(vec-2 (vector 0 0 0 0 0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'integer :initial-contents vec-1)
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v2 5 :element-type 'integer :initial-contents vec-1)
- (gsl-vector:sub v1 v2)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))))
+ (gsl-array:sub v1 v2)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))))
;; ----------------------------------------------------------------------
@@ -1029,36 +1029,36 @@
#'(lambda ()
(let ((vec-1 (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0))
(vec-2 (vector 1.0d0 4.0d0 9.0d0 16.0d0 25.0d0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'double-float :initial-contents vec-1)
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v2 5 :element-type 'double-float :initial-contents vec-1)
- (gsl-vector:mul v1 v2)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))))
+ (gsl-array:mul v1 v2)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))))
(deftest "mul-single-float" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 1.0 2.0 3.0 4.0 5.0))
(vec-2 (vector 1.0 4.0 9.0 16.0 25.0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'single-float :initial-contents vec-1)
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v2 5 :element-type 'single-float :initial-contents vec-1)
- (gsl-vector:mul v1 v2)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))))
+ (gsl-array:mul v1 v2)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))))
(deftest "mul-integer" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 1 2 3 4 5))
(vec-2 (vector 1 4 9 16 25)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'integer :initial-contents vec-1)
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v2 5 :element-type 'integer :initial-contents vec-1)
- (gsl-vector:mul v1 v2)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))))
+ (gsl-array:mul v1 v2)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))))
;; ----------------------------------------------------------------------
@@ -1067,36 +1067,36 @@
#'(lambda ()
(let ((vec-1 (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0))
(vec-2 (vector 1.0d0 1.0d0 1.0d0 1.0d0 1.0d0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'double-float :initial-contents vec-1)
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v2 5 :element-type 'double-float :initial-contents vec-1)
- (gsl-vector:div v1 v2)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))))
+ (gsl-array:div v1 v2)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))))
(deftest "div-single-float" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 1.0 2.0 3.0 4.0 5.0))
(vec-2 (vector 1.0 1.0 1.0 1.0 1.0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'single-float :initial-contents vec-1)
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v2 5 :element-type 'single-float :initial-contents vec-1)
- (gsl-vector:div v1 v2)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))))
+ (gsl-array:div v1 v2)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))))
(deftest "div-integer" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 1 2 3 4 5))
(vec-2 (vector 1 1 1 1 1)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'integer :initial-contents vec-1)
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v2 5 :element-type 'integer :initial-contents vec-1)
- (gsl-vector:div v1 v2)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1)))))))
+ (gsl-array:div v1 v2)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1)))))))
;; ----------------------------------------------------------------------
@@ -1106,30 +1106,30 @@
#'(lambda ()
(let ((vec-1 (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0))
(vec-2 (vector 10.0d0 20.0d0 30.0d0 40.0d0 50.0d0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'double-float :initial-contents vec-1)
- (gsl-vector:scale v1 10.0d0)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))
+ (gsl-array:scale v1 10.0d0)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))
(deftest "scale-single-float" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 1.0 2.0 3.0 4.0 5.0))
(vec-2 (vector 10.0 20.0 30.0 40.0 50.0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'single-float :initial-contents vec-1)
- (gsl-vector:scale v1 10.0)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))
+ (gsl-array:scale v1 10.0)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))
(deftest "scale-integer" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 1 2 3 4 5))
(vec-2 (vector 10 20 30 40 50)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'integer :initial-contents vec-1)
- (gsl-vector:scale v1 10)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))
+ (gsl-array:scale v1 10)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))
;; ----------------------------------------------------------------------
@@ -1139,30 +1139,30 @@
#'(lambda ()
(let ((vec-1 (vector 1.0d0 2.0d0 3.0d0 4.0d0 5.0d0))
(vec-2 (vector 11.0d0 12.0d0 13.0d0 14.0d0 15.0d0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'double-float :initial-contents vec-1)
- (gsl-vector:add-constant v1 10.0d0)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))
+ (gsl-array:add-constant v1 10.0d0)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))
(deftest "add-constant-single-float" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 1.0 2.0 3.0 4.0 5.0))
(vec-2 (vector 11.0 12.0 13.0 14.0 15.0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'single-float :initial-contents vec-1)
- (gsl-vector:add-constant v1 10.0)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))
+ (gsl-array:add-constant v1 10.0)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))
(deftest "add-constant-integer" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 1 2 3 4 5))
(vec-2 (vector 11 12 13 14 15)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'integer :initial-contents vec-1)
- (gsl-vector:add-constant v1 10)
- (equalp vec-2 (gsl-vector:gsl->lisp-vector v1))))))
+ (gsl-array:add-constant v1 10)
+ (equalp vec-2 (gsl-array:gsl->lisp-vector v1))))))
;; ----------------------------------------------------------------------
@@ -1171,27 +1171,27 @@
#'(lambda ()
(let ((vec-1 (vector 4.0d0 5.0d0 1.0d0 2.0d0 3.0d0))
(max-val 5.0d0))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'double-float :initial-contents vec-1)
- (= max-val (gsl-vector:max-value v1))))))
+ (= max-val (gsl-array:max-value v1))))))
(deftest "max-value-single-float" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 4.0 5.0 1.0 2.0 3.0))
(max-val 5.0))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'single-float :initial-contents vec-1)
- (= max-val (gsl-vector:max-value v1))))))
+ (= max-val (gsl-array:max-value v1))))))
(deftest "max-value-integer" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 4 5 1 2 3))
(max-val 5))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'integer :initial-contents vec-1)
- (= max-val (gsl-vector:max-value v1))))))
+ (= max-val (gsl-array:max-value v1))))))
;; ----------------------------------------------------------------------
@@ -1200,27 +1200,27 @@
#'(lambda ()
(let ((vec-1 (vector 4.0d0 5.0d0 1.0d0 2.0d0 3.0d0))
(min-val 1.0d0))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'double-float :initial-contents vec-1)
- (= min-val (gsl-vector:min-value v1))))))
+ (= min-val (gsl-array:min-value v1))))))
(deftest "min-value-single-float" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 4.0 5.0 1.0 2.0 3.0))
(min-val 1.0))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'single-float :initial-contents vec-1)
- (= min-val (gsl-vector:min-value v1))))))
+ (= min-val (gsl-array:min-value v1))))))
(deftest "min-value-integer" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 4 5 1 2 3))
(min-val 1))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'integer :initial-contents vec-1)
- (= min-val (gsl-vector:min-value v1))))))
+ (= min-val (gsl-array:min-value v1))))))
;; ----------------------------------------------------------------------
@@ -1229,27 +1229,27 @@
#'(lambda ()
(let ((vec-1 (vector 4.0d0 5.0d0 1.0d0 2.0d0 3.0d0))
(max-idx 1))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'double-float :initial-contents vec-1)
- (= max-idx (gsl-vector:max-index v1))))))
+ (= max-idx (gsl-array:max-index v1))))))
(deftest "max-index-single-float" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 4.0 5.0 1.0 2.0 3.0))
(max-idx 1))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'single-float :initial-contents vec-1)
- (= max-idx (gsl-vector:max-index v1))))))
+ (= max-idx (gsl-array:max-index v1))))))
(deftest "max-index-integer" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 4 5 1 2 3))
(max-idx 1))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'integer :initial-contents vec-1)
- (= max-idx (gsl-vector:max-index v1))))))
+ (= max-idx (gsl-array:max-index v1))))))
;; ----------------------------------------------------------------------
@@ -1258,27 +1258,27 @@
#'(lambda ()
(let ((vec-1 (vector 4.0d0 5.0d0 1.0d0 2.0d0 3.0d0))
(min-idx 2))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'double-float :initial-contents vec-1)
- (= min-idx (gsl-vector:min-index v1))))))
+ (= min-idx (gsl-array:min-index v1))))))
(deftest "min-index-single-float" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 4.0 5.0 1.0 2.0 3.0))
(min-idx 2))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'single-float :initial-contents vec-1)
- (= min-idx (gsl-vector:min-index v1))))))
+ (= min-idx (gsl-array:min-index v1))))))
(deftest "min-index-integer" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 4 5 1 2 3))
(min-idx 2))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'integer :initial-contents vec-1)
- (= min-idx (gsl-vector:min-index v1))))))
+ (= min-idx (gsl-array:min-index v1))))))
;; ----------------------------------------------------------------------
@@ -1287,27 +1287,27 @@
#'(lambda ()
(let ((vec-1 (vector 4.0d0 5.0d0 1.0d0 2.0d0 3.0d0))
(min-max-idx '(2 1)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'double-float :initial-contents vec-1)
- (equal min-max-idx (gsl-vector:min-max-indicies v1))))))
+ (equal min-max-idx (gsl-array:min-max-indicies v1))))))
(deftest "min-max-indicies-single-float" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 4.0 5.0 1.0 2.0 3.0))
(min-max-idx '(2 1)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'single-float :initial-contents vec-1)
- (equal min-max-idx (gsl-vector:min-max-indicies v1))))))
+ (equal min-max-idx (gsl-array:min-max-indicies v1))))))
(deftest "min-max-indicies-integer" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 4 5 1 2 3))
(min-max-idx '(2 1)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'integer :initial-contents vec-1)
- (equal min-max-idx (gsl-vector:min-max-indicies v1))))))
+ (equal min-max-idx (gsl-array:min-max-indicies v1))))))
;; ----------------------------------------------------------------------
@@ -1316,25 +1316,25 @@
#'(lambda ()
(let ((vec-1 (vector 4.0d0 5.0d0 1.0d0 2.0d0 3.0d0))
(min-max-val '(1.0d0 5.0d0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'double-float :initial-contents vec-1)
- (equal min-max-val (gsl-vector:min-max-values v1))))))
+ (equal min-max-val (gsl-array:min-max-values v1))))))
(deftest "min-max-values-single-float" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 4.0 5.0 1.0 2.0 3.0))
(min-max-val '(1.0 5.0)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'single-float :initial-contents vec-1)
- (equal min-max-val (gsl-vector:min-max-values v1))))))
+ (equal min-max-val (gsl-array:min-max-values v1))))))
(deftest "min-max-values-integer" :category +vector+
:test-fn
#'(lambda ()
(let ((vec-1 (vector 4 5 1 2 3))
(min-max-val '(1 5)))
- (gsl-vector:with-vector
+ (gsl-array:with-vector
(v1 5 :element-type 'integer :initial-contents vec-1)
- (equal min-max-val (gsl-vector:min-max-values v1))))))
+ (equal min-max-val (gsl-array:min-max-values v1))))))
More information about the Cl-gsl-cvs
mailing list