next up previous
Next: [1] buffer Up: CHNOSZ examples Previous: [4] diagram (2 variables)

[1] diagram (other plots)

## calculate the equilibrium logarithm of activity of a ## basis species in different reactions basis("CHNOS")
C H N O S ispecies logact state CO2 1 0 0 2 0 69 -3 aq H2O 0 2 0 1 0 1 0 liq NH3 0 3 1 0 0 68 -4 aq H2S 0 2 0 0 1 70 -7 aq O2 0 0 0 2 0 3095 -80 gas
species(c("ethanol", "lactic acid", "deoxyribose", "ribose"))
CO2 H2O NH3 H2S O2 ispecies logact state name 1 2 3 0 0 -3.0 112 -3 aq ethanol 2 3 3 0 0 -3.0 574 -3 aq lactic acid 3 5 5 0 0 -5.5 1584 -3 aq deoxyribose 4 5 5 0 0 -5.0 1583 -3 aq ribose
a <- affinity(T=c(0, 150))
energy.args: pressure is Psat energy.args: variable 1 is T at 128 values from 273.15 to 423.15 K subcrt: 9 species at 128 values of T and P (wet)
diagram(a, what="O2", legend.x="topleft", col=rev(rainbow(4)), lwd=2) title(main="equilibrium logfO2 for 1e-3 mol/kg of CO2 and ... ")

Image diagram8

 


next up previous
Next: [1] buffer Up: CHNOSZ examples Previous: [4] diagram (2 variables)