Mercurial > octave

comparison libinterp/corefcn/besselj.cc @ 30944:4727765dbc89

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Use Octave conventions for coding BIST tests in cset 84944164799e. * besselj.cc (Fairy): Use ';' at end of assert statements within a %!test block. Don't use parentheses around %!error block.
author Rik <rik@octave.org>
date Mon, 18 Apr 2022 13:02:35 -0700
parents 272614f05636
children e0aabe59c1aa
comparison
equal deleted inserted replaced
30943:1f7fcac1fac9 30944:4727765dbc89
717 return retval; 717 return retval;
718 } 718 }
719 719
720 /* 720 /*
721 %!test <*62321> 721 %!test <*62321>
722 %! assert (airy (0, +1, false), 0.1352924163128814, 1e-15) 722 %! assert (airy (0, +1, false), 0.1352924163128814, 1e-15);
723 %! assert (airy (0, -1, false), 0.5355608832923521, 1e-15) 723 %! assert (airy (0, -1, false), 0.5355608832923521, 1e-15);
724 %! assert (airy (0, +i, false), 0.3314933054321411 - 0.3174498589684437i, 1e-15) 724 %! assert (airy (0, +i, false), 0.3314933054321411 - 0.3174498589684437i, 1e-15);
725 %! assert (airy (0, -i, false), 0.3314933054321411 + 0.3174498589684437i, 1e-15) 725 %! assert (airy (0, -i, false), 0.3314933054321411 + 0.3174498589684437i, 1e-15);
726 %! assert (airy (0, +1, true), 0.2635136447491401, 1e-15) 726 %! assert (airy (0, +1, true), 0.2635136447491401, 1e-15);
727 %! assert (airy (0, -1, true), 0.4208904755499093 - 0.3311746779333462i, 1e-15) 727 %! assert (airy (0, -1, true), 0.4208904755499093 - 0.3311746779333462i, 1e-15);
728 %! assert (airy (0, +i, true), 0.2743053542644657 - 0.0825606941400591i, 1e-15) 728 %! assert (airy (0, +i, true), 0.2743053542644657 - 0.0825606941400591i, 1e-15);
729 %! assert (airy (0, -i, true), 0.2743053542644657 + 0.0825606941400591i, 1e-15) 729 %! assert (airy (0, -i, true), 0.2743053542644657 + 0.0825606941400591i, 1e-15);
730 %! assert (airy (1, +1, false), -0.1591474412967932, 1e-15) 730 %! assert (airy (1, +1, false), -0.1591474412967932, 1e-15);
731 %! assert (airy (1, -1, false), -0.0101605671166451, 1e-15) 731 %! assert (airy (1, -1, false), -0.0101605671166451, 1e-15);
732 %! assert (airy (1, +i, false), -0.4324926598418070 + 0.0980478562292432i, 1e-15) 732 %! assert (airy (1, +i, false), -0.4324926598418070 + 0.0980478562292432i, 1e-15);
733 %! assert (airy (1, -i, false), -0.4324926598418070 - 0.0980478562292432i, 1e-15) 733 %! assert (airy (1, -i, false), -0.4324926598418070 - 0.0980478562292432i, 1e-15);
734 %! assert (airy (1, +1, true), -0.3099768889605148, 1e-15) 734 %! assert (airy (1, +1, true), -0.3099768889605148, 1e-15);
735 %! assert (airy (1, -1, true), -0.0079850602592406 + 0.0062829878869967i, 1e-15) 735 %! assert (airy (1, -1, true), -0.0079850602592406 + 0.0062829878869967i, 1e-15);
736 %! assert (airy (1, +i, true), -0.2682792317254506 - 0.0680655016581369i, 1e-15) 736 %! assert (airy (1, +i, true), -0.2682792317254506 - 0.0680655016581369i, 1e-15);
737 %! assert (airy (1, -i, true), -0.2682792317254506 + 0.0680655016581369i, 1e-15) 737 %! assert (airy (1, -i, true), -0.2682792317254506 + 0.0680655016581369i, 1e-15);
738 %! assert (airy (2, +1, false), 1.2074235949528715, 1e-15) 738 %! assert (airy (2, +1, false), 1.2074235949528715, 1e-15);
739 %! assert (airy (2, -1, false), 0.1039973894969446, 1e-15) 739 %! assert (airy (2, -1, false), 0.1039973894969446, 1e-15);
740 %! assert (airy (2, +i, false), 0.6488582083303949 + 0.3449586347680484i, 1e-15) 740 %! assert (airy (2, +i, false), 0.6488582083303949 + 0.3449586347680484i, 1e-15);
741 %! assert (airy (2, -i, false), 0.6488582083303949 - 0.3449586347680484i, 1e-15) 741 %! assert (airy (2, -i, false), 0.6488582083303949 - 0.3449586347680484i, 1e-15);
742 %! assert (airy (2, +1, true), 0.6199119435726786, 1e-15) 742 %! assert (airy (2, +1, true), 0.6199119435726786, 1e-15);
743 %! assert (airy (2, -1, true), 0.1039973894969446, 1e-15) 743 %! assert (airy (2, -1, true), 0.1039973894969446, 1e-15);
744 %! assert (airy (2, +i, true), 0.4049686654663902 + 0.2152973271658010i, 1e-15) 744 %! assert (airy (2, +i, true), 0.4049686654663902 + 0.2152973271658010i, 1e-15);
745 %! assert (airy (2, -i, true), 0.4049686654663902 - 0.2152973271658010i, 1e-15) 745 %! assert (airy (2, -i, true), 0.4049686654663902 - 0.2152973271658010i, 1e-15);
746 %! assert (airy (3, +1, false), 0.9324359333927754, 1e-15) 746 %! assert (airy (3, +1, false), 0.9324359333927754, 1e-15);
747 %! assert (airy (3, -1, false), 0.5923756264227923, 1e-15) 747 %! assert (airy (3, -1, false), 0.5923756264227923, 1e-15);
748 %! assert (airy (3, +i, false), 0.1350266467108190 - 0.1288373867812549i, 1e-15) 748 %! assert (airy (3, +i, false), 0.1350266467108190 - 0.1288373867812549i, 1e-15);
749 %! assert (airy (3, -i, false), 0.1350266467108190 + 0.1288373867812549i, 1e-15) 749 %! assert (airy (3, -i, false), 0.1350266467108190 + 0.1288373867812549i, 1e-15);
750 %! assert (airy (3, +1, true), 0.4787285706049846, 1e-15) 750 %! assert (airy (3, +1, true), 0.4787285706049846, 1e-15);
751 %! assert (airy (3, -1, true), 0.5923756264227923, 1e-15) 751 %! assert (airy (3, -1, true), 0.5923756264227923, 1e-15);
752 %! assert (airy (3, +i, true), 0.0842735134099415 - 0.0804106412111761i, 1e-15) 752 %! assert (airy (3, +i, true), 0.0842735134099415 - 0.0804106412111761i, 1e-15);
753 %! assert (airy (3, -i, true), 0.0842735134099415 + 0.0804106412111761i, 1e-15) 753 %! assert (airy (3, -i, true), 0.0842735134099415 + 0.0804106412111761i, 1e-15);
754 754
755 Input validation tests 755 Input validation tests
756 %!error (airy ()) 756 %!error airy ()
757 %!error (airy (0, 1, 2, 3)) 757 %!error airy (0, 1, 2, 3)
758 %!error <K must be an integer value> (airy ("foo", 2, false)) 758 %!error <K must be an integer value> airy ("foo", 2, false)
759 %!error <K must be 0, 1, 2, or 3> (airy (3743, 2, false)) 759 %!error <K must be 0, 1, 2, or 3> airy (3743, 2, false)
760 %!error <scale option must be a logical value> (airy (0, 2, "foo")) 760 %!error <scale option must be a logical value> airy (0, 2, "foo")
761 %!error <Z must be a complex matrix> (airy (0, "foo", false)) 761 %!error <Z must be a complex matrix> airy (0, "foo", false)
762 */ 762 */
763 763
764 764
765 /* 765 /*
766 ## Test values computed with GP/PARI version 2.3.3 766 ## Test values computed with GP/PARI version 2.3.3