Changeset 0823acf49a91cbdb9a3e7f1faae2efe128580038

Show
Ignore:
Timestamp:
04/12/12 09:46:59 (2 years ago)
Author:
Raymond Toy <toy.raymond@…>
Children:
235ac2e4756b7c3f03815b267d292a26e8e1df37
Parents:
139e1571a14f8cbdaa8da16aab06bf37ad98d3a3
git-committer:
Raymond Toy <toy.raymond@…> (04/12/12 09:46:59)
Message:

Update accuracy for bessel-j-1/2.q test.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • rt-tests.lisp

    r139e15 r0823ac  
    16471647          for b = (bessel-j #q0.5 x) 
    16481648          for true = (* (/ (sin x) (sqrt x)) (sqrt (/ 2 (float-pi #q1)))) 
    1649           for result = (check-accuracy 173.28 b true) 
     1649          for result = (check-accuracy 169.45 b true) 
    16501650          when result 
    16511651            append (list (list (list k x) result))) 
     
    16641664           (true (* (/ (sin x) (sqrt x)) (sqrt (/ 2 (float-pi #q1)))))) 
    16651665      (check-accuracy 173.28 b true)) 
     1666  nil) 
     1667 
     1668(rt:deftest bessel-j-1/2.q.1.c 
     1669    (let* ((x #q1.0360263937639582798798376485114581552570020473846457752365459851056q0) 
     1670           (b (bessel-j #q0.5 x)) 
     1671           (true (* (/ (sin x) (sqrt x)) (sqrt (/ 2 (float-pi #q1)))))) 
     1672      (check-accuracy 169.45 b true)) 
    16661673  nil) 
    16671674