From 4fa4ab2d7fedd3a59dc361bc041000628b59cd20 Mon Sep 17 00:00:00 2001 From: Jens Vollinga Date: Tue, 6 Jan 2004 18:38:45 +0000 Subject: [PATCH] Added check for harmonic polylog. --- check/exam_inifcns_nstdsums.cpp | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/check/exam_inifcns_nstdsums.cpp b/check/exam_inifcns_nstdsums.cpp index 188b1b4b..d0f7304d 100644 --- a/check/exam_inifcns_nstdsums.cpp +++ b/check/exam_inifcns_nstdsums.cpp @@ -155,6 +155,14 @@ static unsigned inifcns_test_HLi() Digits = digitsbuf; + // conjugate test + numeric cdif = ex_to(H(lst(2,2,1),5.0-5.0*I) - H(lst(2,2,1),5.0+5.0*I)); + numeric cadd = ex_to(H(lst(2,2,1),5.0-5.0*I) + H(lst(2,2,1),5.0+5.0*I)); + if ((cdif.real() > prec) || (cadd.imag() > prec)) { + clog << "complex conjugation test of H({2,2,1},5.0-5.0*I) seems to be wrong: " << cdif << " " << cadd << endl; + result++; + } + return result; } -- 2.44.0