OpenXM/src/ox_pari/convert.c - diff

Return to convert.c CVS log

Up to [local] / OpenXM / src / ox_pari

version 1.1, 2015/08/21 01:20:30

version 1.2, 2015/08/21 01:53:08

Line 184 cmo_bf *GEN_to_cmo_bf(GEN z)

ptr[j] = z[len-j+1];

MPFR_EXP(c->mpfr) = (long long)(expo(z)+1);

MPFR_SIGN(c->mpfr) = gsigne(z);

if ( !mpfr_sgn(c->mpfr) ) c = (cmo_bf *)new_cmo_zero();

return c;

}

Line 206 cmo_list *GEN_to_cmo_list(GEN z)

Line 207 cmo_list *GEN_to_cmo_list(GEN z)

cmo_complex *GEN_to_cmo_complex(GEN z)

{

cmo_complex *c;

cmo_bf *re,*im;

c = new_cmo_complex();

re = (cmo_bf *)GEN_to_cmo((GEN)z[1]);

c->re = GEN_to_cmo((GEN)z[1]);

im = (cmo_bf *)GEN_to_cmo((GEN)z[2]);

c->im = GEN_to_cmo((GEN)z[2]);

if ( im->tag == CMO_ZERO )

return c;

return (cmo_complex *)re;

else {

c = new_cmo_complex();

c->re = (cmo *)re; c->im = (cmo *)im;

return c;

}

cmo_polynomial_in_one_variable *GEN_to_cmo_up(GEN z)