Skip to content
Snippets Groups Projects
Commit c93f7842 authored by pfdietz's avatar pfdietz
Browse files

Removed problematic /.7

parent f22e3af1
No related branches found
No related tags found
No related merge requests found
...@@ -96,12 +96,7 @@ ...@@ -96,12 +96,7 @@
collect (list i c r)) collect (list i c r))
nil) 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 (deftest /.7
(loop for bound in (list 1.0s5 1.0f10 1.0d20 1.0l20) (loop for bound in (list 1.0s5 1.0f10 1.0d20 1.0l20)
nconc nconc
...@@ -112,6 +107,7 @@ ...@@ -112,6 +107,7 @@
unless (= r (complex 0 (- (/ i)))) unless (= r (complex 0 (- (/ i))))
collect (list i c r (complex 0 (- (/ i)))))) collect (list i c r (complex 0 (- (/ i))))))
nil) nil)
|#
(deftest /.8 (deftest /.8
(loop for bound in (list 1.0s5 1.0f10 1.0d20 1.0l20) (loop for bound in (list 1.0s5 1.0f10 1.0d20 1.0l20)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment