papadopulos_cooper_solution: papadopulos_cooper_solution

In khaors/pumpingtest: R Package for the analysis and evaluation of pumping tests

papadopulos_cooper_solution

Description

Function to calculate the drawdown of the Papadopulos-Cooper solution

Usage

papadopulos_cooper_solution(ptest, a, t0, t)

Arguments

ptest	A pumping_test object
a	Slope of the straight line fitted to the drawdown data using the Cooper-Jacob approach
t0	Intercept of the straight line fitted to the drawdown data using the Cooper-Jacob approach
t	Numeric vector with time

Value

A numeric vector with the calculated drawdown

Author(s)

Oscar Garcia-Cabrejo [e-mail]

References

Papadopulos, I. S. & Cooper, H. H. Drawdown in a well of large diameter. Water Resources Research, 1967, 3, 241-244.

See Also

Other papadopulos_cooper functions: papadopulos_cooper_F_WF_LT_dlogt, papadopulos_cooper_F_WF_LT, papadopulos_cooper_calculate_parameters, papadopulos_cooper_solution_dlogt, papadopulos_cooper_solution_initial, papadopulos_cooper_well_function

Examples

data(papadopulos_cooper)
ptest <- pumping_test("Well1", Q=0.0050472, r = 3.048, t = as.numeric(papadopulos_cooper$t),
                      s = papadopulos_cooper$s)
ptest$additional_parameters <- list(rw = 0.6096, rc = 0.6096)
sol0 <- papadopulos_cooper_solution_initial(ptest)
sol <- papadopulos_cooper_solution(ptest, sol0$a, sol0$t0, ptest$t)
print(sol)

khaors/pumpingtest documentation built on June 10, 2025, 4:53 a.m.