R/q2e.R

q2e <-
function(P,q,consts=export_constants()){
	return(as.double(q*P/(consts["epsilon"]*(1-q)+q)))
}

Try the aiRthermo package in your browser

Any scripts or data that you put into this service are public.

aiRthermo documentation built on May 1, 2019, 9:24 p.m.