diff options
| author | zimmerma <zimmerma@211d60ee-9f03-0410-a15a-8952a2c7a4e4> | 2009-08-25 11:25:07 +0000 |
|---|---|---|
| committer | zimmerma <zimmerma@211d60ee-9f03-0410-a15a-8952a2c7a4e4> | 2009-08-25 11:25:07 +0000 |
| commit | d7ad85b4101829c7fc46440802fdac98de158e9b (patch) | |
| tree | 41377567fbd58ec166857b554dd4111bea6778f1 | |
| parent | 6d0a27efc061ca29b828f7efb2788b08ab80df17 (diff) | |
| download | mpc-d7ad85b4101829c7fc46440802fdac98de158e9b.tar.gz | |
[fr_div.c] added comment
[fr_div.dat] fixed values in accordance with div.dat and 1st input having
imaginary part +0
git-svn-id: svn://scm.gforge.inria.fr/svn/mpc/trunk@659 211d60ee-9f03-0410-a15a-8952a2c7a4e4
| -rw-r--r-- | src/fr_div.c | 3 | ||||
| -rw-r--r-- | tests/fr_div.dat | 38 |
2 files changed, 27 insertions, 14 deletions
diff --git a/src/fr_div.c b/src/fr_div.c index 5b68bd8..6de32cb 100644 --- a/src/fr_div.c +++ b/src/fr_div.c @@ -1,6 +1,6 @@ /* mpc_fr_div -- Divide a floating-point number by a complex number. -Copyright (C) 2008, 2009 Andreas Enge, Philippe Th\'eveny +Copyright (C) 2008, 2009 Andreas Enge, Philippe Th\'eveny, Paul Zimmermann This file is part of the MPC Library. @@ -30,6 +30,7 @@ mpc_fr_div (mpc_ptr a, mpfr_srcptr b, mpc_srcptr c, mpc_rnd_t rnd) MPC_RE (bc)[0] = b [0]; mpfr_init (MPC_IM (bc)); + /* we consider the operand b to have imaginary part +0 */ mpfr_set_ui (MPC_IM (bc), 0, GMP_RNDN); inexact = mpc_div (a, bc, c, rnd); diff --git a/tests/fr_div.dat b/tests/fr_div.dat index 2492ffc..b80bae8 100644 --- a/tests/fr_div.dat +++ b/tests/fr_div.dat @@ -1,6 +1,6 @@ # Data file for mpc_fr_div. # -# Copyright (C) 2008, 2009 Andreas Enge +# Copyright (C) 2008, 2009 Andreas Enge, Paul Zimmermann # # This file is part of the MPC Library. # @@ -306,9 +306,11 @@ # finite values 0 0 7 0.5 7 -0.5 7 -1 7 -1 7 -1 N N 0 0 7 1 7 -0 7 -1 7 -1 7 -0 N N -0 0 7 1 7 -0 7 -1 7 -1 7 +0 N N +# cf line 2206 of div.dat, revision 658: +0 0 7 1 7 +0 7 -1 7 -1 7 +0 N N 0 0 7 0.5 7 0.5 7 -1 7 -1 7 1 N N -0 0 7 -0 7 -1 7 -1 7 -0 7 -1 N N +# cf line 2208 of div.dat, revision 658: +0 0 7 +0 7 -1 7 -1 7 -0 7 -1 N N 0 0 7 +inf 7 nan 7 -1 7 -0 7 -0 N N 0 0 7 +inf 7 nan 7 -1 7 -0 7 +0 N N 0 0 7 +0 7 1 7 -1 7 -0 7 1 N N @@ -322,45 +324,55 @@ 0 0 7 -0.5 7 0.5 7 -1 7 1 7 1 N N 0 0 7 0 7 -0 7 -0 7 -1 7 -1 N N 0 0 7 +0 7 -0 7 -0 7 -1 7 -0 N N -0 0 7 +0 7 -0 7 -0 7 -1 7 +0 N N +# cf line 2270 of div.dat, revision 658: +0 0 7 +0 7 +0 7 -0 7 -1 7 +0 N N 0 0 7 +0 7 0 7 -0 7 -1 7 1 N N -0 0 7 -0 7 -0 7 -0 7 -0 7 -1 N N +# cf line 2272 of div.dat, revision 658: +0 0 7 +0 7 -0 7 -0 7 -0 7 -1 N N 0 0 7 nan 7 nan 7 -0 7 -0 7 -0 N N 0 0 7 nan 7 nan 7 -0 7 -0 7 +0 N N 0 0 7 +0 7 +0 7 -0 7 -0 7 1 N N -0 0 7 -0 7 -0 7 -0 7 +0 7 -1 N N +# cf line 2276 of div.dat, revision 658: +0 0 7 -0 7 +0 7 -0 7 +0 7 -1 N N 0 0 7 nan 7 nan 7 -0 7 +0 7 -0 N N 0 0 7 nan 7 nan 7 -0 7 +0 7 +0 N N 0 0 7 +0 7 +0 7 -0 7 +0 7 1 N N 0 0 7 -0 7 0 7 -0 7 1 7 -1 N N 0 0 7 -0 7 +0 7 -0 7 1 7 -0 N N -0 0 7 -0 7 +0 7 -0 7 1 7 +0 N N +# cf line 2282 of div.dat, revision 658: +0 0 7 +0 7 +0 7 -0 7 1 7 +0 N N 0 0 7 0 7 +0 7 -0 7 1 7 1 N N 0 0 7 -0 7 0 7 +0 7 -1 7 -1 N N -0 0 7 -0 7 -0 7 +0 7 -1 7 -0 N N -0 0 7 -0 7 -0 7 +0 7 -1 7 +0 N N +# cf line 2333 of div.dat, revision 658: +0 0 7 -0 7 +0 7 +0 7 -1 7 -0 N N +# cf line 2334 of div.dat, revision 658: +0 0 7 +0 7 -0 7 +0 7 -1 7 +0 N N 0 0 7 0 7 -0 7 +0 7 -1 7 1 N N 0 0 7 -0 7 +0 7 +0 7 -0 7 -1 N N 0 0 7 nan 7 nan 7 +0 7 -0 7 -0 N N 0 0 7 nan 7 nan 7 +0 7 -0 7 +0 N N 0 0 7 +0 7 -0 7 +0 7 -0 7 1 N N -0 0 7 -0 7 +0 7 +0 7 +0 7 -1 N N +# cf line 2340 of div.dat, revision 658: +0 0 7 +0 7 +0 7 +0 7 +0 7 -1 N N 0 0 7 nan 7 nan 7 +0 7 +0 7 -0 N N 0 0 7 nan 7 nan 7 +0 7 +0 7 +0 N N -0 0 7 +0 7 -0 7 +0 7 +0 7 1 N N +# cf line 2343 of div.dat, revision 658: +0 0 7 +0 7 +0 7 +0 7 +0 7 1 N N 0 0 7 0 7 +0 7 +0 7 1 7 -1 N N 0 0 7 +0 7 +0 7 +0 7 1 7 -0 N N 0 0 7 +0 7 +0 7 +0 7 1 7 +0 N N 0 0 7 +0 7 0 7 +0 7 1 7 1 N N 0 0 7 -0.5 7 0.5 7 1 7 -1 7 -1 N N -0 0 7 -1 7 -0 7 1 7 -1 7 -0 N N +# cf line 2397 of div.dat, revision 658: +0 0 7 -1 7 +0 7 1 7 -1 7 -0 N N 0 0 7 -1 7 -0 7 1 7 -1 7 +0 N N 0 0 7 -0.5 7 -0.5 7 1 7 -1 7 1 N N 0 0 7 -0 7 1 7 1 7 -0 7 -1 N N 0 0 7 -inf 7 nan 7 1 7 -0 7 -0 N N 0 0 7 -inf 7 nan 7 1 7 -0 7 +0 N N 0 0 7 +0 7 -1 7 1 7 -0 7 1 N N -0 0 7 -0 7 1 7 1 7 +0 7 -1 N N +# cf line 2404 of div.dat, revision 658: +0 0 7 +0 7 1 7 1 7 +0 7 -1 N N 0 0 7 +inf 7 nan 7 1 7 +0 7 -0 N N 0 0 7 +inf 7 nan 7 1 7 +0 7 +0 N N 0 0 7 +0 7 -1 7 1 7 +0 7 1 N N |