From 1254f5ef941aa6ead793e843b637edc927f47c7d Mon Sep 17 00:00:00 2001 From: Jens Vollinga Date: Wed, 13 Dec 2006 20:04:23 +0000 Subject: [PATCH] Check for fixed bug in multiple polylogs. --- check/exam_inifcns_nstdsums.cpp | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/check/exam_inifcns_nstdsums.cpp b/check/exam_inifcns_nstdsums.cpp index 247fa80d..d0f6869e 100644 --- a/check/exam_inifcns_nstdsums.cpp +++ b/check/exam_inifcns_nstdsums.cpp @@ -290,6 +290,30 @@ static unsigned inifcns_test_LiG() } +//////////////////////////////////////////////////////////////////////////////// +//////////////////////////////////////////////////////////////////////////////// +// legacy exam - checking for historical bugs +//////////////////////////////////////////////////////////////////////////////// +//////////////////////////////////////////////////////////////////////////////// + + +static unsigned inifcns_test_legacy() +{ + Digits = 17; + ex prec = 5 * pow(10, -(int)Digits); + + unsigned result = 0; + + ex r1 = zeta(lst(1,1,1,1,1,1),lst(-1,-1,-1,1,1,1)); + if ((r1.evalf() - numeric("-0.0012588769028204890704")) > prec) { + clog << "zeta({1,1,1,1,1,1},{-1,-1,-1,1,1,1}) seems to be wrong." << endl; + result++; + } + + return result; +} + + unsigned exam_inifcns_nstdsums(void) { unsigned result = 0; @@ -300,6 +324,7 @@ unsigned exam_inifcns_nstdsums(void) result += inifcns_test_S(); result += inifcns_test_HLi(); result += inifcns_test_LiG(); + result += inifcns_test_legacy(); return result; } -- 2.45.0