dist/tests/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);
181   mpfr_set_ui (x, 1L, MPFR_RNDN);
183   mpfr_agm (m, x, y, MPFR_RNDN);
187   mpfr_set_ui (x, 1L, MPFR_RNDN);
189   mpfr_agm (m, x, y, MPFR_RNDN);
196   mpfr_agm (m, x, y, MPFR_RNDN);
203   mpfr_agm (m, x, y, MPFR_RNDN);
207   mpfr_set_ui (x, 0, MPFR_RNDN);
209   mpfr_agm (m, x, y, MPFR_RNDN);
213   mpfr_set_ui (x, 0, MPFR_RNDN);
214   mpfr_set_ui (y, 1, MPFR_RNDN);
215   mpfr_agm (m, x, y, MPFR_RNDN);
219   mpfr_set_ui (x, 0, MPFR_RNDN);
220   mpfr_neg (x, x, MPFR_RNDN);
221   mpfr_set_ui (y, 1, MPFR_RNDN);
222   mpfr_agm (m, x, y, MPFR_RNDN);
226   mpfr_set_ui (x, 0, MPFR_RNDN);
227   mpfr_neg (x, x, MPFR_RNDN);
228   mpfr_set_ui (y, 0, MPFR_RNDN);
229   mpfr_agm (m, x, y, MPFR_RNDN);
233   mpfr_set_ui (x, 1, MPFR_RNDN);
234   mpfr_set_ui (y, 1, MPFR_RNDN);
235   mpfr_agm (m, x, y, MPFR_RNDN);
239   mpfr_set_si (x, -1, MPFR_RNDN);
240   mpfr_set_si (y, -2, MPFR_RNDN);
241   mpfr_agm (m, x, y, MPFR_RNDN);
263   check4 ("2.0", "1.0", MPFR_RNDN, "1.456791031046906869", -1);
264   check4 ("6.0", "4.0", MPFR_RNDN, "4.949360872472608925", 1);
265   check4 ("62.0", "61.0", MPFR_RNDN, "61.498983718845075902", -1);
266   check4 ("0.5", "1.0", MPFR_RNDN, "0.72839551552345343459", -1);
267   check4 ("1.0", "2.0", MPFR_RNDN, "1.456791031046906869", -1);
268   check4 ("234375765.0", "234375000.0", MPFR_RNDN, "234375382.49984394025", 1);