Function to calculate the drawdown using the Cooper-Jacob solution for a confined aquifer
cooper_jacob_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 the values of time |
This function returns a numeric vector with the calculated drawdown
Cooper, H. & Jacob, C. A generalized graphical method for evaluating formation constants and summarizing well field history. Transactions of the American Geophysical Union, 1946, 27, 526-534
Other cooper_jacob functions: cooper_jacob_calculate_parameters,
cooper_jacob_solution_dlogt,
cooper_jacob_solution_initial,
cooper_jacob_well_function
data(theis) ptest <- pumping_test("Well1", Q= 1.3e-3, r = 200, t = theis$t, s = theis$s) sol0 <- cooper_jacob_solution_initial(ptest) sol <- cooper_jacob_solution(ptest, sol0$a, sol0$t0, ptest$t) print(sol)#> [1] -0.2057317 0.1347797 0.4480797 0.7183588 1.0588703 1.1804041 #> [7] 1.3291495 1.4867240 1.6284154 1.6696609 1.7911948 1.8939501 #> [13] 1.9829609 2.0614739 2.1317062 2.3065957 2.4450062 2.5937515 #> [19] 2.7686410 2.9070514 3.0216052 3.2045422