diff options
author | thevenyp <thevenyp@211d60ee-9f03-0410-a15a-8952a2c7a4e4> | 2008-04-22 13:40:16 +0000 |
---|---|---|
committer | thevenyp <thevenyp@211d60ee-9f03-0410-a15a-8952a2c7a4e4> | 2008-04-22 13:40:16 +0000 |
commit | dc4b081efa36628e66f764cb3bb802e3a3a4bbff (patch) | |
tree | d7a5be42dab739e9dec49cd223353d9d1fe73ff5 /tests/tsin.c | |
parent | b35d3805ad6ec682fdc241ea270e896cb386161e (diff) | |
download | mpc-dc4b081efa36628e66f764cb3bb802e3a3a4bbff.tar.gz |
Fix values at a (x +/-i*Inf) point.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpc/trunk@117 211d60ee-9f03-0410-a15a-8952a2c7a4e4
Diffstat (limited to 'tests/tsin.c')
-rw-r--r-- | tests/tsin.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/tsin.c b/tests/tsin.c index 22098c8..93a1365 100644 --- a/tests/tsin.c +++ b/tests/tsin.c @@ -154,7 +154,8 @@ special () if (!mpfr_nan_p (MPC_RE (s)) || !mpfr_inf_p (MPC_IM (s))) test_failed (z, s, c99); - /* sin(x +/-i*infinity) = infinity*(sin x -i*cos x) where 0<|x|<infinity */ + /* sin(x -i*infinity) = infinity*(sin x -i*cos x) where 0<|x|<infinity */ + /* sin(x +i*infinity) = infinity*(sin x +i*cos x) where 0<|x|<infinity */ mpfr_set_ui (MPC_RE (z), 1, GMP_RNDN); mpfr_set_inf (MPC_RE (c99), +1); mpfr_set_inf (MPC_IM (c99), +1); @@ -162,6 +163,7 @@ special () if (mpc_cmp (s, c99) != 0) test_failed (z, s, c99); mpc_conj (z, z, MPC_RNDNN); + mpc_conj (c99, c99, MPC_RNDNN); mpc_sin (s, z, MPC_RNDUU); if (mpc_cmp (s, c99) != 0) test_failed (z, s, c99); @@ -171,6 +173,7 @@ special () if (mpc_cmp (s, c99) != 0) test_failed (z, s, c99); mpc_conj (z, z, MPC_RNDNN); + mpc_conj (c99, c99, MPC_RNDNN); mpc_sin (s, z, MPC_RNDUU); if (mpc_cmp (s, c99) != 0) test_failed (z, s, c99); |