R/papadopulos_cooper_utilities.R
papadopulos_cooper_solution_dlogt.RdThis function calcultes the derivative of the drawdown with respect to the log of time for Papadopulos-Cooper solution
papadopulos_cooper_solution_dlogt(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 list with the x and y coordinates of the derivative
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_initial,
papadopulos_cooper_solution,
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_dlogt <- papadopulos_cooper_solution_dlogt(ptest, sol0$a, sol0$t0, ptest$t) print(sol_dlogt)#> [1] 0.3472742 0.3925236 0.4114778 0.4220062 0.4287318 0.4334088 0.4368534 #> [8] 0.4394979 0.4415932 0.4385261 0.4495469 0.4531730 0.4549422 0.4559824 #> [15] 0.4566650 0.4571465 0.4575041 0.4577800 0.4495389 0.4560258 0.4577985 #> [22] 0.4585479 0.4589403 0.4591742 0.4593263 0.4594316 0.4595080 0.4507063 #> [29] 0.4567072 0.4582833 0.4589251 0.4592495 0.4594363 0.4595538 0.4596327 #> [36] 0.4596882 0.4508279 0.4567780 0.4583337 0.4589643 0.4592816 0.4594635 #> [43] 0.4595774 0.4596535 0.4597069