# # Wang 2000, Theory of Linear Poroelasticity
#
# omega <- .calc_omega(frequency)
# delta <- z * sqrt(omega / (2.0 * diffusivity))
# exp(-(1 + 1i) * delta) * 1/specific_storage
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.