data(thermo)
## argument processing
eos.args("hkf",c("g","H","S","cP","V","kT","e"))
## produces an error because "Q" is not allowed in water.SUPCRT92
eos.args("hkf",c("G","H","S","Cp","V","kT","E","Q"))
thermo$opt$water <- "IAPWS" # needed for p and n in next line
eos.args("water",c("p","u","cv","psat","rho","n","q","x","y","epsilon"))
TP.args(c(273.15,373.15))
TP.args(c(273.15,373.15),"Psat")
TP.args(c(273.15,373.15),c(100,100,200,200))
state.args(c("AQ","GAS"))
state.args(c("a","l","liq"))
Run the code above in your browser using DataLab