Changeset 405df618a38d3b8ddaae691f865bbf068e931ac5

Timestamp:

03/21/12 09:35:22 (14 months ago)

Author:

Raymond Toy <toy.raymond@…>

Children:

0d5870201359817c679921a2d740fdd1697469b2, cc75066d522e0d1509f4a738908b913131c6deba

Parents:

c388f81713d7b2a483000d3cee1af030ed2c1cac

git-committer:

Raymond Toy <toy.raymond@…> (03/21/12 09:35:22)

Message:

Add Euler's constant and fix dependencies.

oct.asd:
o qd-const2 depends on qd-const.

qd-const.lisp:
o Add qd value for Euler's constant

qd-const2.lisp:
o Add qd-real value for Euler's constant.

Files:

• oct.asd (modified) (1 diff)
• qd-const.lisp (modified) (1 diff)
• qd-const2.lisp (modified) (1 diff)

oct.asd

@@ -53 +53 @@
    (:file "qd-class"
           :depends-on ("qd-fun"))
-   (:file "qd-const2" :depends-on ("qd-class"))
+   (:file "qd-const2" :depends-on ("qd-class" "qd-const"))
    (:file "qd-methods"
           :depends-on ("qd-class"))

qd-const.lisp

@@ -3753 +3753 @@
    "A table of cos(k/1024) for k = 1 to 256")
 
+(defconstant +qd-%gamma+
+  (multiple-value-bind (q0 q1 q2 q3)
+      (renorm-5 (scale-float (float 5199096506725913 1.0d0) -53)
+                (scale-float (float -6416270704492459 1.0d0) -110)
+                (scale-float (float -5430032177773649 1.0d0) -164)
+                (scale-float (float 7163319935831933 1.0d0) -218)
+                (scale-float (float -6507777405222912 1.0d0) -273))
+    (%make-qd-d q0 q1 q2 q3))
+  "Quad-double value of Euler's constant")
 
 #||

qd-const2.lisp

@@ -83 +83 @@
   (make-instance 'qd-real :value (make-qd-d 1d0))
   "QD-REAL representation of 1")
+
+(defconstant +%gamma+
+  (make-instance 'qd-real :value octi::+qd-%gamma+)
+  "Euler's constant")