Function to calculates the derivative of neuzil solution
neuzil_solution_dlogt(ptest, cd, t0, t)
ptest | A pumping_test object |
---|---|
cd | Value of the wellbore storage coefficient (cd) |
t0 | Intercept |
t | A Numeric vector with time |
A numeric vector with the derivative of 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_initial
,
neuzil_solution
,
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_dlogt <- neuzil_solution_dlogt(ptest.neuzil, sol0$cd, sol0$t0, ptest.neuzil$t) print(sol_dlogt)#> [1] 0.02810545 0.04106384 0.05588616 0.07761426 0.09765444 0.11848786 #> [7] 0.14579418 0.17525457 0.20692534 0.22897841 0.24813536 0.26250637 #> [13] 0.26084065 0.24731194 0.23102420 0.21080844 0.18573951 0.15841547 #> [19] 0.12653632