Function to calculate the drawdown of the Papadopulos-Cooper solution
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
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)#> [1] 0.3708440 0.6164039 0.7766510 0.8954345 0.9897979 1.0680733 1.1349497 #> [8] 1.1933267 1.2451220 1.2916700 1.6017548 1.7852816 1.9161014 2.0178295 #> [15] 2.1010801 2.1715451 2.2326338 2.2865512 2.3348055 2.6526775 2.8388493 #> [22] 2.9710043 3.0735387 3.1573294 3.2281815 3.2895616 3.3437061 3.3921425 #> [29] 3.7108400 3.8972899 4.0295849 4.1322037 4.2160507 4.2869433 4.3483538 #> [36] 4.4025220 4.4509774 4.7697608 4.9562397 5.0885492 5.1911768 5.2750297 #> [43] 5.3459265 5.4073401 5.4615108 5.5099682