Function to calculate the discharge at the pumping well using the Jacob-Lohman solution for a constant head test (artesian aquifer)
jacob_lohman_G_solution(ptest, a, t0, t)
| ptest | A pumping_test object |
|---|---|
| a | Slope of the straight line fitted tothe drawdown data using the Cooper-Jacob approach |
| t0 | Intercept of the straight line fitted tothe drawdown data using the Cooper-Jacob approach |
| t | Numeric vector with the time values |
A numeric vector with the calculate discharge using the Jacob-Lohman solution
Jacob, C. E. & Lohman, S. W. Nonsteady Flow to a Well Of Constant Drawdown. American Geophysical Union, 1952, 33, 10.
Other jacob_lohman functions: jacob_lohman_F_calculate_parameters,
jacob_lohman_F_solution_initial,
jacob_lohman_F_solution,
jacob_lohman_F_well_function,
jacob_lohman_G_WF_LT,
jacob_lohman_G_calculate_parameters,
jacob_lohman_G_solution_initial,
jacob_lohman_G_well_function,
jacob_lohman_WF_F_LT
data(jacob_lohman) s <- vector("numeric", length(jacob_lohman$t)) s[1:length(jacob_lohman$t)] <- 0 ptest <- pumping_test("Well1", Q = jacob_lohman$q, r = 0.0, t = jacob_lohman$t, s = s)#> Warning: the condition has length > 1 and only the first element will be usedsol0 <- jacob_lohman_G_solution_initial(ptest) sol <- jacob_lohman_G_solution(ptest, sol0$a, sol0$t0, ptest$t) print(sol)#> [1] 0.003335573 0.002651122 0.002339731 0.002150204 0.002018577 0.001919913 #> [7] 0.001778724 0.001640619 0.001499000 0.001408320 0.001343323 0.001293500 #> [13] 0.001217515 0.001168333 0.001128351 0.001082441 0.001047231 0.001024183 #> [19] 0.001007528