diff options
author | Kevin Ryde <user42@zip.com.au> | 2000-05-27 22:28:21 +0200 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2000-05-27 22:28:21 +0200 |
commit | 7555cb0fc0b17d647562d5f506098ce79a16ed06 (patch) | |
tree | ed1fc3e832af2b107afac6ae14b7dbca920f81b6 /demos/qcn.c | |
parent | 8600856dcb8d5ceb70001a6fcd08f0176f8b4c55 (diff) | |
download | gmp-7555cb0fc0b17d647562d5f506098ce79a16ed06.tar.gz |
Rename kronecker functions.
Diffstat (limited to 'demos/qcn.c')
-rw-r--r-- | demos/qcn.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/demos/qcn.c b/demos/qcn.c index bf4ef7171..ede7e6a68 100644 --- a/demos/qcn.c +++ b/demos/qcn.c @@ -1,4 +1,4 @@ -/* Use mpz_kronecker_zi_ui() to calculate an estimate for the quadratic +/* Use mpz_kronecker_ui() to calculate an estimate for the quadratic class number h(d), for a given negative fundamental discriminant, using Dirichlet's analytic formula. */ @@ -89,14 +89,14 @@ qcn_estimate (mpz_t d) /* p=2 */ h = sqrt (-mpz_get_d (d)) / M_PI - * 2.0 / (2.0 - mpz_kronecker_zi_ui (d, 2)); + * 2.0 / (2.0 - mpz_kronecker_ui (d, 2)); if (mpz_cmp_si (d, -3) == 0) h *= 3; else if (mpz_cmp_si (d, -4) == 0) h *= 2; for (p = 3; p < P_LIMIT; p += 2) if (prime_p (p)) - h *= (double) p / (double) (p - mpz_kronecker_zi_ui (d, p)); + h *= (double) p / (double) (p - mpz_kronecker_ui (d, p)); return h; } |