dist/src/asin.c

25 mpc_asin (mpc_ptr rop, mpc_srcptr op, mpc_rnd_t rnd)
37           mpfr_set_nan (MPC_RE (rop));
38           mpfr_set_inf (MPC_IM (rop), mpfr_signbit (MPC_IM (op)) ? -1 : +1);
42           mpfr_set (MPC_RE (rop), MPC_RE (op), GMP_RNDN);
43           mpfr_set_nan (MPC_IM (rop));
47           mpfr_set_nan (MPC_RE (rop));
48           mpfr_set_nan (MPC_IM (rop));
59           inex_re = set_pi_over_2 (MPC_RE (rop), -mpfr_signbit (MPC_RE (op)),
61           mpfr_set_inf (MPC_IM (rop), -mpfr_signbit (MPC_IM (op)));
64             mpfr_div_2ui (MPC_RE (rop), MPC_RE (rop), 1, GMP_RNDN);
70           inex_re = mpfr_set_ui (MPC_RE (rop), 0, GMP_RNDN);
72             mpfr_neg (MPC_RE (rop), MPC_RE (rop), GMP_RNDN);
73           mpfr_set_inf (MPC_IM (rop), -mpfr_signbit (MPC_IM (op)));
90             inex_im = -mpfr_acosh (MPC_IM (rop), MPC_RE (op),
93             inex_im = mpfr_acosh (MPC_IM (rop), MPC_RE (op),
95           inex_re = set_pi_over_2 (MPC_RE (rop), -mpfr_signbit (MPC_RE (op)),
98             mpc_conj (rop, rop, MPC_RNDNN);
107             inex_im = -mpfr_acosh (MPC_IM (rop), minus_op_re,
110             inex_im = mpfr_acosh (MPC_IM (rop), minus_op_re,
112           inex_re = set_pi_over_2 (MPC_RE (rop), -mpfr_signbit (MPC_RE (op)),
115             mpc_conj (rop, rop, MPC_RNDNN);
119           inex_im = mpfr_set_ui (MPC_IM (rop), 0, MPC_RND_IM (rnd));
121             mpfr_neg (MPC_IM (rop), MPC_IM (rop), GMP_RNDN);
122           inex_re = mpfr_asin (MPC_RE (rop), MPC_RE (op), MPC_RND_RE (rnd));
134       mpfr_set_ui (MPC_RE (rop), 0, GMP_RNDN);
136         mpfr_neg (MPC_RE (rop), MPC_RE (rop), GMP_RNDN);
137       inex_im = mpfr_asinh (MPC_IM (rop), MPC_IM (op), MPC_RND_IM (rnd));
143   p_re = mpfr_get_prec (MPC_RE(rop));
144   p_im = mpfr_get_prec (MPC_IM(rop));
224   inex = mpc_set (rop, z1, rnd);