This function calculate the initial parameters

general_radial_flow_solution_initial(ptest)

Arguments

ptest

A pumping_test object

Value

A list with

  • a: Slope of the straight line fitted to the drawdown data using the Cooper-Jacob approach

  • t0: Intercept of the straight line fitted to the drawdown data using the Cooper-Jacob approach

  • n: Flow dimension (n=2)

References

Barker, J. A. A generalized radial flow model for hydraulic tests in fractured rock Water Resources Research, 1988, 24, 1796-1804.

See also

Examples

data("general_radial_flow1") ptest.grf1 <- pumping_test("Well1", Q= 0.02322, r = 26.2, t = general_radial_flow1$t, s = general_radial_flow1$s) par <- list(rw = 0.1, rc = 0.1, rd = 1) ptest.grf1$additional_parameters <- par sol0 <- general_radial_flow_solution_initial(ptest.grf1) print(sol0)
#> $a #> [1] 0.8005001 #> #> $t0 #> [1] 0.0001306415 #> #> $n #> [1] 2 #>