Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
antik
gsll
Commits
ee46e1e1
Commit
ee46e1e1
authored
Aug 18, 2011
by
Liam M. Healy
Browse files
Results of test matrix-product-hermitian as single-floats
parent
019cc0e3
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/matrix-product-hermitian.lisp
View file @
ee46e1e1
...
...
@@ -22,12 +22,12 @@
(
LISP-UNIT:DEFINE-TEST
MATRIX-PRODUCT-HERMITIAN
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#2A
((
#C
(
161635.16
-134299.77
)
#C
(
93510.016
-191870.72
)
#C
(
55739.336
13621.439
))
(
#C
(
-68526.41
125188.29
)
#C
(
46318.242
59787.605
)
#C
(
-28142.984
5816.9385
))
(
#C
(
-139503.38
55690.902
)
#C
(
2898.8164
49116.78
)
#C
(
-57882.3
-176350.63
))))
#2A
((
#C
(
161635.16
f0
-134299.77
f0
)
#C
(
93510.016
f0
-191870.72
f0
)
#C
(
55739.336
f0
13621.439
f0
))
(
#C
(
-68526.41
f0
125188.29
f0
)
#C
(
46318.242
f0
59787.605
f0
)
#C
(
-28142.984
f0
5816.9385
f0
))
(
#C
(
-139503.38
f0
55690.902
f0
)
#C
(
2898.8164
f0
49116.78
f0
)
#C
(
-57882.3
f0
-176350.63
f0
))))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
...
...
@@ -93,8 +93,8 @@
(
MATRIX-PRODUCT-HERMITIAN
M1
M2
M3
S1
S2
)))))
(
LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(
LIST
#(
#C
(
117171.67
19582.54
)
#C
(
18787.117
29534.742
)
#C
(
-104992.03
72729.13
)))
#(
#C
(
117171.67
f0
19582.54
f0
)
#C
(
18787.117
f0
29534.742
f0
)
#C
(
-104992.03
f0
72729.13
f0
)))
(
MULTIPLE-VALUE-LIST
(
LET
((
M1
(
GRID:MAKE-FOREIGN-ARRAY
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment