Commit 793166a0 authored by Raymond Toy's avatar Raymond Toy

Reduce size of the atan partition and node tables by half.

qd-const.lisp:
o Update tables and generator to use tables with only half as many
  entries as before. This is because atan-qd/taylor never needs to
  compute directly for x > 1.

qd-fun.lisp:
o Use table length for binary search, so we're independent of other
  constants.
o Remove FIXME.
parent 4d09f5a3
This diff is collapsed.
......@@ -1117,10 +1117,8 @@ is the cosine of A"
;; the smallest entry greater than x. Return the index of the
;; entry.
(let* ((low 0)
(high (1- octi::+qd-atan-partition-size+))
(high (length octi::+qd-atan-partition+))
(mid (ash (+ low high) -1)))
;; high starts one less than the end because the end actually has junk.
;; FIXME: Remove that junk last element.
(loop
(if (qd-< x (aref octi::+qd-atan-partition+ mid))
(setf high mid)
......
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