suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added fllog2near

Browse Source
This commit is contained in:
Neil Toronto 2014-08-19 17:25:08 -04:00
parent 1cb16f6c36
commit 8cb4214586
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/math-pkgs/math-lib/math/private/flonum/flonum-exp.rkt
View File

@ -6,7 +6,7 @@
"flonum-polyfun.rkt"
"../unsafe.rkt")
(provide flexpm1 flexpsqr flgauss flexp1p flexp2)
(provide flexpm1 flexpsqr flgauss flexp1p flexp2 flpow2near)
(define expm1-poly-numer
(make-flpolyfun
@ -105,4 +105,8 @@
(unsafe-vector-ref flexp2s (fl->exact-integer (fl+ x 1074.0))))]
[else (flexpt 2.0 x)]))
(: flpow2near (-> Flonum Flonum))
(define (flpow2near a)
(flexp2 (flmax -1074.0 (flmin 1023.0 (flround (fl/ (fllog (flabs a)) (fllog 2.0)))))))
) ; begin-encourage-inline