Function to calculate the theis well function for values of \(u < 1\)

theis_well_function_small(u)

Arguments

u

Dimensionless \(u\) variable defined as: $$ u=\frac{r^{2}S}{4Tt} $$ where \(r\) is the distance between the pumping and observation well in m, \(S\) is the storage coefficient (dimensionless), \(T\) is the Transmisivity in m2/s and \(t\) is the time in s

Value

This function returns the value of the dimensionless drawdown

References

Theis, C. The relation between the lowering of the piezometric surface and the rate and duration of discharge of a well using groundwater storage. Transactions of the American Geophysical Union, 1935, 2, 519-524

See also

Examples

u <- seq(0.01, 1, 0.01) Ws <- theis_well_function_small(u) plot(1/u, Ws, type = "l", log = "xy")