Function to calculate the drawdown using the Cooper solution for a slug test
cooper_solution(ptest, cd, t0, t)
| ptest | A pumping_test object |
|---|---|
| cd | Value of the dimensionless wellbore storage coefficient |
| t0 | Intercept of the straight line fitted to the drawdown data using the Cooper-Jacob approach |
| t | Numeric vector with the value of time |
A numeric vector with the calculated drawdown
Cooper, H. H.; Bredehoeft, J. D. & Papadopulos, I. S. Response of a finite-diameter well to an instantaneous charge of water Water Resources Research, 1967, 3, 263-269
Other cooper functions: cooper_WF_LT,
cooper_calculate_parameters,
cooper_solution_dlogt,
cooper_solution_initial,
cooper_well_function
data(cooper_slug) ptest <- pumping_test("Well1", Q = 0, r = 0, t = cooper_slug$t, s = cooper_slug$s) sol0 <- cooper_solution_initial(ptest) sol <- cooper_solution(ptest, sol0$cd, sol0$t0, ptest$t) print(sol)#> [1] 0.9995917 0.9994215 0.9992826 0.9991695 0.9990637 0.9989684 0.9988783 #> [8] 0.9987924 0.9987098 0.9985542 0.9984784 0.9983348 0.9981956 0.9980599 #> [15] 0.9979255 0.9977289 0.9975337 0.9973396 0.9971450 0.9969491 0.9966851 #> [22] 0.9964150 0.9960682 0.9957814 0.9954105 0.9950226 0.9946163 0.9941890 #> [29] 0.9936468 0.9931670 0.9925551 0.9918989 0.9911946 0.9904372 0.9896217 #> [36] 0.9875077 0.9868009 0.9854661 0.9842164 0.9824659 0.9813655 0.9792906 #> [43] 0.9778244 0.9755165 0.9733453 0.9708835 0.9681709 0.9652396 0.9621157 #> [50] 0.9584995 0.9544565 0.9500417 0.9452999 0.9400096 0.9339948 0.9275812 #> [57] 0.9203734 0.9122659 0.9033776 0.8938094 0.8829391 0.8711204 0.8581691 #> [64] 0.8438049 0.8279672 0.8106341 0.7916953 0.7711025 0.7485410