URL: <https://savannah.gnu.org/bugs/?66826>
Summary: Feature: test cases for function hyperg_1F1()
Group: GNU Scientific Library
Submitter: fermelelundi
Submitted: Fri 21 Feb 2025 12:56:23 PM UTC
Category: Build
Severity: 3 - Normal
Operating System:
Status: None
Assigned to: None
Open/Closed: Open
Discussion Lock: Any
Release: 2.8
_______________________________________________________
Follow-up Comments:
-------------------------------------------------------
Date: Fri 21 Feb 2025 12:56:23 PM UTC By: Fermé le Lundi <fermelelundi>
The following test cases can be added to specfunc/test_hyperg.c:
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (5, 5, -8.0, &r), 0.000335462627902512,
TEST_TOL0, GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (5, 5, -2.0, &r), 1/(M_E*M_E),
TEST_TOL0, GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (5, 5, -1.0, &r), 1/M_E, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (5, 5, 0.0, &r), 1.0, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (5, 5, 1.0, &r), M_E, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (5, 5, 2.0, &r), M_E*M_E, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (5, 6, -3.0, &r), 0.091228027395668113,
TEST_TOL0, GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (5, 6, 7.0, &r), 480.548772048884018204,
TEST_TOL0, GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (5, 6, 8.0, &r),
1204.460563611831503295, TEST_TOL0, GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (1, 1, -1.0, &r), 1/M_E, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (-1, -1, -1.0, &r), 1/M_E, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (-1, -1, 0.0, &r), 1.0, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (-1, -1, 1.0, &r), M_E, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (2, 2, 0.0, &r), 1.0, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (2, 2, 1.0, &r), M_E, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (2, 3, -1.0, &r), 2-(4/M_E), TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (2, 3, 0.0, &r), 1.0, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (2, 3, 1.0, &r), 2.0, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (-1, 1, 8.0, &r), -7.0, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (-1, 1, -1.0, &r), 2.0, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (-2, 2, 1.0, &r), 1/6.0, TEST_TOL0,
GSL_SUCCESS);
/* the following test cases fail
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (-2, -2, 2.0, &r), 5.0, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (-2, -2, 1.0, &r), 2.5, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (-2, -2, -1.0, &r), 0.5, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (-1, -2, -1.0, &r), 0.5, TEST_TOL0,
GSL_SUCCESS);
TEST_SF(s, gsl_sf_hyperg_1F1_int_e, (-2, 2, 2.0, &r), 1/3.0, TEST_TOL0,
GSL_SUCCESS);
*/
These test cases give some nuance to https://savannah.gnu.org/bugs/?58032
The failing test cases are possibly related to
https://savannah.gnu.org/bugs/?28267
_______________________________________________________
Reply to this item at:
<https://savannah.gnu.org/bugs/?66826>
_______________________________________________
Message sent via Savannah
https://savannah.gnu.org/
signature.asc
Description: PGP signature
