Changeset 405df6


Ignore:
Timestamp:
03/21/12 16:35:22 (3 years ago)
Author:
Raymond Toy <toy.raymond@…>
Branches:
master
Children:
0d5870, b1d9be
Parents:
c388f8
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:
3 edited

Legend:

Unmodified
Added
Removed
  • oct.asd

    r1efd5f r405df6  
    5353   (:file "qd-class"
    5454          :depends-on ("qd-fun"))
    55    (:file "qd-const2" :depends-on ("qd-class"))
     55   (:file "qd-const2" :depends-on ("qd-class" "qd-const"))
    5656   (:file "qd-methods"
    5757          :depends-on ("qd-class"))
  • 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#||
  • qd-const2.lisp

    rd26505 r405df6  
    8383  (make-instance 'qd-real :value (make-qd-d 1d0))
    8484  "QD-REAL representation of 1")
     85
     86(defconstant +%gamma+
     87  (make-instance 'qd-real :value octi::+qd-%gamma+)
     88  "Euler's constant")
Note: See TracChangeset for help on using the changeset viewer.