IM2_RingElement_to_ComplexInterval()

gmp_CCiorNull IM2_RingElement_to_ComplexInterval

(

const RingElement *

a

)

Definition at line 218 of file ringelement.cpp.

{
    const Ring *R = a->get_ring();
    gmp_CCimutable result;
    const M2::ConcreteRing<M2::ARingCCi> *R1;
 
    switch (R->ringID())
    {
       case M2::ring_RR:
          result = getmemstructtype(gmp_CCimutable);
            result->re = getmemstructtype(gmp_RRimutable);
            result->im = getmemstructtype(gmp_RRimutable);
          mpfi_init2(result->re, 53);
          mpfi_init2(result->im, 53);
          mpfi_set_d(result->re, a->get_value().get_double());
          mpfi_set_d(result->im, 0);
          return moveTo_gmpCCi(result);
       case M2::ring_RRR:
            R1 =
              dynamic_cast<const M2::ConcreteRing<M2::ARingCCi> *>(R);
           result = getmemstructtype(gmp_CCimutable);
            result->re = getmemstructtype(gmp_RRimutable);
            result->im = getmemstructtype(gmp_RRimutable);
           mpfi_init2(result->re, R1->get_precision());
           mpfi_init2(result->im, R1->get_precision());
           mpfi_set_fr(result->re, a->get_value().get_mpfr());
           mpfi_set_d(result->im, 0);
           return moveTo_gmpCCi(result);
       case M2::ring_RRi:
          R1 =
          dynamic_cast<const M2::ConcreteRing<M2::ARingCCi> *>(R);
          result = getmemstructtype(gmp_CCimutable);
            result->re = getmemstructtype(gmp_RRimutable);
            result->im = getmemstructtype(gmp_RRimutable);
          mpfi_init2(result->re, R1->get_precision());
          mpfi_init2(result->im, R1->get_precision());
          mpfi_set(result->re, a->get_value().get_mpfi());
          mpfi_set_d(result->im,0);
          return moveTo_gmpCCi(result);
        case M2::ring_CCC:
            R1 =
               dynamic_cast<const M2::ConcreteRing<M2::ARingCCi> *>(R);
            result = getmemstructtype(gmp_CCimutable);
            result->re = getmemstructtype(gmp_RRimutable);
            result->im = getmemstructtype(gmp_RRimutable);
            mpfi_init2(result->re, R1->get_precision());
            mpfi_init2(result->im, R1->get_precision());
            mpfi_set_fr(result->re, &a->get_value().get_cc()->re);
            mpfi_set_fr(result->im, &a->get_value().get_cc()->im);
            return moveTo_gmpCCi(result);
       case M2::ring_CCi:
           R1 =
           dynamic_cast<const M2::ConcreteRing<M2::ARingCCi> *>(R);
           result = getmemstructtype(gmp_CCimutable);
            result->re = getmemstructtype(gmp_RRimutable);
            result->im = getmemstructtype(gmp_RRimutable);
           mpfi_init2(result->re, R1->get_precision());
           mpfi_init2(result->im, R1->get_precision());
           mpfi_set(result->re, &a->get_value().get_cci()->re);
           mpfi_set(result->im, &a->get_value().get_cci()->im);
           return moveTo_gmpCCi(result);
       default:
          ERROR("expected an element of CCi");
          return nullptr;
    }
}

References ERROR, ring_elem::get_cc(), ring_elem::get_cci(), ring_elem::get_double(), ring_elem::get_mpfi(), ring_elem::get_mpfr(), M2::ConcreteRing< RingType >::get_precision(), RingElement::get_ring(), RingElement::get_value(), getmemstructtype, moveTo_gmpCCi(), result(), M2::ring_CCC, M2::ring_CCi, M2::ring_RR, M2::ring_RRi, M2::ring_RRR, and Ring::ringID().