Function to calculate the exponential integral used in the Theis well function

exponential_integral(x)

Arguments

x

Numeric value

Value

This function returns the value of the exponential integral

See also

Examples

x <- seq(0.01,10,0.05) Ei <- exponential_integral(x) plot(x, Ei, type = "p", log = 'y')
#> Warning: 8 y values <= 0 omitted from logarithmic plot