Changeset 9d3daf46c3e396941c8eb43209a45c0105217840
 Timestamp:
 03/21/12 18:58:02 (2 years ago)
 Author:
 Raymond Toy <toy.raymond@…>
 Children:
 4b332ed2140e56c6fcaa689e6b8a48be36c988f6
 Parents:
 0d5870201359817c679921a2d740fdd1697469b2
 gitcommitter:
 Raymond Toy <toy.raymond@…> (03/21/12 18:58:02)
 Message:

Add a few tests for expintegrale. More needed.
 Files:

Legend:
 Unmodified
 Added
 Removed

r612465

r9d3daf


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