* functions. */
/*
- * GiNaC Copyright (C) 1999-2003 Johannes Gutenberg University Mainz, Germany
+ * GiNaC Copyright (C) 1999-2004 Johannes Gutenberg University Mainz, Germany
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
Digits = digitsbuf;
+ // conjugate test
+ numeric cdif = ex_to<numeric>(H(lst(2,2,1),5.0-5.0*I) - H(lst(2,2,1),5.0+5.0*I));
+ numeric cadd = ex_to<numeric>(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;
}
cout << "examining consistency of nestedsums functions" << flush;
clog << "----------consistency of nestedsums functions:" << endl;
- cout << "zeta" << flush;
result += inifcns_test_zeta();
- cout << "S" << flush;
result += inifcns_test_S();
- cout << "H/Li" << flush;
result += inifcns_test_HLi();
if (!result) {