| /src/external/lgpl3/mpfr/dist/src/ |
| print_rnd_mode.c | 42 case MPFR_RNDZ:
43 return "MPFR_RNDZ";
|
| cosu.c | 150 mpfr_set_ui (y, 1, MPFR_RNDZ);
181 inexact = mpfr_div_ui (t, xp, u, MPFR_RNDZ);
182 mpfr_mul_2ui (t, t, 2, MPFR_RNDZ);
193 mpfr_div_2ui (t, t, 1, MPFR_RNDZ);
196 mpfr_set_ui (y, 1, MPFR_RNDZ);
198 mpfr_set_si (y, -1, MPFR_RNDZ);
205 inexact = mpfr_div_ui (t, xp, u / 3, MPFR_RNDZ);
207 mpfr_mul_2ui (t, t, 1, MPFR_RNDZ);
218 inexact = mpfr_get_z (z, t, MPFR_RNDZ);
224 mpfr_set_ui_2exp (y, 1, -1, MPFR_RNDZ);
[all...] |
| set_str_raw.c | 53 res = mpfr_strtofr (x, str, 0, 2, MPFR_RNDZ);
|
| sinu.c | 174 inexact = mpfr_sub_ui (t, t, 1, MPFR_RNDZ);
176 inexact = mpfr_div_2ui (t, t, 1, MPFR_RNDZ);
180 mpfr_set_ui (y, 1, MPFR_RNDZ);
182 mpfr_set_si (y, -1, MPFR_RNDZ);
189 inexact = mpfr_div_ui (t, xp, u / 3, MPFR_RNDZ);
191 mpfr_mul_2ui (t, t, 2, MPFR_RNDZ);
202 inexact = mpfr_get_z (z, t, MPFR_RNDZ);
208 mpfr_set_ui_2exp (y, 1, -1, MPFR_RNDZ);
213 mpfr_set_si_2exp (y, -1, -1, MPFR_RNDZ);
|
| gamma.c | 83 mpfr_set_ui (x, n, MPFR_RNDZ);
85 mpfr_div (x, x, y, MPFR_RNDZ);
86 mpfr_pow_ui (x, x, n, MPFR_RNDZ);
87 mpfr_const_pi (y, MPFR_RNDZ);
88 mpfr_mul_ui (y, y, 2 * n, MPFR_RNDZ);
89 mpfr_sqrt (y, y, MPFR_RNDZ);
90 mpfr_mul (x, x, y, MPFR_RNDZ);
91 mpfr_log2 (x, x, MPFR_RNDZ);
307 mpfr_mul (xp, x, zp, MPFR_RNDZ);
308 mpfr_sub_ui (yp, x, 2, MPFR_RNDZ);
[all...] |
| csch.c | 60 if (rnd_mode == MPFR_RNDU || (rnd_mode == MPFR_RNDZ && signx < 0)) \
66 else if (rnd_mode == MPFR_RNDD || rnd_mode == MPFR_RNDZ) \
|
| factorial.c | 62 rnd = MPFR_RNDZ;
98 rnd = (rnd == MPFR_RNDZ) ? MPFR_RNDU : MPFR_RNDZ;
|
| round_prec.c | 206 rnd1 = MPFR_IS_LIKE_RNDZ(rnd1, neg) ? MPFR_RNDZ : MPFR_RNDA;
209 rnd1 == MPFR_RNDZ ||
218 rnd2 = MPFR_IS_LIKE_RNDZ(rnd1, neg) ? MPFR_RNDA : MPFR_RNDZ;
228 rnd2 = MPFR_IS_LIKE_RNDZ(rnd2, neg) ? MPFR_RNDZ : MPFR_RNDA;
231 rnd2 == MPFR_RNDZ ||
243 rnd2 == MPFR_RNDZ))))
254 * MPFR_RNDZ: L = b, U = b+c
275 if (rnd1 != MPFR_RNDZ &&
302 if ((rnd2 == MPFR_RNDZ || rnd2 == MPFR_RNDA) && rnd1 != rnd2)
304 else if (rnd1 == MPFR_RNDZ)
[all...] |
| set_ld.c | 292 mpfr_div_2si (t, t, 8192, MPFR_RNDZ);
298 mpfr_div_2si (t, t, 4096, MPFR_RNDZ);
304 mpfr_div_2si (t, t, 2048, MPFR_RNDZ);
310 mpfr_div_2si (t, t, 1024, MPFR_RNDZ);
318 mpfr_div_2si (t, t, 512, MPFR_RNDZ);
344 mpfr_mul_2si (t, t, 8192, MPFR_RNDZ);
350 mpfr_mul_2si (t, t, 4096, MPFR_RNDZ);
356 mpfr_mul_2si (t, t, 2048, MPFR_RNDZ);
362 mpfr_mul_2si (t, t, 1024, MPFR_RNDZ);
368 mpfr_mul_2si (t, t, 512, MPFR_RNDZ);
[all...] |
| erfc.c | 84 mpfr_const_pi (xx, MPFR_RNDZ); /* err <= ulp(Pi) */
164 return mpfr_underflow (y, (rnd == MPFR_RNDN) ? MPFR_RNDZ : rnd, 1);
189 if (rnd == MPFR_RNDZ || rnd == MPFR_RNDD)
206 mpfr_sqr (u, x, MPFR_RNDZ);
207 mpfr_mul (t, t, u, MPFR_RNDZ); /* t <= x^2/log(2) */
208 mpfr_neg (u, x, MPFR_RNDZ); /* 0 <= u <= |x| */
209 mpfr_log2 (u, u, MPFR_RNDZ); /* u <= log2(|x|) */
210 mpfr_add (t, t, u, MPFR_RNDZ); /* t <= log2|x| + x^2 / log(2) */
246 return mpfr_underflow (y, (rnd == MPFR_RNDN) ? MPFR_RNDZ : rnd, 1);
|
| /src/external/lgpl3/mpfr/dist/tests/ |
| tget_d_2exp.c | 45 mpfr_set_ui (f, 1L, MPFR_RNDZ);
46 mpfr_mul_2ui (f, f, data[i], MPFR_RNDZ);
47 mpfr_sub_ui (f, f, 1L, MPFR_RNDZ);
69 mpfr_neg (f, f, MPFR_RNDZ);
89 d = mpfr_get_d_2exp (&exp, x, MPFR_RNDZ);
94 d = mpfr_get_d_2exp (&exp, x, MPFR_RNDZ);
99 d = mpfr_get_d_2exp (&exp, x, MPFR_RNDZ);
|
| tget_set_d128.c | 183 d = mpfr_get_decimal128 (x, MPFR_RNDZ);
184 mpfr_set_ui (x, 1, MPFR_RNDZ);
185 mpfr_set_decimal128 (x, d, MPFR_RNDZ);
189 d = mpfr_get_decimal128 (x, MPFR_RNDZ);
190 mpfr_set_ui (x, 1, MPFR_RNDZ);
191 mpfr_set_decimal128 (x, d, MPFR_RNDZ);
196 d = mpfr_get_decimal128 (x, MPFR_RNDZ);
197 mpfr_set_ui (x, 1, MPFR_RNDZ);
198 mpfr_set_decimal128 (x, d, MPFR_RNDZ);
203 mpfr_set_ui (x, 0, MPFR_RNDZ);
[all...] |
| tget_set_d64.c | 94 d = mpfr_get_decimal64 (x, MPFR_RNDZ);
95 mpfr_set_ui (x, 1, MPFR_RNDZ);
96 mpfr_set_decimal64 (x, d, MPFR_RNDZ);
100 d = mpfr_get_decimal64 (x, MPFR_RNDZ);
101 mpfr_set_ui (x, 1, MPFR_RNDZ);
102 mpfr_set_decimal64 (x, d, MPFR_RNDZ);
107 d = mpfr_get_decimal64 (x, MPFR_RNDZ);
108 mpfr_set_ui (x, 1, MPFR_RNDZ);
109 mpfr_set_decimal64 (x, d, MPFR_RNDZ);
114 mpfr_set_ui (x, 0, MPFR_RNDZ);
[all...] |
| rnd_mode.c | 43 case MPFR_RNDZ:
|
| tget_ld_2exp.c | 44 mpfr_set_ui (f, 1L, MPFR_RNDZ);
45 mpfr_mul_2ui (f, f, data[i], MPFR_RNDZ);
46 mpfr_sub_ui (f, f, 1L, MPFR_RNDZ);
68 mpfr_neg (f, f, MPFR_RNDZ);
88 d = (double) mpfr_get_ld_2exp (&exp, x, MPFR_RNDZ);
93 d = (double) mpfr_get_ld_2exp (&exp, x, MPFR_RNDZ);
98 d = (double) mpfr_get_ld_2exp (&exp, x, MPFR_RNDZ);
|
| tlog.c | 302 check2("1.0",MPFR_RNDZ,"0.0");
304 check2("0.5",MPFR_RNDZ,"-6.93147180559945286226e-01");
305 check2("3.0",MPFR_RNDZ,"1.09861228866810956006e+00");
307 check2("8.0",MPFR_RNDZ,"2.07944154167983574765e+00");
313 check2("9.99995576063808955247e-01",MPFR_RNDZ,"-4.42394597667932383816e-06");
324 check2("9.48868723578399476187e+77",MPFR_RNDZ,"1.79549152432275803903e+02");
328 check2("9.99999989485669482647e-01",MPFR_RNDZ,"-1.05143305726283042331e-08");
329 check2("9.99999989237970177136e-01",MPFR_RNDZ,"-1.07620298807745377934e-08");
334 check2("7.53428236571286402512e+34",MPFR_RNDZ,"8.03073567492226345621e+01");
335 check2("6.18784121531737948160e+19",MPFR_RNDZ,"4.55717030391710693493e+01")
[all...] |
| tcmp_ui.c | 231 mpfr_set_ui (x, 3, MPFR_RNDZ);
247 mpfr_set_ui (x, 0, MPFR_RNDZ);
248 mpfr_neg (x, x, MPFR_RNDZ);
254 mpfr_set_ui (x, 1, MPFR_RNDZ);
282 (mpfr_set_si) (x, -3, MPFR_RNDZ);
313 mpfr_set_ui (x, 0, MPFR_RNDZ);
319 mpfr_set_ui (x, 1, MPFR_RNDZ);
321 mpfr_set_ui (x, 0, MPFR_RNDZ);
323 mpfr_neg (x, x, MPFR_RNDZ);
325 mpfr_set_si (x, -1, MPFR_RNDZ);
[all...] |
| tcan_round.c | 53 s1 = (t[i] > 0) ? MPFR_RNDZ : MPFR_RNDA;
55 s1 = (t[i] < 0) ? MPFR_RNDZ : MPFR_RNDA;
59 s2 = (t[i] > 0) ? MPFR_RNDZ : MPFR_RNDA;
61 s2 = (t[i] < 0) ? MPFR_RNDZ : MPFR_RNDA;
74 if ((s1 == MPFR_RNDZ && s2 == MPFR_RNDA) ||
75 (s1 == MPFR_RNDA && s2 == MPFR_RNDZ) ||
76 (s1 == MPFR_RNDN && s2 == MPFR_RNDZ) ||
115 MPFR_RNDN, MPFR_RNDZ, p);
144 MPFR_RNDZ, MPFR_RNDA, p);
146 MPFR_RNDZ, MPFR_RNDF, p)
[all...] |
| tsqrt.c | 145 check24("70368760954880.0", MPFR_RNDZ, "8.388608e6");
146 check24("281474943156224.0", MPFR_RNDZ, "1.6777214e7");
147 check24("70368777732096.0", MPFR_RNDZ, "8.388609e6");
148 check24("281474909601792.0", MPFR_RNDZ, "1.6777213e7");
149 check24("100216216748032.0", MPFR_RNDZ, "1.0010805e7");
150 check24("120137273311232.0", MPFR_RNDZ, "1.0960715e7");
151 check24("229674600890368.0", MPFR_RNDZ, "1.5155019e7");
152 check24("70368794509312.0", MPFR_RNDZ, "8.38861e6");
153 check24("281474876047360.0", MPFR_RNDZ, "1.6777212e7");
154 check24("91214552498176.0", MPFR_RNDZ, "9.550631e6")
[all...] |
| tui_div.c | 111 MPFR_ASSERTN (mpfr_ui_div (q, 1L, d, MPFR_RNDZ) == 0); /* exact */
119 MPFR_ASSERTN (mpfr_ui_div (q, 1L, d, MPFR_RNDZ) == 0); /* exact */
126 MPFR_ASSERTN (mpfr_ui_div (q, 1L, d, MPFR_RNDZ) == 0); /* exact */
133 MPFR_ASSERTN (mpfr_ui_div (q, 0L, d, MPFR_RNDZ) == 0); /* exact */
140 MPFR_ASSERTN (mpfr_ui_div (q, 1L, d, MPFR_RNDZ) == 0); /* exact */
148 MPFR_ASSERTN (mpfr_ui_div (q, 1L, d, MPFR_RNDZ) == 0); /* exact */
155 MPFR_ASSERTN (mpfr_ui_div (q, 0L, d, MPFR_RNDZ) == 0); /* exact */
162 MPFR_ASSERTN (mpfr_ui_div (q, 0L, d, MPFR_RNDZ) == 0); /* exact */
235 check(1976245324, "1.25296395864546893357e+232", MPFR_RNDZ,
237 check(740454110, "2.11496253355831863313e+183", MPFR_RNDZ,
[all...] |
| tmodf.c | 197 53, 53, 53, 0, MPFR_RNDZ);
201 13, 13, 53, 5, MPFR_RNDZ);
205 10, 10, 53, 10, MPFR_RNDZ);
206 check ("61680", "0", "61680", 53, 53, 53, 0, MPFR_RNDZ);
208 check ("-53968","0", "-53970", 13, 13, 53, 1, MPFR_RNDZ);
214 check ("61632", "0", "61648", 10, 10, 53, 2, MPFR_RNDZ);
|
| tsi_op.c | 118 mpfr_add_si (z, x, y, MPFR_RNDZ);
121 mpfr_sub_si (z, x, y, MPFR_RNDZ);
124 mpfr_si_sub (z, y, x, MPFR_RNDZ);
125 mpfr_neg (z, z, MPFR_RNDZ);
128 mpfr_mul_si (z, x, y, MPFR_RNDZ);
131 mpfr_div_si (z, x, y, MPFR_RNDZ);
|
| /src/external/lgpl3/mpc/dist/tests/ |
| tatan.c | 33 mpfr_set_si (mpc_realref(z), -1, MPFR_RNDZ);
34 mpfr_set_ui_2exp (mpc_imagref(z), 1, 20, MPFR_RNDZ);
35 mpfr_add_ui (mpc_imagref(z), mpc_imagref(z), 1, MPFR_RNDZ);
36 mpfr_div_2exp (mpc_imagref(z), mpc_imagref(z), 20, MPFR_RNDZ);
|
| tnorm.c | 37 inex = mpc_norm (f, z, MPFR_RNDZ); /* should give 511/1024 */
50 mpfr_set_ui_2exp (f, 511, -10, MPFR_RNDZ);
68 mpfr_set_ui_2exp (f, 511, -10, MPFR_RNDZ);
86 mpfr_set_ui_2exp (f, 1023, -11, MPFR_RNDZ);
|
| /src/external/lgpl3/mpc/dist/src/ |
| fma.c | 35 mpfr_mul (rea_reb, mpc_realref(a), mpc_realref(b), MPFR_RNDZ); /* exact */
36 mpfr_mul (rea_imb, mpc_realref(a), mpc_imagref(b), MPFR_RNDZ); /* exact */
37 mpfr_mul (ima_reb, mpc_imagref(a), mpc_realref(b), MPFR_RNDZ); /* exact */
38 mpfr_mul (ima_imb, mpc_imagref(a), mpc_imagref(b), MPFR_RNDZ); /* exact */
40 mpfr_neg (ima_imb, ima_imb, MPFR_RNDZ);
95 wpre - diffre, MPFR_RNDN, MPFR_RNDZ,
98 wpim - diffim, MPFR_RNDN, MPFR_RNDZ,
|
