Calculates the drawdown using Neuzil solution
neuzil_solution(ptest, cd, t0, t)
| ptest | A pumping_test object |
|---|---|
| cd | Value of the wellbore storage coefficient |
| t0 | Intercept |
| t | Numeric vector with time |
A numeric vector with the calculated drawdown
Neuzil, C. E. On conducting the modified 'Slug' test in tight formations. Water Resources Research, 1982, 18, 2, 439-441
Other neuzil functions: neuzil_WF_LT,
neuzil_calculate_parameters,
neuzil_solution_dlogt,
neuzil_solution_initial,
neuzil_well_function
data(neuzil) ptest.neuzil <- pumping_test("Well1", Q = 0, r = 0.0, t = neuzil$t, s = neuzil$s) par <- list(rw = 0.067, ceff = 2.723e-9, vs = 1.59) ptest.neuzil$additional_parameters <- par sol0 <- neuzil_solution_initial(ptest.neuzil) sol <- neuzil_solution(ptest.neuzil, sol0$cd, sol0$t0, ptest.neuzil$t) print(sol)#> [1] 0.96381208 0.94393853 0.92717429 0.89831480 0.86149913 0.83966293 #> [7] 0.79129046 0.74920331 0.67765593 0.61792173 0.56672060 0.48283554 #> [13] 0.38870900 0.30052877 0.25243621 0.21484907 0.17636089 0.14115870 #> [19] 0.11132440 0.07944025