| /dports/math/arb/arb-2.21.1/acb_hypgeom/test/ |
| H A D | t-legendre_q.c | 33 slong prec1, prec2, ebits; in main() local
83 slong prec1, prec2, ebits; in main() local
117 acb_add(u, m, n, prec2); in main()
118 acb_add_ui(u, u, 1, prec2); in main()
119 acb_gamma(u, u, prec2); in main()
121 acb_sub(u, n, m, prec2); in main()
122 acb_add_ui(u, u, 1, prec2); in main()
123 acb_rgamma(u, u, prec2); in main()
130 acb_cos_pi(u, m, prec2); in main()
141 acb_sin_pi(t, m, prec2); in main()
[all …]
|
| H A D | t-u_asymp.c | 29 slong prec0, prec1, prec2; in main() local
132 acb_sub(am, a, b, prec2); in main()
139 acb_sub(am, a, b, prec2); in main()
141 acb_rgamma(am, am, prec2); in main()
142 acb_mul(M1, M1, am, prec2); in main()
145 acb_gamma(am, am, prec2); in main()
146 acb_mul(M1, M1, am, prec2); in main()
148 acb_rgamma(am, a, prec2); in main()
151 acb_gamma(am, am, prec2); in main()
156 acb_pow(am, z, am, prec2); in main()
[all …]
|
| H A D | t-legendre_p.c | 27 slong prec1, prec2, ebits; in main() local
58 acb_sub_ui(na, n, 1, prec2); in main()
67 acb_add(t, n, m, prec2); in main()
68 acb_mul(t, t, res2, prec2); in main()
69 acb_sub(u, n, m, prec2); in main()
70 acb_add_ui(u, u, 1, prec2); in main()
71 acb_mul(u, u, res3, prec2); in main()
72 acb_add(t, t, u, prec2); in main()
75 acb_add_ui(u, u, 1, prec2); in main()
76 acb_mul(u, u, z, prec2); in main()
[all …]
|
| H A D | t-bessel_j.c | 27 slong prec0, prec1, prec2; in main() local
41 prec2 = 2 + n_randint(state, 1000); in main()
138 acb_hypgeom_bessel_j(w2, t, z, prec2); in main()
141 acb_mul(w1, w1, w2, prec2); in main()
153 acb_hypgeom_bessel_j(w2, t, z, prec2); in main()
156 acb_mul(w0, w0, w2, prec2); in main()
157 acb_add(w0, w0, w1, prec2); in main()
159 acb_sin_pi(t, nu0, prec2); in main()
160 acb_const_pi(u, prec2); in main()
161 acb_mul(u, u, z, prec2); in main()
[all …]
|
| H A D | t-fresnel.c | 27 slong prec1, prec2; in main() local
31 prec2 = 2 + n_randint(state, 500); in main()
63 acb_const_pi(v, prec2); in main()
65 acb_sqrt(v, v, prec2); in main()
66 acb_div(z2, z, v, prec2); in main()
76 acb_hypgeom_fresnel(s, c, z2, normalized, prec2); in main()
84 acb_hypgeom_fresnel(s, c, s, normalized, prec2); in main()
88 acb_hypgeom_fresnel(s, c, c, normalized, prec2); in main()
96 acb_mul(s, s, v, prec2); in main()
97 acb_mul(c, c, v, prec2); in main()
[all …]
|
| H A D | t-bessel_i.c | 93 slong prec0, prec1, prec2; in main() local
107 prec2 = 2 + n_randint(state, 1000); in main()
180 acb_exp(t, z, prec2); in main()
181 acb_mul(w2, w2, t, prec2); in main()
216 acb_mul(w1, w1, w2, prec2); in main()
231 acb_mul(w0, w0, w2, prec2); in main()
232 acb_sub(w0, w1, w0, prec2); in main()
234 acb_sin_pi(t, nu0, prec2); in main()
235 acb_const_pi(u, prec2); in main()
236 acb_mul(u, u, z, prec2); in main()
[all …]
|
| H A D | t-gegenbauer_c.c | 27 slong prec1, prec2; in main() local
38 prec2 = 2 + n_randint(state, 300); in main()
57 acb_sub(t, m, t, prec2); in main()
58 acb_hypgeom_jacobi_p(res2, n, t, t, z, prec2); in main()
59 acb_add_ui(t, t, 1, prec2); in main()
60 acb_rising(t, t, n, prec2); in main()
61 acb_div(res2, res2, t, prec2); in main()
63 acb_rising(t, t, n, prec2); in main()
64 acb_mul(res2, res2, t, prec2); in main()
69 flint_printf("iter = %wd, prec1 = %wd, prec2 = %wd\n\n", iter, prec1, prec2); in main()
|
| H A D | t-coulomb.c | 29 slong prec1, prec2; in main() local
93 acb_add(z, z, t, prec2); in main()
94 acb_sub(z, z, t, prec2); in main()
127 acb_sub_ui(t, l, 1, prec2); in main()
131 acb_add(t, t, l, prec2); in main()
132 acb_rsqrt(t, t, prec2); in main()
134 acb_add(u, u, l, prec2); in main()
135 acb_rsqrt(u, u, prec2); in main()
136 acb_mul(u, t, u, prec2); in main()
137 acb_mul(u, u, l, prec2); in main()
[all …]
|
| /dports/math/arb/arb-2.21.1/acb_elliptic/test/ |
| H A D | t-e_inc.c | 31 slong prec1, prec2; in main() local
45 prec2 = 2 + n_randint(state, 200); in main()
51 arb_const_pi(pi, FLINT_MAX(prec1, prec2)); in main()
60 acb_mul_arb(t, z1, pi, prec2); in main()
70 acb_add_fmpz(z2, z1, k, prec2); in main()
71 acb_elliptic_e_inc(r2, z2, m, 1, prec2); in main()
75 acb_mul_arb(z2, z1, pi, prec2); in main()
77 acb_elliptic_e_inc(r2, z2, m, 0, prec2); in main()
86 acb_elliptic_e_inc(r2, z2, m, 0, prec2); in main()
90 acb_modular_elliptic_e(t, m, prec2); in main()
[all …]
|
| H A D | t-f.c | 31 slong prec1, prec2; in main() local
45 prec2 = 2 + n_randint(state, 200); in main()
51 arb_const_pi(pi, FLINT_MAX(prec1, prec2)); in main()
60 acb_mul_arb(t, z1, pi, prec2); in main()
70 acb_add_fmpz(z2, z1, k, prec2); in main()
71 acb_elliptic_f(r2, z2, m, 1, prec2); in main()
75 acb_mul_arb(z2, z1, pi, prec2); in main()
77 acb_elliptic_f(r2, z2, m, 0, prec2); in main()
86 acb_elliptic_f(r2, z2, m, 0, prec2); in main()
90 acb_modular_elliptic_k(t, m, prec2); in main()
[all …]
|
| H A D | t-pi_inc.c | 30 slong prec1, prec2; in main() local
45 prec2 = 2 + n_randint(state, 100); in main()
52 arb_const_pi(pi, FLINT_MAX(prec1, prec2)); in main()
68 acb_mul_arb(t, z1, pi, prec2); in main()
78 acb_add_fmpz(z2, z1, k, prec2); in main()
79 acb_elliptic_pi_inc(r2, n, z2, m, 1, prec2); in main()
83 acb_mul_arb(z2, z1, pi, prec2); in main()
93 arb_addmul_fmpz(acb_realref(z2), pi, k, prec2); in main()
94 acb_elliptic_pi_inc(r2, n, z2, m, 0, prec2); in main()
98 acb_elliptic_pi(t, n, m, prec2); in main()
[all …]
|
| H A D | t-rf.c | 27 slong prec1, prec2; in main() local
30 prec2 = 2 + n_randint(state, 300); in main()
47 acb_elliptic_rf(r2, x, y, z, 0, prec2); in main()
50 acb_elliptic_rf(r2, x, z, y, 0, prec2); in main()
53 acb_elliptic_rf(r2, y, x, z, 0, prec2); in main()
56 acb_elliptic_rf(r2, y, z, x, 0, prec2); in main()
59 acb_elliptic_rf(r2, z, x, y, 0, prec2); in main()
62 acb_elliptic_rf(r2, z, y, x, 0, prec2); in main()
|
| /dports/math/arb/arb-2.21.1/arb_hypgeom/test/ |
| H A D | t-central_bin_ui.c | 28 slong prec1, prec2, acc1; in main() local
32 prec2 = prec1 + 30; in main()
41 arb_add_ui(t, t, n, prec2); in main()
42 arb_add_ui(t, t, 1, prec2); in main()
43 arb_gamma(t, t, prec2); in main()
45 arb_add_ui(b2, b2, 1, prec2); in main()
46 arb_rgamma(b2, b2, prec2); in main()
47 arb_mul(b2, b2, b2, prec2); in main()
48 arb_mul(b2, b2, t, prec2); in main()
66 flint_printf("b2 = "); arb_printn(b2, prec2 / 3.33, 0); flint_printf("\n\n"); in main()
|
| H A D | t-legendre_p_ui_asymp.c | 28 slong prec1, prec2, K, K2, K3; in main() local
42 prec2 = 2 + n_randint(state, 500); in main()
51 arb_hypgeom_legendre_p_ui_one(r2, r2p, n, x, K2, prec2); in main()
73 arb_hypgeom_legendre_p_ui_asymp(r1, NULL, n, x, K, prec2); in main()
74 arb_mul(r1, r1, x, prec2); in main()
76 arb_add_ui(r2, r2, n, prec2); in main()
77 arb_add_ui(r2, r2, 1, prec2); in main()
78 arb_mul(r1, r1, r2, prec2); in main()
81 arb_mul_ui(r2, r2, n, prec2); in main()
84 arb_mul_ui(r3, r3, n + 1, prec2); in main()
[all …]
|
| H A D | t-gamma_taylor.c | 27 slong prec, ebits, prec2; in main() local
40 prec2 = prec + 1 + n_randint(state, 30); in main()
78 arb_sub(s1, s1, s2, prec2); in main()
84 success2 = arb_hypgeom_gamma_taylor(s2, x, reciprocal, prec2); in main()
93 arb_sub(s1, s1, s2, prec2); in main()
106 success2 = arb_hypgeom_gamma_taylor(s2, a, reciprocal, prec2); in main()
115 arb_sub(s1, s1, s2, prec2); in main()
120 success2 = arb_hypgeom_gamma_taylor(s2, b, reciprocal, prec2); in main()
129 arb_sub(s1, s1, s2, prec2); in main()
137 success2 = arb_hypgeom_gamma_taylor(s2, b, reciprocal, prec2); in main()
[all …]
|
| H A D | t-airy_zero.c | 89 slong prec1, prec2; in main() local
102 prec2 = 2 + n_randtest(state) % 1000; in main()
108 arb_hypgeom_airy_zero(x2, NULL, NULL, NULL, n, prec2); in main()
110 arb_hypgeom_airy(v2, NULL, NULL, NULL, x2, prec2 + 30); in main()
115 arb_hypgeom_airy_zero(NULL, x2, NULL, NULL, n, prec2); in main()
117 arb_hypgeom_airy(NULL, v2, NULL, NULL, x2, prec2 + 30); in main()
122 arb_hypgeom_airy_zero(NULL, NULL, x2, NULL, n, prec2); in main()
124 arb_hypgeom_airy(NULL, NULL, v2, NULL, x2, prec2 + 30); in main()
129 arb_hypgeom_airy_zero(NULL, NULL, NULL, x2, n, prec2); in main()
131 arb_hypgeom_airy(NULL, NULL, NULL, v2, x2, prec2 + 30); in main()
[all …]
|
| /dports/math/arb/arb-2.21.1/acb_modular/test/ |
| H A D | t-lambda.c | 27 slong e0, prec0, prec1, prec2, step; in main() local
39 prec2 = 2 + n_randint(state, 1000); in main()
66 acb_modular_lambda(z2, tau2, prec2); in main()
70 acb_modular_eta(z3, tau1, prec2); in main()
72 acb_modular_eta(t, tau1, prec2); in main()
73 acb_mul(t, t, t, prec2); in main()
74 acb_mul(z3, z3, t, prec2); in main()
76 acb_modular_eta(t, tau1, prec2); in main()
77 acb_pow_ui(t, t, 3, prec2); in main()
78 acb_div(z3, z3, t, prec2); in main()
[all …]
|
| /dports/devel/re2c/re2c-2.2/lib/ |
| H A D | regexec_nfa_posix_trie.cc | 145 , int32_t &prec1, int32_t &prec2) in precedence() argument
153 , int32_t &prec1, int32_t &prec2) in zprecedence1() argument
169 prec2 = val.prec2; in zprecedence1()
172 std::swap(prec1, prec2); in zprecedence1()
196 prec1 = prec2 = MAX_RHO; in zprecedence2()
204 prec1 = prec2 = MAX_RHO; in zprecedence2()
227 prec2 = std::min(prec2, tags[info2.idx].height); in zprecedence2()
237 prec2 = std::min(prec2, p2); in zprecedence2()
242 prec2 = std::min(prec2, h); in zprecedence2()
246 if (prec1 > prec2) return -1; in zprecedence2()
[all …]
|
| /dports/math/kalker/gmp-mpfr-sys-21966f4bfb56c87d407eb14c72e92ef4e55856aa/mpfr-4.1.0-p13-c/tests/ |
| H A D | mpf_compat.h | 38 unsigned long int prec2; in main()
56 prec2 = mpf_get_default_prec (); in main()
57 if (prec2 < prec) in main()
66 prec2 = mpf_get_prec (x); in main()
67 if (prec2 < prec) in main()
69 printf ("Error in get_prec: %lu < %lu\n", prec2, prec); in main()
76 prec2 = mpf_get_prec (x); in main()
77 if (prec2 < 2 * prec) in main()
79 printf ("Error in set_prec: %lu < %lu\n", prec2, 2 * prec); in main()
87 prec2 = mpf_get_prec (x); in main()
[all …]
|
| /dports/math/arb/arb-2.21.1/acb_dirichlet/test/ |
| H A D | t-gram_point.c | 29 slong prec1, prec2; in main() local
42 prec2 = 2 + n_randtest(state) % 2000; in main()
45 acb_dirichlet_gram_point(x2, n, NULL, NULL, prec2); in main()
47 arb_const_pi(pin, FLINT_MAX(prec1, prec2) + 20); in main()
48 arb_mul_fmpz(pin, pin, n, FLINT_MAX(prec1, prec2) + 20); in main()
55 acb_dirichlet_hardy_theta(t, t, NULL, NULL, 1, prec2 + 20); in main()
62 flint_printf(" prec1 = %wd prec2 = %wd\n\n", prec1, prec2); in main()
70 if (arb_rel_accuracy_bits(x1) < prec1 - 3 || arb_rel_accuracy_bits(x2) < prec2 - 3) in main()
74 flint_printf(" prec1 = %wd prec2 = %wd\n\n", prec1, prec2); in main()
|
| H A D | t-zeta_zero.c | 28 slong prec1, prec2; in main() local
42 prec2 = 2 + n_randtest(state) % 200; in main()
47 prec2 = 2 + n_randtest(state) % 600; in main()
51 acb_dirichlet_zeta_zero(z2, n, prec2); in main()
54 acb_dirichlet_zeta(v2, z2, prec2 + 20); in main()
60 flint_printf(" prec1 = %wd prec2 = %wd\n\n", prec1, prec2); in main()
68 if (acb_rel_accuracy_bits(z1) < prec1 - 3 || acb_rel_accuracy_bits(z2) < prec2 - 3) in main()
72 flint_printf(" prec1 = %wd prec2 = %wd\n\n", prec1, prec2); in main()
|
| H A D | t-hurwitz.c | 27 slong prec1, prec2; in main() local
36 prec2 = 2 + n_randint(state, 200); in main()
51 acb_dirichlet_hurwitz(z2, s, b, prec2); in main()
52 acb_add_ui(b, a, 1, prec2); in main()
54 acb_dirichlet_hurwitz(b, s, b, prec2); in main()
55 acb_add(z2, z2, b, prec2); in main()
58 acb_pow(b, z1, b, prec2); in main()
59 acb_mul(z2, z2, b, prec2); in main()
|
| /dports/math/arb/arb-2.21.1/acb/test/ |
| H A D | t-agm.c | 326 slong prec1, prec2; in main() local
329 prec2 = 2 + n_randint(state, 200); in main()
346 acb_randtest(t, state, prec2, 1 + n_randint(state, 200)); in main()
359 acb_randtest(t, state, prec2, 1 + n_randint(state, 200)); in main()
360 acb_add(x2, x1, t, prec2); in main()
361 acb_sub(x2, x2, t, prec2); in main()
370 acb_randtest(t, state, prec2, 1 + n_randint(state, 200)); in main()
371 acb_add(y2, y1, t, prec2); in main()
372 acb_sub(y2, y2, t, prec2); in main()
376 acb_agm(m2, x2, y2, prec2); in main()
[all …]
|
| H A D | t-polygamma.c | 35 slong prec1, prec2; in main() local
38 prec2 = prec1 + 30; in main()
53 acb_add(s, s, c, prec2); in main()
54 acb_sub(s, s, c, prec2); in main()
58 arb_set_str(acb_realref(c), testdata[i], prec2); in main()
68 acb_add(s, s, c, prec2); in main()
69 acb_sub(s, s, c, prec2); in main()
71 acb_polygamma(c, s, a, prec2); in main()
|
| /dports/misc/lifelines/lifelines-3.1.1/src/liflines/ |
| H A D | tandem.c | 84 ASSERT(prec2); in browse_tandem()
85 ASSERT(*prec2); in browse_tandem()
86 ASSERT(nztype(*prec2)=='I'); in browse_tandem()
89 current2 = *prec2; in browse_tandem()
92 *prec2 = 0; in browse_tandem()
206 ASSERT(prec2); in browse_2fam()
207 ASSERT(*prec2); in browse_2fam()
211 current2 = *prec2; in browse_2fam()
214 *prec2 = 0; in browse_2fam()
257 *prec2 = fam2; in browse_2fam()
[all …]
|