Changeset 9d3daf


Ignore:
Timestamp:
03/22/12 01:58:02 (3 years ago)
Author:
Raymond Toy <toy.raymond@…>
Branches:
master
Children:
4b332e
Parents:
0d5870
Message:

Add a few tests for exp-integral-e. More needed.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • rt-tests.lisp

    r612465 r9d3daf  
    13691369  nil)
    13701370
     1371(rt:deftest expintegral-e.1d
     1372    (let* ((z 1d0)
     1373           (e (exp-integral-e 0 z))
     1374           (true (/ (exp (- z)) z)))
     1375      (check-accuracy 53 e true))
     1376  nil)
     1377
     1378(rt:deftest expintegral-e.1q
     1379    (let* ((z #q1)
     1380           (e (exp-integral-e 0 z))
     1381           (true (/ (exp (- z)) z)))
     1382      (check-accuracy 212 e true))
     1383  nil)
     1384
     1385(rt:deftest expintegral-e.2d
     1386    (let* ((z 15d0)
     1387           (e (exp-integral-e 0 z))
     1388           (true (/ (exp (- z)) z)))
     1389      (check-accuracy 53 e true))
     1390  nil)
     1391
     1392(rt:deftest expintegral-e.2q
     1393    (let* ((z #q15)
     1394           (e (exp-integral-e 0 z))
     1395           (true (/ (exp (- z)) z)))
     1396      (check-accuracy 212 e true))
     1397  nil)
     1398
     1399(rt:deftest expintegral-e.3d
     1400    (let* ((e (exp-integral-e 2 1d0))
     1401           (true 0.14849550677592204791835999d0))
     1402      (check-accuracy 47.5 e true))
     1403  nil)
Note: See TracChangeset for help on using the changeset viewer.