static PyObject * GMPy_Complex_Mul_2exp(PyObject *x, PyObject *y, CTXT_Object *context) { MPC_Object *result, *tempx; unsigned long exp = 0; CHECK_CONTEXT(context); exp = c_ulong_From_Integer(y); if (exp == (unsigned long)(-1) && PyErr_Occurred()) { return NULL; } result = GMPy_MPC_New(0, 0, context); tempx = GMPy_MPC_From_Complex(x, 1, 1, context); if (!result || !tempx) { Py_XDECREF((PyObject*)result); Py_XDECREF((PyObject*)tempx); return NULL; } result->rc = mpc_mul_2ui(result->c, tempx->c, exp, GET_MPC_ROUND(context)); Py_DECREF((PyObject*)tempx); GMPY_MPC_CLEANUP(result, context, "mul_2exp()"); return (PyObject*)result; }
static void check_ternary_value (mpfr_prec_t prec_max, mpfr_prec_t step) { mpfr_prec_t prec; mpc_t z; mpfr_t f; mpc_init2 (z, 2); mpfr_init (f); for (prec = 2; prec < prec_max; prec += step) { mpc_set_prec (z, prec); mpfr_set_prec (f, prec); mpc_set_ui (z, 1, MPC_RNDNN); mpfr_set_ui (f, 1, MPFR_RNDN); if (mpc_add_fr (z, z, f, MPC_RNDNZ)) { printf ("Error in mpc_add_fr: 1+1 should be exact\n"); exit (1); } mpc_set_ui (z, 1, MPC_RNDNN); mpc_mul_2ui (z, z, (unsigned long int) prec, MPC_RNDNN); if (mpc_add_fr (z, z, f, MPC_RNDNN) == 0) { fprintf (stderr, "Error in mpc_add_fr: 2^prec+1 cannot be exact\n"); exit (1); } } mpc_clear (z); mpfr_clear (f); }
static void check_ternary_value (void) { mpc_t x, y, z; mpfr_prec_t prec; mpc_init2 (x, 2); mpc_init2 (y, 2); mpc_init2 (z, 2); for (prec = 2; prec <= 1000; prec++) { mpc_set_prec (x, prec); mpc_set_prec (y, prec); mpc_set_ui (x, 1, MPC_RNDNN); mpc_mul_2ui (x, x, (unsigned long int) prec, MPC_RNDNN); mpc_set_ui (y, 1, MPC_RNDNN); if (mpc_add (z, x, y, MPC_RNDNN) == 0) { fprintf (stderr, "Error in mpc_add: 2^(-prec)+1 cannot be exact\n"); exit (1); } } mpc_clear (x); mpc_clear (y); mpc_clear (z); }