Changeset 0823ac


Ignore:
Timestamp:
04/12/12 16:46:59 (3 years ago)
Author:
Raymond Toy <toy.raymond@…>
Branches:
master
Children:
235ac2
Parents:
139e15
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • rt-tests.lisp

    r139e15 r0823ac  
    16531653          for b = (bessel-j #q0.5 x)
    16541654          for true = (* (/ (sin x) (sqrt x)) (sqrt (/ 2 (float-pi #q1))))
    1655           for result = (check-accuracy 173.28 b true)
     1655          for result = (check-accuracy 169.45 b true)
    16561656          when result
    16571657            append (list (list (list k x) result)))
     
    16701670           (true (* (/ (sin x) (sqrt x)) (sqrt (/ 2 (float-pi #q1))))))
    16711671      (check-accuracy 173.28 b true))
     1672  nil)
     1673
     1674(rt:deftest bessel-j-1/2.q.1.c
     1675    (let* ((x #q1.0360263937639582798798376485114581552570020473846457752365459851056q0)
     1676           (b (bessel-j #q0.5 x))
     1677           (true (* (/ (sin x) (sqrt x)) (sqrt (/ 2 (float-pi #q1))))))
     1678      (check-accuracy 169.45 b true))
    16721679  nil)
    16731680
Note: See TracChangeset for help on using the changeset viewer.