/netbsd-6-1-5-RELEASE/external/lgpl3/mpfr/dist/tests/ |
H A D | tfits.c | 66 if (mpfr_fits_ulong_p (x, MPFR_RNDN)) 68 if (mpfr_fits_slong_p (x, MPFR_RNDN)) 70 if (mpfr_fits_uint_p (x, MPFR_RNDN)) 72 if (mpfr_fits_sint_p (x, MPFR_RNDN)) 74 if (mpfr_fits_ushort_p (x, MPFR_RNDN)) 76 if (mpfr_fits_sshort_p (x, MPFR_RNDN)) 81 if (mpfr_fits_ulong_p (x, MPFR_RNDN)) 83 if (mpfr_fits_slong_p (x, MPFR_RNDN)) 85 if (mpfr_fits_uint_p (x, MPFR_RNDN)) 87 if (mpfr_fits_sint_p (x, MPFR_RNDN)) [all...] |
H A D | tremquo.c | 38 mpfr_set_si (x, -1, MPFR_RNDN); 64 if (argc == 3) /* usage: tremquo x y (rnd=MPFR_RNDN implicit) */ 69 mpfr_set_str (x, argv[1], 10, MPFR_RNDN); 70 mpfr_set_str (y, argv[2], 10, MPFR_RNDN); 71 mpfr_remquo (r, q, x, y, MPFR_RNDN); 73 mpfr_out_str (stdout, 10, 0, r, MPFR_RNDN); 91 mpfr_set_ui (y, 1, MPFR_RNDN); 92 mpfr_remquo (r, q, x, y, MPFR_RNDN); 95 mpfr_set_ui (x, 1, MPFR_RNDN); 97 mpfr_remquo (r, q, x, y, MPFR_RNDN); [all...] |
H A D | tdim.c | 48 mpfr_set_ui (y, 0, MPFR_RNDN); 49 mpfr_dim (z, x, y, MPFR_RNDN); 58 mpfr_set_ui (y, 0, MPFR_RNDN); 59 mpfr_dim (z, x, y, MPFR_RNDN); 68 mpfr_set_ui (y, 0, MPFR_RNDN); 69 mpfr_dim (z, x, y, MPFR_RNDN); 79 mpfr_dim (z, x, y, MPFR_RNDN); 87 mpfr_set_ui (x, 2, MPFR_RNDN); 88 mpfr_set_ui (y, 1, MPFR_RNDN); 89 mpfr_dim (z, x, y, MPFR_RNDN); [all...] |
H A D | tround_prec.c | 39 mpfr_prec_round (x, 2, MPFR_RNDN); 43 mpfr_prec_round (x, 2, MPFR_RNDN); 47 mpfr_prec_round (x, 2, MPFR_RNDN); 50 mpfr_set_ui (x, 0, MPFR_RNDN); 51 mpfr_prec_round (x, 2, MPFR_RNDN); 54 mpfr_set_ui (x, 0, MPFR_RNDN); 55 mpfr_neg (x, x, MPFR_RNDN); 56 mpfr_prec_round (x, 2, MPFR_RNDN); 63 mpfr_prec_round (x, 2, MPFR_RNDN); 68 mpfr_set_ui (x, 1, MPFR_RNDN); [all...] |
H A D | tj0.c | 45 mpfr_j0 (y, x, MPFR_RNDN); 49 mpfr_j0 (y, x, MPFR_RNDN); 53 mpfr_j0 (y, x, MPFR_RNDN); 56 mpfr_set_ui (x, 0, MPFR_RNDN); /* +0 */ 57 mpfr_j0 (y, x, MPFR_RNDN); 60 mpfr_set_ui (x, 0, MPFR_RNDN); 61 mpfr_neg (x, x, MPFR_RNDN); /* -0 */ 62 mpfr_j0 (y, x, MPFR_RNDN); 68 mpfr_set_ui (x, 1, MPFR_RNDN); 69 mpfr_j0 (y, x, MPFR_RNDN); [all...] |
H A D | tlog2.c | 41 inex = mpfr_log2 (x, x, MPFR_RNDN); 45 inex = mpfr_log2 (x, x, MPFR_RNDN); 49 inex = mpfr_log2 (x, x, MPFR_RNDN); 52 mpfr_set_ui (x, 0, MPFR_RNDN); 53 inex = mpfr_log2 (x, x, MPFR_RNDN); 55 mpfr_set_ui (x, 0, MPFR_RNDN); 56 mpfr_neg (x, x, MPFR_RNDN); 57 inex = mpfr_log2 (x, x, MPFR_RNDN); 60 mpfr_set_si (x, -1, MPFR_RNDN); 61 inex = mpfr_log2 (x, x, MPFR_RNDN); [all...] |
H A D | ty0.c | 44 mpfr_y0 (y, x, MPFR_RNDN); 48 mpfr_y0 (y, x, MPFR_RNDN); 52 mpfr_y0 (y, x, MPFR_RNDN); 55 mpfr_set_ui (x, 0, MPFR_RNDN); /* +0 */ 56 mpfr_y0 (y, x, MPFR_RNDN); 59 mpfr_set_ui (x, 0, MPFR_RNDN); 60 mpfr_neg (x, x, MPFR_RNDN); /* -0 */ 61 mpfr_y0 (y, x, MPFR_RNDN); 67 mpfr_set_ui (x, 1, MPFR_RNDN); 68 mpfr_y0 (y, x, MPFR_RNDN); [all...] |
H A D | ty1.c | 44 mpfr_y1 (y, x, MPFR_RNDN); 48 mpfr_y1 (y, x, MPFR_RNDN); 52 mpfr_y1 (y, x, MPFR_RNDN); 55 mpfr_set_ui (x, 0, MPFR_RNDN); /* +0 */ 56 mpfr_y1 (y, x, MPFR_RNDN); 59 mpfr_set_ui (x, 0, MPFR_RNDN); 60 mpfr_neg (x, x, MPFR_RNDN); /* -0 */ 61 mpfr_y1 (y, x, MPFR_RNDN); 67 mpfr_set_ui (x, 1, MPFR_RNDN); 68 mpfr_y1 (y, x, MPFR_RNDN); [all...] |
H A D | tsubnormal.c | 36 {"1E1", 0, MPFR_RNDN, "0.100000000E2", 0}, 40 {"0.10000E-10", 0, MPFR_RNDN, "0.100000000E-10", 0}, 41 {"0.10001E-10", 0, MPFR_RNDN, "0.100000000E-10", -1}, 42 {"0.11001E-10", 0, MPFR_RNDN, "0.100000000E-9", 1}, 45 {"0.11000E-10", 0, MPFR_RNDN, "0.100000000E-9", 1}, 46 {"0.11000E-10", -1, MPFR_RNDN, "0.100000000E-9", 1}, 47 {"0.11000E-10", 1, MPFR_RNDN, "0.100000000E-10", -1}, 48 {"0.11111E-8", 0, MPFR_RNDN, "0.100000000E-7", 1}, 49 {"0.10111E-8", 0, MPFR_RNDN, "0.110000000E-8", 1}, 50 {"0.11110E-8", -1, MPFR_RNDN, "0.10000000 [all...] |
H A D | tli2.c | 39 mpfr_li2 (y, x, MPFR_RNDN); 47 mpfr_li2 (y, x, MPFR_RNDN); 55 mpfr_li2 (y, x, MPFR_RNDN); 62 mpfr_set_ui (x, 0, MPFR_RNDN); 63 mpfr_li2 (y, x, MPFR_RNDN); 70 mpfr_set_ui (x, 0, MPFR_RNDN); 71 mpfr_neg (x, x, MPFR_RNDN); 72 mpfr_li2 (y, x, MPFR_RNDN); 93 mpfr_li2 (x, x, MPFR_RNDN); 94 if (mpfr_cmp_str (x, "0x1087a7a9e42141p-55", 16, MPFR_RNDN) ! [all...] |
H A D | tout_str.c | 54 n = mpfr_out_str (fout, 10, 0, x, MPFR_RNDN); 57 printf ("Error: mpfr_out_str (file, 10, 0, NaN, MPFR_RNDN) wrote %u " 63 n = mpfr_out_str (fout, 10, 0, x, MPFR_RNDN); 66 printf ("Error: mpfr_out_str (file, 10, 0, +Inf, MPFR_RNDN) wrote %u " 72 n = mpfr_out_str (fout, 10, 0, x, MPFR_RNDN); 75 printf ("Error: mpfr_out_str (file, 10, 0, -Inf, MPFR_RNDN) wrote %u " 80 mpfr_set_ui (x, 0, MPFR_RNDN); 81 n = mpfr_out_str (fout, 10, 0, x, MPFR_RNDN); 84 printf ("Error: mpfr_out_str (file, 10, 0, +0, MPFR_RNDN) wrote %u " 89 mpfr_neg (x, x, MPFR_RNDN); [all...] |
H A D | tcsch.c | 41 mpfr_csch (y, x, MPFR_RNDN); 49 mpfr_csch (y, x, MPFR_RNDN); 57 mpfr_csch (y, x, MPFR_RNDN); 65 mpfr_set_ui (x, 0, MPFR_RNDN); 66 mpfr_csch (y, x, MPFR_RNDN); 72 mpfr_neg (x, x, MPFR_RNDN); 73 mpfr_csch (y, x, MPFR_RNDN); 81 mpfr_set_str (x, "8e8", 10, MPFR_RNDN); 82 mpfr_csch (y, x, MPFR_RNDN); 88 mpfr_set_str (x, "-8e8", 10, MPFR_RNDN); [all...] |
H A D | tjn.c | 38 mpfr_set_str (x, argv[3], 10, MPFR_RNDN); 39 mpfr_jn (x, atoi (argv[2]), x, MPFR_RNDN); 40 mpfr_out_str (stdout, 10, 10, x, MPFR_RNDN); 53 mpfr_jn (y, 17, x, MPFR_RNDN); 57 mpfr_jn (y, 17, x, MPFR_RNDN); 61 mpfr_jn (y, 17, x, MPFR_RNDN); 64 mpfr_set_ui (x, 0, MPFR_RNDN); /* +0 */ 65 mpfr_jn (y, 0, x, MPFR_RNDN); 67 mpfr_jn (y, 17, x, MPFR_RNDN); 69 mpfr_jn (y, -17, x, MPFR_RNDN); [all...] |
H A D | tagm.c | 90 mpfr_out_str (stdout, 10, 0, ta, MPFR_RNDN); 93 mpfr_out_str (stdout, 10, 0, tb, MPFR_RNDN); 121 mpfr_set_ui (a, 1, MPFR_RNDN); 123 mpfr_agm (agm, a, b, MPFR_RNDN); 136 mpfr_set_str (a, "703.93543315330225238487276503953366664991725089988315253092140138947103394917006", 10, MPFR_RNDN); 137 mpfr_set_str (b, "703.93543315330225238487279020523738740563816490895994499256063816906728642622316", 10, MPFR_RNDN); 138 mpfr_agm (agm, a, b, MPFR_RNDN); 145 inex = mpfr_agm (agm, a, b, MPFR_RNDN); 161 mpfr_set_ui (a, 1, MPFR_RNDN); 162 mpfr_set_ui (b, 2, MPFR_RNDN); [all...] |
H A D | tminmax.c | 42 mpfr_min (z, x, y, MPFR_RNDN); 48 mpfr_max (z, x, y, MPFR_RNDN); 56 mpfr_set_ui (y, 0, MPFR_RNDN); 57 mpfr_min (z, x, y, MPFR_RNDN); 63 mpfr_min (z, y, x, MPFR_RNDN); 69 mpfr_max (z, x, y, MPFR_RNDN); 75 mpfr_max (z, y, x, MPFR_RNDN); 82 mpfr_set_ui (x, 0, MPFR_RNDN); 83 mpfr_set_ui (y, 0, MPFR_RNDN); MPFR_SET_NEG(y); 84 mpfr_max (z, x, y, MPFR_RNDN); [all...] |
H A D | tfmod.c | 111 mpfr_set_str (y, "FEDCBA987654321p-64", 16, MPFR_RNDN); 112 mpfr_pow_ui (x, y, 42, MPFR_RNDN); 113 check (r, x, y, MPFR_RNDN); 116 mpfr_set_ui_2exp (x, 64723, -19, MPFR_RNDN); 117 mpfr_mul (x, x, y, MPFR_RNDN); 118 check (r, x, y, MPFR_RNDN); 121 mpfr_set_ui (x, 123798, MPFR_RNDN); 122 mpfr_set_ui (y, 10, MPFR_RNDN); 123 check (r, x, y, MPFR_RNDN); 148 inexact = mpfr_fmod (r, x, y, MPFR_RNDN); [all...] |
H A D | tj1.c | 45 mpfr_j1 (y, x, MPFR_RNDN); 49 mpfr_j1 (y, x, MPFR_RNDN); 53 mpfr_j1 (y, x, MPFR_RNDN); 56 mpfr_set_ui (x, 0, MPFR_RNDN); /* +0 */ 57 mpfr_j1 (y, x, MPFR_RNDN); 60 mpfr_set_ui (x, 0, MPFR_RNDN); 61 mpfr_neg (x, x, MPFR_RNDN); /* -0 */ 62 mpfr_j1 (y, x, MPFR_RNDN); 68 mpfr_set_ui (x, 1, MPFR_RNDN); 69 mpfr_j1 (y, x, MPFR_RNDN); [all...] |
H A D | tlog.c | 33 int ok = rnd_mode == MPFR_RNDN && mpfr_number_p (b) && mpfr_get_prec (a)>=53; 66 mpfr_out_str(stdout, 10, 0, tres, MPFR_RNDN); 97 check2("1.00089971802309629645", MPFR_RNDN, "8.99313519443722844508e-04"); 101 check2("1.01979300812244555452", MPFR_RNDN, "1.95996734891603664741e-02"); 105 check2("1.02900871924604464525", MPFR_RNDN, "2.85959303301472761438e-02"); 109 check2("1.27832870030418943585", MPFR_RNDN, "2.45553521871417823608e-01"); 113 check2("1.31706530746788241792", MPFR_RNDN, "2.75406009586277478185e-01"); 117 check2("1.47116981099449883885", MPFR_RNDN, "3.86057874110010412760e-01"); 121 check2("1.58405446812987782401", MPFR_RNDN, "4.59987679246663783150e-01"); 125 check2("1.67192331263391547047", MPFR_RNDN, "5.1397464796107672491 [all...] |
H A D | tpow.c | 36 int ok = rnd_mode == MPFR_RNDN && mpfr_number_p (b) && mpfr_number_p (c) 85 mpfr_set_str (b, "0.6926773", 10, MPFR_RNDN); 86 mpfr_pow_ui (a, b, 10, MPFR_RNDN); 87 mpfr_pow_ui (b, b, 10, MPFR_RNDN); 95 mpfr_set_ui (b, 1, MPFR_RNDN); 96 mpfr_pow_ui (a, b, 4294967295UL, MPFR_RNDN); 99 mpfr_pow_ui (a, a, 4049053855UL, MPFR_RNDN); 107 mpfr_pow_ui (a, a, (unsigned long) 30002752, MPFR_RNDN); 116 res = mpfr_pow_ui (a, a, -mpfr_get_emin (), MPFR_RNDN); 135 res = mpfr_pow_ui (a, a, ULONG_MAX, MPFR_RNDN); [all...] |
H A D | tacos.c | 41 mpfr_acos (y, x, MPFR_RNDN); 60 mpfr_set_ui (x, 0, MPFR_RNDN); 61 inex1 = mpfr_acos (x, x, MPFR_RNDN); /* Pi/2 */ 62 inex2 = mpfr_const_pi (x, MPFR_RNDN); 87 mpfr_acos (y, x, MPFR_RNDN); 89 2, MPFR_RNDN)) 116 mpfr_acos (y, x, MPFR_RNDN); 123 mpfr_set_ui (x, 2, MPFR_RNDN); 124 mpfr_acos (y, x, MPFR_RNDN); 131 mpfr_set_si (x, -2, MPFR_RNDN); [all...] |
/netbsd-6-1-5-RELEASE/external/lgpl3/mpfr/dist/ |
H A D | set_rnd.c | 26 mpfr_rnd_t MPFR_THREAD_ATTR __gmpfr_default_rounding_mode = MPFR_RNDN; 31 if (rnd_mode >= MPFR_RNDN && rnd_mode < MPFR_RND_MAX)
|
H A D | set_zero.c | 28 mpfr_set_ui (x, 0, MPFR_RNDN);
|
H A D | jyn_asympt.c | 70 mpfr_sin_cos (s, c, z, MPFR_RNDN); 72 mpfr_neg (s, s, MPFR_RNDN); /* compute jn/yn(|z|), fix sign later */ 74 mpfr_add (t, s, c, MPFR_RNDN); 75 mpfr_sub (c, s, c, MPFR_RNDN); 81 mpfr_si_div (iz, MPFR_IS_POS(z) ? 1 : -1, z, MPFR_RNDN); /* err <= 1 */ 82 mpfr_div_2ui (iz, iz, 3, MPFR_RNDN); 85 mpfr_set_ui (P, 1, MPFR_RNDN); 86 mpfr_set_ui (Q, 0, MPFR_RNDN); 87 mpfr_set_ui (t, 1, MPFR_RNDN); /* current term */ 88 mpfr_set_ui (err_t, 0, MPFR_RNDN); /* erro [all...] |
H A D | const_pi.c | 61 mpfr_set_ui (a, 1, MPFR_RNDN); /* a = 1 */ 62 mpfr_set_ui (A, 1, MPFR_RNDN); /* A = a^2 = 1 */ 63 mpfr_set_ui_2exp (B, 1, -1, MPFR_RNDN); /* B = b^2 = 1/2 */ 64 mpfr_set_ui_2exp (D, 1, -2, MPFR_RNDN); /* D = 1/4 */ 73 mpfr_add (S, A, B, MPFR_RNDN); /* 1 <= S <= 2 */ 74 mpfr_div_2ui (S, S, 2, MPFR_RNDN); /* exact, 1/4 <= S <= 1/2 */ 75 mpfr_sqrt (b, B, MPFR_RNDN); /* 1/2 <= b <= 1 */ 76 mpfr_add (ap, a, b, MPFR_RNDN); /* 1 <= ap <= 2 */ 77 mpfr_div_2ui (ap, ap, 1, MPFR_RNDN); /* exact, 1/2 <= ap <= 1 */ 78 mpfr_mul (Ap, ap, ap, MPFR_RNDN); /* [all...] |
H A D | print_rnd_mode.c | 37 case MPFR_RNDN: 38 return "MPFR_RNDN";
|