R/virtual_temperature.R

virtual_temperature <-
function(P,Temp,w,consts=export_constants()){
	partial_press=q2e(P,w2q(w),consts)
	Tv=Temp/(1-(partial_press/P)*(1.-consts["epsilon"]))
	return(as.double(Tv))
}

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.