pyexpint/expint.cpp
/**
 * Asymptotic expansion or Laguerre series for large x
 */
Asymptotic expansion or Laguerre series for large x
Asymptotic expansion or Laguerre series for large x
double expint_large_x(const double v, const double x) 
{
  int iter;
  if (x / v > 100.0) {
    iter = use_expint_asymp_x(v, x);
    if (iter)
      return expint_asymp_x(v, x, iter);
    else
      return expint_laguerre_series(v, x);
  } 
  else
    return expint_laguerre_series(v, x);
}
double expint_large_x ( const double v , const double x ) { int iter ; if ( x / v > 100.0 ) { iter = use_expint_asymp_x ( v , x ) ; if ( iter ) return expint_asymp_x ( v , x , iter ) ; else return expint_laguerre_series ( v , x ) ; } else return expint_laguerre_series ( v , x ) ; }
Asymptotic expansion or Laguerre series for large x
Asymptotic expansion or Laguerre series for large x
// fixed v and large v