Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
c93f7842
Commit
c93f7842
authored
Sep 05, 2003
by
pfdietz
Browse files
Removed problematic /.7
parent
f22e3af1
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/divide.lsp
View file @
c93f7842
...
...
@@ -96,12 +96,7 @@
collect (list i c r))
nil)
;;; This test will fail if you compute complex reciprocals
;;; naively. If z = a + bi, the naive approach computes
;;; z^-1 = c + di as c = a/(a^2+b^2), d = -b/(a^2+b^2).
;;; That loses precision, however. Instead, the implementation
;;; should do c = 1/(a+b/a), d = -1/(a/b+b).
#|
(deftest /.7
(loop for bound in (list 1.0s5 1.0f10 1.0d20 1.0l20)
nconc
...
...
@@ -112,6 +107,7 @@
unless (= r (complex 0 (- (/ i))))
collect (list i c r (complex 0 (- (/ i))))))
nil)
|#
(deftest /.8
(loop for bound in (list 1.0s5 1.0f10 1.0d20 1.0l20)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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