1 /*
2 Copyright (C) 2012 Fredrik Johansson
3
4 This file is part of Arb.
5
6 Arb is free software: you can redistribute it and/or modify it under
7 the terms of the GNU Lesser General Public License (LGPL) as published
8 by the Free Software Foundation; either version 2.1 of the License, or
9 (at your option) any later version. See <http://www.gnu.org/licenses/>.
10 */
11
12 #include "acb.h"
13 #include "acb_poly.h"
14
15 void
acb_polylog(acb_t w,const acb_t s,const acb_t z,slong prec)16 acb_polylog(acb_t w, const acb_t s, const acb_t z, slong prec)
17 {
18 acb_t t;
19 acb_init(t);
20 _acb_poly_polylog_cpx(t, s, z, 1, prec);
21 acb_swap(w, t);
22 acb_clear(t);
23 }
24
25 void
acb_polylog_si(acb_t w,slong s,const acb_t z,slong prec)26 acb_polylog_si(acb_t w, slong s, const acb_t z, slong prec)
27 {
28 acb_t t;
29 acb_init(t);
30 acb_set_si(t, s);
31 acb_polylog(w, t, z, prec);
32 acb_clear(t);
33 }
34