k_theta <- function(theta,k_sat,theta_sat,b,l = 1){ return(k_sat*(10**(-7*(1-l)))*(theta/theta_sat)**(2*b+3)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.