/netbsd-6-1-5-RELEASE/external/lgpl3/mpfr/dist/tests/ |
H A D | tget_set_d64.c | 61 d = mpfr_get_decimal64 (x, MPFR_RNDZ); 62 mpfr_set_ui (x, 1, MPFR_RNDZ); 63 mpfr_set_decimal64 (x, d, MPFR_RNDZ); 67 d = mpfr_get_decimal64 (x, MPFR_RNDZ); 68 mpfr_set_ui (x, 1, MPFR_RNDZ); 69 mpfr_set_decimal64 (x, d, MPFR_RNDZ); 73 d = mpfr_get_decimal64 (x, MPFR_RNDZ); 74 mpfr_set_ui (x, 1, MPFR_RNDZ); 75 mpfr_set_decimal64 (x, d, MPFR_RNDZ); 78 mpfr_set_ui (x, 0, MPFR_RNDZ); [all...] |
H A D | tcan_round.c | 48 MPFR_RNDN, MPFR_RNDZ, p); 72 if (mpfr_can_round (x, 54, MPFR_RNDZ, MPFR_RNDZ, 53) != 0) 79 if (mpfr_can_round (x, 2000, MPFR_RNDZ, MPFR_RNDZ, 2000) != 0) 95 if (mpfr_can_round (x, 132, MPFR_RNDU, MPFR_RNDZ, 128) == 0) 104 if (mpfr_can_round (x, 81, MPFR_RNDU, MPFR_RNDZ, 44) == 0) 111 mpfr_set_str (x, "0.ff4ca619c76ba69", 16, MPFR_RNDZ);
|
H A D | tget_d_2exp.c | 47 mpfr_set_ui (f, 1L, MPFR_RNDZ); 48 mpfr_mul_2exp (f, f, data[i], MPFR_RNDZ); 49 mpfr_sub_ui (f, f, 1L, MPFR_RNDZ); 71 mpfr_neg (f, f, MPFR_RNDZ); 92 d = mpfr_get_d_2exp (&exp, x, MPFR_RNDZ); 97 d = mpfr_get_d_2exp (&exp, x, MPFR_RNDZ); 102 d = mpfr_get_d_2exp (&exp, x, MPFR_RNDZ);
|
H A D | tget_ld_2exp.c | 47 mpfr_set_ui (f, 1L, MPFR_RNDZ); 48 mpfr_mul_2exp (f, f, data[i], MPFR_RNDZ); 49 mpfr_sub_ui (f, f, 1L, MPFR_RNDZ); 71 mpfr_neg (f, f, MPFR_RNDZ); 92 d = (double) mpfr_get_ld_2exp (&exp, x, MPFR_RNDZ); 97 d = (double) mpfr_get_ld_2exp (&exp, x, MPFR_RNDZ); 102 d = (double) mpfr_get_ld_2exp (&exp, x, MPFR_RNDZ);
|
H A D | rnd_mode.c | 43 case MPFR_RNDZ:
|
H A D | tui_div.c | 115 MPFR_ASSERTN (mpfr_ui_div (q, 1L, d, MPFR_RNDZ) == 0); /* exact */ 122 MPFR_ASSERTN (mpfr_ui_div (q, 1L, d, MPFR_RNDZ) == 0); /* exact */ 128 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 */ 138 MPFR_ASSERTN (mpfr_ui_div (q, 1L, d, MPFR_RNDZ) == 0); /* exact */ 144 MPFR_ASSERTN (mpfr_ui_div (q, 1L, d, MPFR_RNDZ) == 0); /* exact */ 149 MPFR_ASSERTN (mpfr_ui_div (q, 0L, d, MPFR_RNDZ) == 0); /* exact */ 154 MPFR_ASSERTN (mpfr_ui_div (q, 0L, d, MPFR_RNDZ) == 0); /* exact */ 176 check(1976245324, "1.25296395864546893357e+232", MPFR_RNDZ, 178 check(740454110, "2.11496253355831863313e+183", MPFR_RNDZ, [all...] |
H A D | tlog.c | 292 check2("1.0",MPFR_RNDZ,"0.0"); 294 check2("0.5",MPFR_RNDZ,"-6.93147180559945286226e-01"); 295 check2("3.0",MPFR_RNDZ,"1.09861228866810956006e+00"); 297 check2("8.0",MPFR_RNDZ,"2.07944154167983574765e+00"); 303 check2("9.99995576063808955247e-01",MPFR_RNDZ,"-4.42394597667932383816e-06"); 314 check2("9.48868723578399476187e+77",MPFR_RNDZ,"1.79549152432275803903e+02"); 318 check2("9.99999989485669482647e-01",MPFR_RNDZ,"-1.05143305726283042331e-08"); 319 check2("9.99999989237970177136e-01",MPFR_RNDZ,"-1.07620298807745377934e-08"); 324 check2("7.53428236571286402512e+34",MPFR_RNDZ,"8.03073567492226345621e+01"); 325 check2("6.18784121531737948160e+19",MPFR_RNDZ,"4.5571703039171069349 [all...] |
H A D | tsqrt.c | 148 check24("70368760954880.0", MPFR_RNDZ, "8.388608e6"); 149 check24("281474943156224.0", MPFR_RNDZ, "1.6777214e7"); 150 check24("70368777732096.0", MPFR_RNDZ, "8.388609e6"); 151 check24("281474909601792.0", MPFR_RNDZ, "1.6777213e7"); 152 check24("100216216748032.0", MPFR_RNDZ, "1.0010805e7"); 153 check24("120137273311232.0", MPFR_RNDZ, "1.0960715e7"); 154 check24("229674600890368.0", MPFR_RNDZ, "1.5155019e7"); 155 check24("70368794509312.0", MPFR_RNDZ, "8.38861e6"); 156 check24("281474876047360.0", MPFR_RNDZ, "1.6777212e7"); 157 check24("91214552498176.0", MPFR_RNDZ, "9.55063 [all...] |
H A D | tset_q.c | 103 check(-1647229822, 40619231, MPFR_RNDZ, "-4.055295438754120596e1"); 104 check(-148939696, 1673285490, MPFR_RNDZ, "-8.9010331404953485501e-2"); 105 check(-441322590, 273662545, MPFR_RNDZ, "-1.6126525096812205362"); 107 check(2141332571, 3117601, MPFR_RNDZ, "6.8685267004982347316e2");
|
H A D | tcmp_ui.c | 223 mpfr_set_ui (x, 3, MPFR_RNDZ); 239 mpfr_set_ui (x, 0, MPFR_RNDZ); 240 mpfr_neg (x, x, MPFR_RNDZ); 246 mpfr_set_ui (x, 1, MPFR_RNDZ); 274 (mpfr_set_si) (x, -3, MPFR_RNDZ); 305 mpfr_set_ui (x, 0, MPFR_RNDZ); 311 mpfr_set_ui (x, 1, MPFR_RNDZ); 313 mpfr_set_ui (x, 0, MPFR_RNDZ); 315 mpfr_neg (x, x, MPFR_RNDZ); 317 mpfr_set_si (x, -1, MPFR_RNDZ); [all...] |
H A D | tdiv.c | 129 check24("70368760954880.0", "8388609.0", MPFR_RNDZ, "8.388608e6"); 130 check24("140737479966720.0", "16777213.0", MPFR_RNDZ, "8.388609e6"); 131 check24("70368777732096.0", "8388611.0", MPFR_RNDZ, "8.388608e6"); 132 check24("105553133043712.0", "12582911.0", MPFR_RNDZ, "8.38861e6"); 133 check24("12582913.0", "12582910.0", MPFR_RNDZ, "1.000000238"); 134 check24 ("105553124655104.0", "12582910.0", MPFR_RNDZ, "8388610.0"); 135 check24("140737479966720.0", "8388609.0", MPFR_RNDZ, "1.6777213e7"); 136 check24("70368777732096.0", "8388609.0", MPFR_RNDZ, "8.38861e6"); 137 check24("105553133043712.0", "8388610.0", MPFR_RNDZ, "1.2582911e7"); 138 check24("105553124655104.0", "8388610.0", MPFR_RNDZ, "1.25829 [all...] |
H A D | tmodf.c | 202 53, 53, 53, 0, MPFR_RNDZ); 206 13, 13, 53, 5, MPFR_RNDZ); 210 10, 10, 53, 10, MPFR_RNDZ); 211 check ("61680", "0", "61680", 53, 53, 53, 0, MPFR_RNDZ); 213 check ("-53968","0", "-53970", 13, 13, 53, 1, MPFR_RNDZ); 219 check ("61632", "0", "61648", 10, 10, 53, 2, MPFR_RNDZ);
|
H A D | tsi_op.c | 110 mpfr_add_si (z, x, y, MPFR_RNDZ); 113 mpfr_sub_si (z, x, y, MPFR_RNDZ); 116 mpfr_si_sub (z, y, x, MPFR_RNDZ); 117 mpfr_neg (z, z, MPFR_RNDZ); 120 mpfr_mul_si (z, x, y, MPFR_RNDZ); 123 mpfr_div_si (z, x, y, MPFR_RNDZ);
|
H A D | tset_si.c | 148 inex = mpfr_set_si (x, z, MPFR_RNDZ); 149 d = mpfr_get_si (x, MPFR_RNDZ); 166 inex = mpfr_set_ui (x, zl, MPFR_RNDZ); 167 dl = mpfr_get_ui (x, MPFR_RNDZ); 182 if (mpfr_set_si (x, 5, MPFR_RNDZ) >= 0) 184 printf ("Wrong inexact flag for x=5, rnd=MPFR_RNDZ\n"); 189 if (mpfr_set_si (x, -5, MPFR_RNDZ) <= 0) 191 printf ("Wrong inexact flag for x=-5, rnd=MPFR_RNDZ\n"); 217 if (mpfr_get_si (x, MPFR_RNDZ) != 49152 || inex <= 0) 220 mpfr_get_si (x, MPFR_RNDZ), ine [all...] |
H A D | tcmp_d.c | 55 mpfr_set_ui (x, 0, MPFR_RNDZ); 56 mpfr_neg (x, x, MPFR_RNDZ);
|
/netbsd-6-1-5-RELEASE/external/lgpl3/mpfr/dist/ |
H A D | print_rnd_mode.c | 39 case MPFR_RNDZ: 40 return "MPFR_RNDZ";
|
H A D | factorial.c | 62 rnd = MPFR_RNDZ; 79 round = !inexact || mpfr_can_round (t, err, rnd, MPFR_RNDZ, 99 rnd = (rnd == MPFR_RNDZ) ? MPFR_RNDU : MPFR_RNDZ;
|
H A D | set_str_raw.c | 53 res = mpfr_strtofr (x, str, 0, 2, MPFR_RNDZ);
|
H A D | gamma.c | 75 mpfr_set_ui (x, n, MPFR_RNDZ); 77 mpfr_div (x, x, y, MPFR_RNDZ); 78 mpfr_pow_ui (x, x, n, MPFR_RNDZ); 79 mpfr_const_pi (y, MPFR_RNDZ); 80 mpfr_mul_ui (y, y, 2 * n, MPFR_RNDZ); 81 mpfr_sqrt (y, y, MPFR_RNDZ); 82 mpfr_mul (x, x, y, MPFR_RNDZ); 83 mpfr_log2 (x, x, MPFR_RNDZ); 259 mpfr_mul (xp, x, xp, MPFR_RNDZ); 260 mpfr_sub_ui (yp, x, 2, MPFR_RNDZ); [all...] |
H A D | 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) \
|
H A D | set_ld.c | 105 mpfr_div_2si (t, t, 8192, MPFR_RNDZ); 111 mpfr_div_2si (t, t, 4096, MPFR_RNDZ); 117 mpfr_div_2si (t, t, 2048, MPFR_RNDZ); 123 mpfr_div_2si (t, t, 1024, MPFR_RNDZ); 131 mpfr_div_2si (t, t, 512, MPFR_RNDZ); 157 mpfr_mul_2si (t, t, 8192, MPFR_RNDZ); 163 mpfr_mul_2si (t, t, 4096, MPFR_RNDZ); 169 mpfr_mul_2si (t, t, 2048, MPFR_RNDZ); 175 mpfr_mul_2si (t, t, 1024, MPFR_RNDZ); 181 mpfr_mul_2si (t, t, 512, MPFR_RNDZ); [all...] |
H A D | erfc.c | 84 mpfr_const_pi (xx, MPFR_RNDZ); /* err <= ulp(Pi) */ 163 return mpfr_underflow (y, (rnd == MPFR_RNDN) ? MPFR_RNDZ : rnd, 1); 188 if (rnd == MPFR_RNDZ || rnd == MPFR_RNDD) 205 mpfr_sqr (u, x, MPFR_RNDZ); 206 mpfr_mul (t, t, u, MPFR_RNDZ); /* t <= x^2/log(2) */ 207 mpfr_neg (u, x, MPFR_RNDZ); /* 0 <= u <= |x| */ 208 mpfr_log2 (u, u, MPFR_RNDZ); /* u <= log2(|x|) */ 209 mpfr_add (t, t, u, MPFR_RNDZ); /* t <= log2|x| + x^2 / log(2) */ 245 return mpfr_underflow (y, (rnd == MPFR_RNDN) ? MPFR_RNDZ : rnd, 1);
|
H A D | cot.c | 72 if (rnd_mode == MPFR_RNDU || (rnd_mode == MPFR_RNDZ && signx < 0)) \ 78 else if (rnd_mode == MPFR_RNDD || rnd_mode == MPFR_RNDZ) \
|
H A D | erf.c | 83 mpfr_ui_sub (l, 1, l, MPFR_RNDZ); /* lower bound on 1 - x^2/3 */ 86 mpfr_div (l, l, h, MPFR_RNDZ); /* lower bound on 1/sqrt(Pi) (1 - x^2/3) */ 87 mpfr_mul_2ui (l, l, 1, MPFR_RNDZ); /* 2/sqrt(Pi) (1 - x^2/3) */ 88 mpfr_mul (l, l, x, MPFR_RNDZ); /* |l| is a lower bound on 114 mpfr_div (xf, x, xf, MPFR_RNDZ); /* round to zero ensures we get a lower 116 mpfr_mul (xf, xf, x, MPFR_RNDZ); 234 mpfr_const_pi (t, MPFR_RNDZ); 235 mpfr_sqrt (t, t, MPFR_RNDZ);
|
H A D | gen_inverse.h | 75 MPFR_BLOCK (flags, INVERSE (z, x, MPFR_RNDZ)); /* error k_u < 1 ulp */ 86 MPFR_RNDZ : rnd_mode, s);
|