[oct-cvs] Oct commit: oct qd-const.lisp

[rtoy]

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+