mirror of
https://github.com/vale981/arb
synced 2025-03-05 17:31:38 -05:00
add tests and documentation; fix minor bugs
This commit is contained in:
Fredrik Johansson
parent
d53f08390f
commit
41cb148d73
5 changed files with 212 additions and 4 deletions
|
|
@ -164,6 +164,14 @@ Arithmetic
|
||||||
|
|
||||||
Sets *z* to a lower bound for `x^e`.
|
Sets *z* to a lower bound for `x^e`.
|
||||||
|
|
||||||
|
.. function:: void mag_sqrt(mag_t z, const mag_t x)
|
||||||
|
|
||||||
|
Sets *z* to an upper bound for `\sqrt{x}`.
|
||||||
|
|
||||||
|
.. function:: void mag_rsqrt(mag_t z, const mag_t x)
|
||||||
|
|
||||||
|
Sets *z* to an upper bound for `1/\sqrt{x}`.
|
||||||
|
|
||||||
Fast, unsafe versions
|
Fast, unsafe versions
|
||||||
-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
|
||||||
2
mag.h
2
mag.h
|
|
@ -649,7 +649,6 @@ double mag_d_log_lower_bound(double x);
|
||||||
|
|
||||||
void mag_log1p(mag_t z, const mag_t x);
|
void mag_log1p(mag_t z, const mag_t x);
|
||||||
|
|
||||||
/* TODO: test */
|
|
||||||
void mag_pow_ui(mag_t z, const mag_t x, ulong e);
|
void mag_pow_ui(mag_t z, const mag_t x, ulong e);
|
||||||
void mag_pow_ui_lower(mag_t z, const mag_t x, ulong e);
|
void mag_pow_ui_lower(mag_t z, const mag_t x, ulong e);
|
||||||
|
|
||||||
|
|
@ -663,7 +662,6 @@ void mag_bernoulli_div_fac_ui(mag_t z, ulong n);
|
||||||
/* TODO: test */
|
/* TODO: test */
|
||||||
void mag_set_fmpz_2exp_fmpz_lower(mag_t z, const fmpz_t man, const fmpz_t exp);
|
void mag_set_fmpz_2exp_fmpz_lower(mag_t z, const fmpz_t man, const fmpz_t exp);
|
||||||
|
|
||||||
/* TODO: document */
|
|
||||||
void mag_sqrt(mag_t y, const mag_t x);
|
void mag_sqrt(mag_t y, const mag_t x);
|
||||||
void mag_rsqrt(mag_t y, const mag_t x);
|
void mag_rsqrt(mag_t y, const mag_t x);
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -28,7 +28,7 @@
|
||||||
void
|
void
|
||||||
mag_pow_ui(mag_t z, const mag_t x, ulong e)
|
mag_pow_ui(mag_t z, const mag_t x, ulong e)
|
||||||
{
|
{
|
||||||
if (mag_is_inf(z))
|
if (mag_is_inf(x))
|
||||||
{
|
{
|
||||||
mag_inf(z);
|
mag_inf(z);
|
||||||
}
|
}
|
||||||
|
|
@ -74,7 +74,7 @@ mag_pow_ui_lower(mag_t z, const mag_t x, ulong e)
|
||||||
else
|
else
|
||||||
mag_mul_lower(z, x, x);
|
mag_mul_lower(z, x, x);
|
||||||
}
|
}
|
||||||
else if (mag_is_inf(z))
|
else if (mag_is_inf(x))
|
||||||
{
|
{
|
||||||
mag_inf(z);
|
mag_inf(z);
|
||||||
}
|
}
|
||||||
|
|
|
||||||
101
mag/test/t-pow_ui.c
Normal file
101
mag/test/t-pow_ui.c
Normal file
|
|
@ -0,0 +1,101 @@
|
||||||
|
/*=============================================================================
|
||||||
|
|
||||||
|
This file is part of ARB.
|
||||||
|
|
||||||
|
ARB is free software; you can redistribute it and/or modify
|
||||||
|
it under the terms of the GNU General Public License as published by
|
||||||
|
the Free Software Foundation; either version 2 of the License, or
|
||||||
|
(at your option) any later version.
|
||||||
|
|
||||||
|
ARB is distributed in the hope that it will be useful,
|
||||||
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
GNU General Public License for more details.
|
||||||
|
|
||||||
|
You should have received a copy of the GNU General Public License
|
||||||
|
along with ARB; if not, write to the Free Software
|
||||||
|
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
|
||||||
|
|
||||||
|
=============================================================================*/
|
||||||
|
/******************************************************************************
|
||||||
|
|
||||||
|
Copyright (C) 2014 Fredrik Johansson
|
||||||
|
|
||||||
|
******************************************************************************/
|
||||||
|
|
||||||
|
#include "mag.h"
|
||||||
|
|
||||||
|
int main()
|
||||||
|
{
|
||||||
|
long iter;
|
||||||
|
flint_rand_t state;
|
||||||
|
|
||||||
|
printf("pow_ui....");
|
||||||
|
fflush(stdout);
|
||||||
|
|
||||||
|
flint_randinit(state);
|
||||||
|
|
||||||
|
for (iter = 0; iter < 100000; iter++)
|
||||||
|
{
|
||||||
|
fmpr_t x, y, w;
|
||||||
|
mag_t xb, yb;
|
||||||
|
ulong e;
|
||||||
|
|
||||||
|
fmpr_init(x);
|
||||||
|
fmpr_init(y);
|
||||||
|
fmpr_init(w);
|
||||||
|
|
||||||
|
mag_init(xb);
|
||||||
|
mag_init(yb);
|
||||||
|
|
||||||
|
mag_randtest_special(xb, state, 80);
|
||||||
|
mag_randtest_special(yb, state, 80);
|
||||||
|
e = n_randtest(state);
|
||||||
|
|
||||||
|
mag_get_fmpr(x, xb);
|
||||||
|
|
||||||
|
fmpr_pow_sloppy_ui(y, x, e, 2 * MAG_BITS, FMPR_RND_UP);
|
||||||
|
if (fmpr_is_nan(y))
|
||||||
|
fmpr_pos_inf(y);
|
||||||
|
|
||||||
|
mag_pow_ui(yb, xb, e);
|
||||||
|
mag_get_fmpr(w, yb);
|
||||||
|
|
||||||
|
MAG_CHECK_BITS(xb)
|
||||||
|
MAG_CHECK_BITS(yb)
|
||||||
|
|
||||||
|
if (!(fmpr_cmpabs(y, w) <= 0))
|
||||||
|
{
|
||||||
|
printf("FAIL\n\n");
|
||||||
|
printf("e = %lu\n\n", e);
|
||||||
|
printf("x = "); fmpr_print(x); printf("\n\n");
|
||||||
|
printf("y = "); fmpr_print(y); printf("\n\n");
|
||||||
|
printf("w = "); fmpr_print(w); printf("\n\n");
|
||||||
|
abort();
|
||||||
|
}
|
||||||
|
|
||||||
|
mag_pow_ui(xb, xb, e);
|
||||||
|
|
||||||
|
if (!mag_equal(xb, yb))
|
||||||
|
{
|
||||||
|
printf("FAIL (aliasing)\n\n");
|
||||||
|
printf("e = %lu\n\n", e);
|
||||||
|
mag_print(xb); printf("\n\n");
|
||||||
|
mag_print(yb); printf("\n\n");
|
||||||
|
abort();
|
||||||
|
}
|
||||||
|
|
||||||
|
fmpr_clear(x);
|
||||||
|
fmpr_clear(y);
|
||||||
|
fmpr_clear(w);
|
||||||
|
|
||||||
|
mag_clear(xb);
|
||||||
|
mag_clear(yb);
|
||||||
|
}
|
||||||
|
|
||||||
|
flint_randclear(state);
|
||||||
|
flint_cleanup();
|
||||||
|
printf("PASS\n");
|
||||||
|
return EXIT_SUCCESS;
|
||||||
|
}
|
||||||
|
|
||||||
101
mag/test/t-pow_ui_lower.c
Normal file
101
mag/test/t-pow_ui_lower.c
Normal file
|
|
@ -0,0 +1,101 @@
|
||||||
|
/*=============================================================================
|
||||||
|
|
||||||
|
This file is part of ARB.
|
||||||
|
|
||||||
|
ARB is free software; you can redistribute it and/or modify
|
||||||
|
it under the terms of the GNU General Public License as published by
|
||||||
|
the Free Software Foundation; either version 2 of the License, or
|
||||||
|
(at your option) any later version.
|
||||||
|
|
||||||
|
ARB is distributed in the hope that it will be useful,
|
||||||
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
GNU General Public License for more details.
|
||||||
|
|
||||||
|
You should have received a copy of the GNU General Public License
|
||||||
|
along with ARB; if not, write to the Free Software
|
||||||
|
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
|
||||||
|
|
||||||
|
=============================================================================*/
|
||||||
|
/******************************************************************************
|
||||||
|
|
||||||
|
Copyright (C) 2014 Fredrik Johansson
|
||||||
|
|
||||||
|
******************************************************************************/
|
||||||
|
|
||||||
|
#include "mag.h"
|
||||||
|
|
||||||
|
int main()
|
||||||
|
{
|
||||||
|
long iter;
|
||||||
|
flint_rand_t state;
|
||||||
|
|
||||||
|
printf("pow_ui_lower....");
|
||||||
|
fflush(stdout);
|
||||||
|
|
||||||
|
flint_randinit(state);
|
||||||
|
|
||||||
|
for (iter = 0; iter < 100000; iter++)
|
||||||
|
{
|
||||||
|
fmpr_t x, y, w;
|
||||||
|
mag_t xb, yb;
|
||||||
|
ulong e;
|
||||||
|
|
||||||
|
fmpr_init(x);
|
||||||
|
fmpr_init(y);
|
||||||
|
fmpr_init(w);
|
||||||
|
|
||||||
|
mag_init(xb);
|
||||||
|
mag_init(yb);
|
||||||
|
|
||||||
|
mag_randtest_special(xb, state, 80);
|
||||||
|
mag_randtest_special(yb, state, 80);
|
||||||
|
e = n_randtest(state);
|
||||||
|
|
||||||
|
mag_get_fmpr(x, xb);
|
||||||
|
|
||||||
|
fmpr_pow_sloppy_ui(y, x, e, 2 * MAG_BITS, FMPR_RND_DOWN);
|
||||||
|
if (fmpr_is_nan(y))
|
||||||
|
fmpr_pos_inf(y);
|
||||||
|
|
||||||
|
mag_pow_ui_lower(yb, xb, e);
|
||||||
|
mag_get_fmpr(w, yb);
|
||||||
|
|
||||||
|
MAG_CHECK_BITS(xb)
|
||||||
|
MAG_CHECK_BITS(yb)
|
||||||
|
|
||||||
|
if (!(fmpr_cmpabs(w, y) <= 0))
|
||||||
|
{
|
||||||
|
printf("FAIL\n\n");
|
||||||
|
printf("e = %lu\n\n", e);
|
||||||
|
printf("x = "); fmpr_print(x); printf("\n\n");
|
||||||
|
printf("y = "); fmpr_print(y); printf("\n\n");
|
||||||
|
printf("w = "); fmpr_print(w); printf("\n\n");
|
||||||
|
abort();
|
||||||
|
}
|
||||||
|
|
||||||
|
mag_pow_ui_lower(xb, xb, e);
|
||||||
|
|
||||||
|
if (!mag_equal(xb, yb))
|
||||||
|
{
|
||||||
|
printf("FAIL (aliasing)\n\n");
|
||||||
|
printf("e = %lu\n\n", e);
|
||||||
|
mag_print(xb); printf("\n\n");
|
||||||
|
mag_print(yb); printf("\n\n");
|
||||||
|
abort();
|
||||||
|
}
|
||||||
|
|
||||||
|
fmpr_clear(x);
|
||||||
|
fmpr_clear(y);
|
||||||
|
fmpr_clear(w);
|
||||||
|
|
||||||
|
mag_clear(xb);
|
||||||
|
mag_clear(yb);
|
||||||
|
}
|
||||||
|
|
||||||
|
flint_randclear(state);
|
||||||
|
flint_cleanup();
|
||||||
|
printf("PASS\n");
|
||||||
|
return EXIT_SUCCESS;
|
||||||
|
}
|
||||||
|
|
||||||
Loading…
Add table
Reference in a new issue