Function to calculates the derivative of neuzil solution

neuzil_solution_dlogt(ptest, cd, t0, t)

Arguments

ptest

A pumping_test object

cd

Value of the wellbore storage coefficient (cd)

t0

Intercept

t

A Numeric vector with time

Value

A numeric vector with the derivative of drawdown

References

Neuzil, C. E. On conducting the modified 'Slug' test in tight formations. Water Resources Research, 1982, 18, 2, 439-441

See also

Examples

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