# load FieldSim library
library(FieldSim)
# Simulation
# H=0.3
res <- midpoint(H=0.3,nblevel=8)
# Plot
x <- res$Zrow
y <- res$Zcol
z <- res$Z
persp(x, y, z, theta = 30, phi = 30, expand = 0.5, col = "lightblue")
Run the code above in your browser using DataLab