Commit 2f5e75e6 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

fix mistake with sign

parent 0674c0d2
...@@ -129,8 +129,8 @@ ...@@ -129,8 +129,8 @@
;;; ieee-fp tests ;;; ieee-fp tests
(deftest atan.ieee.1 :description "Verify if atan handles 0.0 correctly" (deftest atan.ieee.1 :description "Verify if atan handles 0.0 correctly"
(flet ((+pi-p (elt) (< (abs (- pi elt)) 0.01)) (flet ((+pi-p (elt) (< (abs (- pi elt)) 0.01))
(+pi/2-p (elt) (< (abs (+ (/ pi 2) elt)) 0.01)) (+pi/2-p (elt) (< (abs (- (/ pi 2) elt)) 0.01))
(-pi/2-p (elt) (< (abs (- (/ pi 2) elt)) 0.01))) (-pi/2-p (elt) (< (abs (+ (/ pi 2) elt)) 0.01)))
;; (atan +-0 +(anything-but-nan)) -> +-0 ;; (atan +-0 +(anything-but-nan)) -> +-0
;; (atan +-0 -(anything-but-nan)) -> +-pi ;; (atan +-0 -(anything-but-nan)) -> +-pi
;; (atan +-(anything-but-0/nan) 0) -> +-pi/2 ;; (atan +-(anything-but-0/nan) 0) -> +-pi/2
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment