data(thermo)
### Getting Started
## standard thermodynamic properties of species
subcrt('H2O')
subcrt('alanine')
subcrt('LYSC_CHICK') # a protein
# custom temperature range
T <- seq(0,500,100)
subcrt('H2O',T=T,P=1000)
# temperature - pressure grid
P <- seq(1000,4000,1000)
subcrt('H2O',T=T,P=P,grid='P')
## information about species
# query the database using formulas
info('C6H12O6')
info('SiO2')
# query using names
info('quartz')
t <- info(c('glucose','mannose'))
# show the equations of state parameters
info(t)
# approximate matches for names or formulas
info('acid ')
info('SiO2 ')
## standard thermodynamic properties of reactions
# fermentation example
info(c('fructose','ethanol'))
subcrt(c('fructose','C2H5OH','CO2'),c(-1,2,2))
# weathering example -- also see transfer()
subcrt(c('k-feldspar','H2O','H+','kaolinite','K+','SiO2'),
c(-2,-1,-2,1,2,4))
# partial reaction auto-completion is possible
basis(c('SiO2','H2O','K+','H+','O2'))
subcrt(c('k-feldspar','kaolinite'),c(-2,1))
## chemical affinities
# basis species
basis(c('CO2','H2O','O2'))
# species of interest
species(c('CH4','C2H4O2','CO2'))
# chemical affinities of formation reactions
# take off $values for complete output
affinity()$values
affinity(O2=c(-90,-60,5))$values
Run the code above in your browser using DataLab