Show
Ignore:
Timestamp:
03/21/12 09:35:22 (2 years 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:
1 modified

Legend:

Unmodified
Added
Removed
  • qd-const.lisp

    r8ca031 r405df6  
    37533753   "A table of cos(k/1024) for k = 1 to 256") 
    37543754 
     3755(defconstant +qd-%gamma+ 
     3756  (multiple-value-bind (q0 q1 q2 q3) 
     3757      (renorm-5 (scale-float (float 5199096506725913 1.0d0) -53) 
     3758                (scale-float (float -6416270704492459 1.0d0) -110) 
     3759                (scale-float (float -5430032177773649 1.0d0) -164) 
     3760                (scale-float (float 7163319935831933 1.0d0) -218) 
     3761                (scale-float (float -6507777405222912 1.0d0) -273)) 
     3762    (%make-qd-d q0 q1 q2 q3)) 
     3763  "Quad-double value of Euler's constant") 
    37553764 
    37563765#||