Changeset 5566bc
 Timestamp:
 04/13/12 06:24:03 (3 years ago)
 Branches:
 master
 Children:
 78801d
 Parents:
 2f48eb
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

rttests.lisp
r2f48eb r5566bc 1680 1680 1681 1681 ;; Bessel J for complex args 1682 (rt:deftest besseljcomplex .posorder.d.11682 (rt:deftest besseljcomplexarg.d.1 1683 1683 (let ((b (besselj 0d0 #c(1d0 1))) 1684 1684 (true #c(0.9376084768060293d0 0.4965299476091221d0))) … … 1686 1686 nil) 1687 1687 1688 (rt:deftest besseljcomplex .posorder.d.21688 (rt:deftest besseljcomplexarg.d.2 1689 1689 (let ((b (besselj 1d0 #c(1d0 1))) 1690 1690 (true #c(0.6141603349229036d0 0.3650280288270878d0))) … … 1692 1692 nil) 1693 1693 1694 (rt:deftest besseljcomplex .posorder.d.31694 (rt:deftest besseljcomplexarg.d.3 1695 1695 (let ((b (besselj 2d0 #c(1d0 1))) 1696 1696 (true #c(0.0415798869439621d0 0.2473976415133063d0))) … … 1698 1698 nil) 1699 1699 1700 #+nil 1701 (rt:deftest besseljcomplex.posorder.d.4 1700 (rt:deftest besseljcomplexarg.d.4 1702 1701 (let ((b (besselj 2.3d0 #c(1d0 1))) 1702 (true #c(0.0141615213034667d0 0.1677798241687935d0))) 1703 (checkaccuracy 48.56 b true)) 1704 nil) 1705 1706 (rt:deftest besseljcomplexarg.d.5 1707 (let ((b (besselj 2.3d0 #c(1d0 1))) 1703 1708 (true #c(0.1920598664138632d0 0.5158676904105332d0))) 1704 (checkaccuracy 53 b true)) 1705 nil) 1706 1709 (checkaccuracy 50.97 b true)) 1710 nil) 1711 1712 (rt:deftest besselj1/2complex.d.1 1713 (loop for k from 0 below 10 1714 for x = (complex (random (/ pi 2)) 1715 (random (/ pi 2))) 1716 for b = (besselj 0.5d0 x) 1717 for true = (* (/ (sin x) (sqrt x)) (sqrt (/ 2 pi))) 1718 for result = (checkaccuracy 49.8 b true) 1719 when result 1720 append (list (list (list k x) result))) 1721 nil) 1722 1723 (rt:deftest besselj1/2complex.q.1 1724 (loop for k from 0 below 10 1725 for x = (complex (random (/ (floatpi #q1) 2)) 1726 (random (/ (floatpi #q1) 2))) 1727 for b = (besselj #q0.5 x) 1728 for true = (* (/ (sin x) (sqrt x)) (sqrt (/ 2 (floatpi #q1)))) 1729 for result = (checkaccuracy 212 b true) 1730 when result 1731 append (list (list (list k x) result))) 1732 nil)
Note: See TracChangeset
for help on using the changeset viewer.