Changeset 9d3daf46c3e396941c8eb43209a45c0105217840

Show
Ignore:
Timestamp:
03/21/12 18:58:02 (2 years ago)
Author:
Raymond Toy <toy.raymond@…>
Children:
4b332ed2140e56c6fcaa689e6b8a48be36c988f6
Parents:
0d5870201359817c679921a2d740fdd1697469b2
git-committer:
Raymond Toy <toy.raymond@…> (03/21/12 18:58:02)
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • rt-tests.lisp

    r612465 r9d3daf  
    13641364  nil) 
    13651365 
     1366(rt:deftest expintegral-e.1d 
     1367    (let* ((z 1d0) 
     1368           (e (exp-integral-e 0 z)) 
     1369           (true (/ (exp (- z)) z))) 
     1370      (check-accuracy 53 e true)) 
     1371  nil) 
     1372 
     1373(rt:deftest expintegral-e.1q 
     1374    (let* ((z #q1) 
     1375           (e (exp-integral-e 0 z)) 
     1376           (true (/ (exp (- z)) z))) 
     1377      (check-accuracy 212 e true)) 
     1378  nil) 
     1379 
     1380(rt:deftest expintegral-e.2d 
     1381    (let* ((z 15d0) 
     1382           (e (exp-integral-e 0 z)) 
     1383           (true (/ (exp (- z)) z))) 
     1384      (check-accuracy 53 e true)) 
     1385  nil) 
     1386 
     1387(rt:deftest expintegral-e.2q 
     1388    (let* ((z #q15) 
     1389           (e (exp-integral-e 0 z)) 
     1390           (true (/ (exp (- z)) z))) 
     1391      (check-accuracy 212 e true)) 
     1392  nil) 
     1393 
     1394(rt:deftest expintegral-e.3d 
     1395    (let* ((e (exp-integral-e 2 1d0)) 
     1396           (true 0.14849550677592204791835999d0)) 
     1397      (check-accuracy 47.5 e true)) 
     1398  nil)