matrix-mean.lisp 7.98 KB
Newer Older
1 2 3 4 5 6 7 8
;; Regression test MATRIX-MEAN for GSLL, automatically generated

(in-package :gsl)

(LISP-UNIT:DEFINE-TEST MATRIX-MEAN
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST 7.149999883439806d0)
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
9 10 11 12 13 14
                         (LET ((M1
                                (MAKE-MARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS
                                             '((-34.5 8.24 3.29)
                                               (-8.93 34.12 -6.15)
                                               (49.27 -13.49 32.5)))))
                           (MEAN M1))))
15 16
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 7.15d0)
                                                          (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
17 18 19 20 21 22 23 24 25 26 27 28 29 30
                                                           (LET ((M1
                                                                  (MAKE-MARRAY
                                                                   'DOUBLE-FLOAT
                                                                   :INITIAL-CONTENTS
                                                                   '((-34.5d0
                                                                      8.24d0
                                                                      3.29d0)
                                                                     (-8.93d0
                                                                      34.12d0
                                                                      -6.15d0)
                                                                     (49.27d0
                                                                      -13.49d0
                                                                      32.5d0)))))
                                                             (MEAN M1))))
31 32
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 9.0d0)
                                                          (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
33 34 35 36 37 38 39 40 41 42 43 44
                                                           (LET ((M1
                                                                  (MAKE-MARRAY
                                                                   '(SIGNED-BYTE
                                                                     8)
                                                                   :INITIAL-CONTENTS
                                                                   '((-64 -68
                                                                      71)
                                                                     (-91 52
                                                                      -10)
                                                                     (73 -5
                                                                      123)))))
                                                             (MEAN M1))))
45 46 47
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST 132.55555555555554d0)
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
48 49 50 51 52 53
                         (LET ((M1
                                (MAKE-MARRAY '(UNSIGNED-BYTE 8)
                                             :INITIAL-CONTENTS
                                             '((67 44 189) (116 163 140)
                                               (161 215 98)))))
                           (MEAN M1))))
54 55
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 9.0d0)
                                                          (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
56 57 58 59 60 61 62 63 64 65 66 67
                                                           (LET ((M1
                                                                  (MAKE-MARRAY
                                                                   '(SIGNED-BYTE
                                                                     16)
                                                                   :INITIAL-CONTENTS
                                                                   '((-64 -68
                                                                      71)
                                                                     (-91 52
                                                                      -10)
                                                                     (73 -5
                                                                      123)))))
                                                             (MEAN M1))))
68 69 70
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST 132.55555555555554d0)
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
71 72 73 74 75 76
                         (LET ((M1
                                (MAKE-MARRAY '(UNSIGNED-BYTE 16)
                                             :INITIAL-CONTENTS
                                             '((67 44 189) (116 163 140)
                                               (161 215 98)))))
                           (MEAN M1))))
77 78
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 9.0d0)
                                                          (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
79 80 81 82 83 84 85 86 87 88 89 90
                                                           (LET ((M1
                                                                  (MAKE-MARRAY
                                                                   '(SIGNED-BYTE
                                                                     32)
                                                                   :INITIAL-CONTENTS
                                                                   '((-64 -68
                                                                      71)
                                                                     (-91 52
                                                                      -10)
                                                                     (73 -5
                                                                      123)))))
                                                             (MEAN M1))))
91 92 93
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST 132.55555555555554d0)
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
94 95 96 97 98 99
                         (LET ((M1
                                (MAKE-MARRAY '(UNSIGNED-BYTE 32)
                                             :INITIAL-CONTENTS
                                             '((67 44 189) (116 163 140)
                                               (161 215 98)))))
                           (MEAN M1))))
100
		       #+int64
101 102
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 9.0d0)
                                                          (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
103 104 105 106 107 108 109 110 111 112 113 114
                                                           (LET ((M1
                                                                  (MAKE-MARRAY
                                                                   '(SIGNED-BYTE
                                                                     64)
                                                                   :INITIAL-CONTENTS
                                                                   '((-64 -68
                                                                      71)
                                                                     (-91 52
                                                                      -10)
                                                                     (73 -5
                                                                      123)))))
                                                             (MEAN M1))))
115
		       #+int64
116 117 118
                       (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
                        (LIST 132.55555555555554d0)
                        (MULTIPLE-VALUE-LIST
Liam Healy's avatar
Liam Healy committed
119 120 121 122 123 124
                         (LET ((M1
                                (MAKE-MARRAY '(UNSIGNED-BYTE 64)
                                             :INITIAL-CONTENTS
                                             '((67 44 189) (116 163 140)
                                               (161 215 98)))))
                           (MEAN M1)))))
125