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

Description Usage Arguments Value Author(s) References See Also Examples

View source: R/papadopulos_cooper_utilities.R

Function to calculate the drawdown of the Papadopulos-Cooper solution

1	papadopulos_cooper_solution(ptest, a, t0, t)

`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

A numeric vector with the calculated drawdown

Oscar Garcia-Cabrejo khaors@gmail.com

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

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

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)