bridge/class-master/depend/pari/src/basemath/elliptic.c
/* Q an actual point, P a point or vector/matrix of points */
Q an actual point, P a point or vector/matrix of points
Q an actual point P a point or vector / matrix of points
static GEN
bilhell_i(GEN E, GEN P, GEN Q, long n)
{
  GEN y;
  long i, l = lg(P);
  if (l==1) return cgetg(1,typ(P));
  if (!is_matvec_t( typ(gel(P,1)) )) return ellheight0(E,P,Q,n);
  y = cgetg(l, typ(P));
  for (i=1; i<l; i++) gel(y,i) = bilhell_i(E,gel(P,i),Q,n);
  return y;
}
static GEN bilhell_i ( GEN E , GEN P , GEN Q , long n ) { GEN y ; long i , l = lg ( P ) ; if ( l == 1 ) return cgetg ( 1 , typ ( P ) ) ; if ( ! is_matvec_t ( typ ( gel ( P , 1 ) ) ) ) return ellheight0 ( E , P , Q , n ) ; y = cgetg ( l , typ ( P ) ) ; for ( i = 1 ; i < l ; i ++ ) gel ( y , i ) = bilhell_i ( E , gel ( P , i ) , Q , n ) ; return y ; }
Q an actual point, P a point or vector/matrix of points
Q an actual point P a point or vector / matrix of points