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

mag_pow_fmpz: allow negative exponents

Browse source
This commit is contained in:
fredrik 2021-11-25 13:55:44 +01:00
parent 2746f165a3
commit 56c6b4de2e
5 changed files with 15 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
doc/source/mag.rst
View file

@ -378,13 +378,13 @@ Powers and logarithms
.. function:: void mag_pow_fmpz(mag_t res, const mag_t x, const fmpz_t e) .. function:: void mag_pow_fmpz(mag_t res, const mag_t x, const fmpz_t e)
Sets *res* to an upper bound for `x^e`. Requires `e \ge 0`. Sets *res* to an upper bound for `x^e`.
.. function:: void mag_pow_ui_lower(mag_t res, const mag_t x, ulong e) .. function:: void mag_pow_ui_lower(mag_t res, const mag_t x, ulong e)
.. function:: void mag_pow_fmpz_lower(mag_t res, const mag_t x, const fmpz_t e) .. function:: void mag_pow_fmpz_lower(mag_t res, const mag_t x, const fmpz_t e)
Sets *res* to a lower bound for `x^e`. Requires `e \ge 0`. Sets *res* to a lower bound for `x^e`.
.. function:: void mag_sqrt(mag_t res, const mag_t x) .. function:: void mag_sqrt(mag_t res, const mag_t x)

1
fmpr/pow_sloppy.c
View file

@ -35,6 +35,7 @@ fmpr_pow_sloppy_fmpz(fmpr_t y, const fmpr_t b, const fmpz_t e,
? FMPR_RND_UP : FMPR_RND_DOWN); ? FMPR_RND_UP : FMPR_RND_DOWN);
fmpr_ui_div(y, UWORD(1), y, prec, rnd); fmpr_ui_div(y, UWORD(1), y, prec, rnd);
fmpz_clear(f); fmpz_clear(f);
return;
} }
if (y == b) if (y == b)

14
mag/pow_fmpz.c
View file

@ -16,7 +16,12 @@ mag_pow_fmpz(mag_t z, const mag_t x, const fmpz_t e)
{ {
if (fmpz_sgn(e) < 0) if (fmpz_sgn(e) < 0)
{ {
flint_abort(); fmpz_t t;
fmpz_init(t);
fmpz_neg(t, e);
mag_inv(z, x);
mag_pow_fmpz(z, z, t);
fmpz_clear(t);
} }
else if (!COEFF_IS_MPZ(*e)) else if (!COEFF_IS_MPZ(*e))
{ {
@ -50,7 +55,12 @@ mag_pow_fmpz_lower(mag_t z, const mag_t x, const fmpz_t e)
{ {
if (fmpz_sgn(e) < 0) if (fmpz_sgn(e) < 0)
{ {
flint_abort(); fmpz_t t;
fmpz_init(t);
fmpz_neg(t, e);
mag_inv_lower(z, x);
mag_pow_fmpz_lower(z, z, t);
fmpz_clear(t);
} }
else if (!COEFF_IS_MPZ(*e)) else if (!COEFF_IS_MPZ(*e))
{ {

1
mag/test/t-pow_fmpz.c
View file

@ -38,7 +38,6 @@ int main()
mag_randtest_special(xb, state, 80); mag_randtest_special(xb, state, 80);
mag_randtest_special(yb, state, 80); mag_randtest_special(yb, state, 80);
fmpz_randtest(e, state, 200); fmpz_randtest(e, state, 200);
fmpz_abs(e, e);
mag_get_fmpr(x, xb); mag_get_fmpr(x, xb);

1
mag/test/t-pow_fmpz_lower.c
View file

@ -38,7 +38,6 @@ int main()
mag_randtest_special(xb, state, 80); mag_randtest_special(xb, state, 80);
mag_randtest_special(yb, state, 80); mag_randtest_special(yb, state, 80);
fmpz_randtest(e, state, 200); fmpz_randtest(e, state, 200);
fmpz_abs(e, e);
mag_get_fmpr(x, xb); mag_get_fmpr(x, xb);