| /src/external/lgpl3/mpfr/dist/tests/ |
| tset_exp.c | 30 mpfr_exp_t emin, emax, e; local
35 emin = mpfr_get_emin ();
54 ret = mpfr_set_exp (x, emin);
56 MPFR_ASSERTN (e == emin);
58 MPFR_ASSERTN (e == emin);
63 MPFR_ASSERTN (e == emin);
65 MPFR_ASSERTN (e == emin);
75 MPFR_ASSERTN (e == emin);
93 set_emin (emin);
|
| tsqr.c | 89 mpfr_exp_t emin; local
110 emin = mpfr_get_emin ();
117 set_emin (emin);
128 mpfr_exp_t emin; local
130 emin = mpfr_get_emin ();
155 set_emin (emin);
202 mpfr_exp_t emin; local
274 /* exercise square between 0.5*2^emin and its predecessor (emin even) */
275 emin = mpfr_get_emin ()
[all...] |
| tcmp_d.c | 30 mpfr_exp_t emin; local
33 emin = mpfr_get_emin ();
82 set_emin (emin);
|
| tsubnormal.c | 55 mpfr_exp_t emin, emax; local
58 emin = mpfr_get_emin ();
110 set_emin (emin);
120 mpfr_exp_t emin; local
122 emin = mpfr_get_emin ();
148 set_emin (emin);
157 mpfr_exp_t emin; local
159 emin = mpfr_get_emin ();
177 /* since emin = -1, and EXP(z)=-1, z should be rounded to precision
178 EXP(z)-emin+1 = 1, i.e., z should be a multiple of the smallest possibl
213 mpfr_exp_t emin = mpfr_get_emin (); local
[all...] |
| texp2.c | 35 mpfr_exp_t emin, emax; local
37 emin = mpfr_get_emin ();
58 set_emin (emin);
119 mpfr_exp_t emin; local
121 emin = mpfr_get_emin ();
126 set_emin (emin);
129 printf ("Error in mpfr_exp2 for x = 5, with emin = 3\n");
222 mpfr_exp_t emin; local
226 emin = mpfr_get_emin ();
252 set_emin (i == 0 ? -17 : i == 1 ? emin : MPFR_EMIN_MIN)
286 mpfr_exp_t emin, emax; local
[all...] |
| tcmp_ld.c | 32 mpfr_exp_t emin; local
35 emin = mpfr_get_emin ();
84 set_emin (emin);
|
| trndna.c | 149 mpfr_exp_t emin; local
153 /* mpfr_round_nearest_away requires emin is not the smallest possible */
154 if ((emin = mpfr_get_emin ()) == mpfr_get_emin_min ())
161 set_emin (emin);
|
| tfmma.c | 115 mpfr_exp_t emin, emax; local
119 emin = mpfr_get_emin ();
183 set_emin (emin);
190 mpfr_exp_t emin, emax; local
196 emin = mpfr_get_emin ();
236 set_emin (emin);
366 mpfr_exp_t emin; local
371 emin = mpfr_get_emin ();
418 set_emin (emin);
421 /* check that result has exponent in [emin, emax
488 mpfr_exp_t emin; local
513 mpfr_exp_t emin; local
560 mpfr_exp_t emin = mpfr_get_emin (); local
585 mpfr_exp_t emin = mpfr_get_emin (); local
[all...] |
| tset_z_2exp.c | 34 [emin, emax] directly. */
142 mpfr_exp_t ef, emin, emax; local
147 for (emin = ef - 2; emin <= ef + 2; emin++)
148 for (emax = emin; emax <= ef + 2; emax++)
152 set_emin (emin);
165 MPFR_EXP_FSPEC "d rnd_mode=%d\nand emin=%"
168 (mpfr_eexp_t) emin, (mpfr_eexp_t) emax);
|
| texp10.c | 35 mpfr_exp_t emin, emax; local
37 emin = mpfr_get_emin ();
58 set_emin (emin);
94 mpfr_exp_t emin; local
96 emin = mpfr_get_emin ();
101 set_emin (emin);
104 printf ("Error in mpfr_exp10 for x = 4, with emin = 3\n");
275 rounding to nearest, z * 2^k = 2^(emin - 2) and real result larger
307 /* Basic check: the default emin should be -2^30 (exactly). */
324 Check that 2^(emin - 2) < 10^x < (3/2) * 2^(emin - 2)
378 mpfr_exp_t emin, emax; local
[all...] |
| tacos.c | 74 mpfr_exp_t emin, emax; local
76 emin = mpfr_get_emin ();
94 set_emin (emin);
|
| tdigamma.c | 62 mpfr_exp_t emin, emax; local
65 emin = mpfr_get_emin ();
89 set_emin (emin);
|
| tj1.c | 36 mpfr_exp_t e, emin; local
40 emin = mpfr_get_emin ();
63 /* here |y| should be 0.5*2^emin and the inexact flag should
70 set_emin (emin);
|
| tset_z.c | 77 mpfr_exp_t emax, emin; local
106 emin = mpfr_get_emin ();
114 set_emin (emin);
|
| ttanh.c | 62 mpfr_exp_t emin, emax; local
64 emin = mpfr_get_emin ();
93 set_emin (emin);
|
| tzeta_ui.c | 35 mpfr_exp_t emin, emax; local
41 emin = mpfr_get_emin ();
120 set_emin (emin);
175 set_emin (emin);
|
| turandom.c | 32 mpfr_exp_t emin; local
110 emin = mpfr_get_emin ();
123 " for emin = %d (i = %d).\n", k+1, i);
147 set_emin (emin);
188 mpfr_exp_t emin; local
192 emin = mpfr_get_emin ();
204 /* Always underflow when emin >= 2, i.e. when the minimum
234 set_emin (emin);
283 mpfr_exp_t emin = mpfr_get_emin (); local
308 set_emin (emin);
425 mpfr_exp_t emin; local
[all...] |
| /src/external/lgpl3/mpc/dist/tests/ |
| random.c | 107 or equal to 2^{emin-1} and less than 2^emax.
113 test_default_random (mpc_ptr z, mpfr_exp_t emin, mpfr_exp_t emax,
117 const unsigned long range = (unsigned long int) (emax - emin) + 1;
153 mpfr_set_exp (mpc_realref (z), (mpfr_exp_t) gmp_urandomm_ui (rands, range) + emin);
156 mpfr_set_exp (mpc_imagref (z), (mpfr_exp_t) gmp_urandomm_ui (rands, range) + emin);
197 or equal to 2^{emin-1} and less than 2^emax.
202 test_random_mpfr (mpfr_ptr x, mpfr_exp_t emin, mpfr_exp_t emax,
205 const unsigned long range = (unsigned long int) (emax - emin) + 1;
220 mpfr_set_exp (x, (mpfr_exp_t) gmp_urandomm_ui (rands, range) + emin);
240 Im(z) greater than or equal to 2^{emin-1} and less than 2^emax
[all...] |
| tatan.c | 29 mpfr_exp_t emin = mpfr_get_emin ();
49 mpfr_set_emin (emin);
|
| tacos.c | 35 mpfr_exp_t emin = mpfr_get_emin (); local
59 mpfr_set_emin (emin);
67 mpfr_exp_t emin = mpfr_get_emin (); local
91 mpfr_set_emin (emin);
|
| tnorm.c | 26 mpfr_exp_t emin = mpfr_get_emin (); local
31 mpfr_set_emin (-1); /* smallest positive number is 0.5*2^emin = 0.25 */
93 mpfr_set_emin (emin);
|
| tsqrt.c | 35 mpfr_exp_t emin = mpfr_get_emin (); local
60 mpfr_set_emin (emin);
|
| /src/external/lgpl3/mpfr/dist/src/ |
| get_float128.c | 41 const int emin = -16381; local
42 const int esub = emin - IEEE_FLOAT128_MANT_DIG;
69 prec = e < emin ? e - esub : IEEE_FLOAT128_MANT_DIG;
|
| /src/external/lgpl3/mpc/dist/src/ |
| norm.c | 109 mpfr_exp_t emin = mpfr_get_emin (); local
113 In the latter case, Im(b)^2 < 2^(emin-1).
114 If ulp(u) >= 2^(emin+1) and norm(b) is not exactly
116 is equivalent to rounding u+2^(emin-1).
118 than about |emin|, the norm is not representable. To make the
123 && mpfr_get_exp (u) - 2 * (mpfr_exp_t) prec_u > emin
126 mpfr_set_ui_2exp (v, 1, emin - 1, MPFR_RNDZ);
130 && mpfr_get_exp (v) - 2 * (mpfr_exp_t) prec_v > emin
133 mpfr_set_ui_2exp (u, 1, emin - 1, MPFR_RNDZ);
|
| sqr.c | 124 with 1/2 <= |ma| < 1 and ea >= emin and similarly for b.
125 So 2*emin < 2*emin+1 <= eu < emin < 0, and analogously for v. */
126 mpfr_exp_t emin = mpfr_get_emin (); local
128 mpfr_set_exp (u, emin);
129 mpz_add_ui (eu, eu, (unsigned long int) (-emin));
134 mpfr_set_exp (v, emin);
135 mpz_add_ui (ev, ev, (unsigned long int) (-emin));
172 mpfr_exp_t emin; local
[all...] |
