bridge/class-master/depend/pari/src/basemath/elliptic.c
/* References:
  The complex AGM, periods of elliptic curves over C and complex elliptic logarithms
  John E. Cremona, Thotsaphon Thongjunthug, arXiv:1011.0914
*/
The complex AGM, periods of elliptic curves over C and complex elliptic logarithms
John E.
The complex AGM periods of elliptic curves over C and complex elliptic logarithms John E .
static GEN
ellomega_agm(GEN a, GEN b, GEN c, long prec)
{
  GEN pi = mppi(prec), mIpi = mkcomplex(gen_0, negr(pi));
  GEN Mac = agm(a,c,prec), Mbc = agm(b,c,prec);
  retmkvec2(gdiv(pi, Mac), gdiv(mIpi, Mbc));
}
static GEN ellomega_agm ( GEN a , GEN b , GEN c , long prec ) { GEN pi = mppi ( prec ) , mIpi = mkcomplex ( gen_0 , negr ( pi ) ) ; GEN Mac = agm ( a , c , prec ) , Mbc = agm ( b , c , prec ) ; retmkvec2 ( gdiv ( pi , Mac ) , gdiv ( mIpi , Mbc ) ) ; }
References:
The complex AGM, periods of elliptic curves over C and complex elliptic logarithms
John E. Cremona, Thotsaphon Thongjunthug, arXiv:1011.0914
References : The complex AGM periods of elliptic curves over C and complex elliptic logarithms John E . Cremona Thotsaphon Thongjunthug arXiv : 1011 . 0914