papadopulos_cooper_solution_initial

Function to calculate the initial solution of the Papadopulos-Cooper model

papadopulos_cooper_solution_initial(ptest)

Arguments

ptest	A pumping_test object

Value

A list with

• 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

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, 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)
sol0 <- papadopulos_cooper_solution_initial(ptest)
print(sol0)
#> $a
#> [1] 1.059009
#> 
#> $t0
#> [1] 23.49666
#>