Update of /project/oct/cvsroot/oct In directory clnet:/tmp/cvs-serv15775
Modified Files: qd-const.lisp Log Message: Add +2/pi-bits+, 1584 bits of 2/pi.
--- /project/oct/cvsroot/oct/qd-const.lisp 2007/10/11 17:47:08 1.17 +++ /project/oct/cvsroot/oct/qd-const.lisp 2007/10/14 18:38:14 1.18 @@ -31,6 +31,12 @@ (defconstant +qd-one+ (make-qd-d 1d0))
+;; The bits of 2/pi. Scale these bits by 2^(-1584) and you'll get +;; 2/pi. These are used for accurate argument reduction for the trig +;; functions. +(defconstant +2/pi-bits+ + #xA2F9836E4E441529FC2757D1F534DDC0DB6295993C439041FE5163ABDEBBC561B7246E3A424DD2E006492EEA09D1921CFE1DEB1CB129A73EE88235F52EBB4484E99C7026B45F7E413991D639835339F49C845F8BBDF9283B1FF897FFDE05980FEF2F118B5A0A6D1F6D367ECF27CB09B74F463F669E5FEA2D7527BAC7EBE5F17B3D0739F78A5292EA6BFB5FB11F8D5D0856033046FC7B6BABF0CFBC209AF4361DA9E391615EE61B086599855F14A068408DFFD8804D73273106061556CA73A8C960E27BC08C6B) + ;; 3.1415926535897932384626433832795028841971693993751058209749445923078L0 ;; #q3.1415926535897932384626433832795028841971693993751058209749445923q0 (defconstant +qd-pi+