hiro/arb
1
0
Fork 0
mirror of https://github.com/vale981/arb synced 2025-03-06 01:41:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

faster thetanull

Browse source
This commit is contained in:
Pascal 2016-08-04 19:00:19 +02:00
parent 675d4485cd
commit b00fb3ef44
1 changed files with 0 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
acb_dirichlet/test/t-thetanull.c
View file

@ -97,35 +97,6 @@ int main()
if (v[k] != ACB_DIRICHLET_CHI_NULL) if (v[k] != ACB_DIRICHLET_CHI_NULL)
acb_addmul_arb(sum, z + (v[k] * m), tt + k, prec); acb_addmul_arb(sum, z + (v[k] * m), tt + k, prec);
/* compare with function */
{
acb_t res;
arb_t t;
acb_init(res);
arb_init(t);
arb_one(t);
acb_dirichlet_chi_theta_arb(res, G, chi, t, prec);
if (!acb_overlaps(res, sum))
{
flint_printf("FAIL: Theta(chi_%wu(%wu))=", q, chi->x->n);
acb_printd(sum, 10);
flint_printf("\n");
acb_dirichlet_char_print(G, chi);
flint_printf("\n");
flint_printf("should be \n");
acb_printd(res, 10);
flint_printf("\n");
abort();
}
acb_clear(res);
arb_clear(t);
}
/* check null values */
if ((q == 300 && (chi->x->n == 71 || chi->x->n == 131)) if ((q == 300 && (chi->x->n == 71 || chi->x->n == 131))
|| (q == 600 && (chi->x->n == 11 || chi->x->n == 491))) || (q == 600 && (chi->x->n == 11 || chi->x->n == 491)))
{ {