Function to calculate the initial values of the Cooper-Jacob Solution

cooper_jacob_solution_initial(ptest)

Arguments

ptest

A pumping_test object

Value

A list with the values of a (slope) and t0 (intercept) of the straight line fitted to the drawdown data

References

Cooper, H. & Jacob, C. A generalized graphical method for evaluating formation constants and summarizing well field history. Transactions of the American Geophysical Union, 1946, 27, 526-534

See also

Examples

data(theis) ptest <- pumping_test("Well1", Q= 1.3e-3, r = 200, t = theis$t, s = theis$s) cooper_jacob_sol0 <- cooper_jacob_solution_initial(ptest) print(cooper_jacob_sol0)
#> $a #> [1] 1.534881 #> #> $t0 #> [1] 245.0811 #>