Changeset 0823ac
 Timestamp:
 04/12/12 16:46:59 (2 years ago)
 Branches:
 master
 Children:
 235ac2
 Parents:
 139e15
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

rttests.lisp
r139e15 r0823ac 1653 1653 for b = (besselj #q0.5 x) 1654 1654 for true = (* (/ (sin x) (sqrt x)) (sqrt (/ 2 (floatpi #q1)))) 1655 for result = (checkaccuracy 1 73.28b true)1655 for result = (checkaccuracy 169.45 b true) 1656 1656 when result 1657 1657 append (list (list (list k x) result))) … … 1670 1670 (true (* (/ (sin x) (sqrt x)) (sqrt (/ 2 (floatpi #q1)))))) 1671 1671 (checkaccuracy 173.28 b true)) 1672 nil) 1673 1674 (rt:deftest besselj1/2.q.1.c 1675 (let* ((x #q1.0360263937639582798798376485114581552570020473846457752365459851056q0) 1676 (b (besselj #q0.5 x)) 1677 (true (* (/ (sin x) (sqrt x)) (sqrt (/ 2 (floatpi #q1)))))) 1678 (checkaccuracy 169.45 b true)) 1672 1679 nil) 1673 1680
Note: See TracChangeset
for help on using the changeset viewer.