w <- well(xw = 55, yw = 0, Q = 200)
uf <- uniformflow(gradient = 0.002, angle = -45, TR = 100)
rf <- constant(xc = -1000, yc = 1000, hc = 10)
ml <- aem(k = 10, top = 10, base = -15, n = 0.2, w, uf, rf)
xg <- seq(-100, 100, length = 5)
yg <- seq(-75, 75, length = 3)
# Hydraulic heads
heads(ml, c(50, 0), c(25, -25))
heads(ml, xg, yg, as.grid = TRUE)
# do not confuse heads() with utils::head, which will give an error
try(
head(ml, c(50, 0), c(25, -25))
)
# Complex potential
omega(ml, c(50, 0), c(25, -25))
# Discharge potential
potential(ml, c(50, 0), c(25, -25))
# Stream function
streamfunction(ml, c(50, 0), c(25, -25))
# For elements
omega(w, c(50, 0), c(-25, 25))
potential(w, c(50, 0), c(-25, 25))
streamfunction(w, c(50, 0), c(-25, 25))
Run the code above in your browser using DataLab