Changeset 471
- Timestamp:
- Mar 5, 2008, 6:19:19 PM (15 years ago)
- Location:
- trunk/eml/reactors
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/eml/reactors/equil.mso
r426 r471 22 22 * 23 23 * Assumptions: 24 * * single- and two-phases involved24 * * single-phases involved 25 25 * * thermodynamic equilibrium 26 26 * * steady-state … … 97 97 # + PP.IdealGasEnthalpyOfFormationAt25C()*(1 - Outlet.T/To); 98 98 99 for j in [1:NReac] 99 100 "Gibbs free energy of reaction" 100 sumt(G*stoic) = -Rg*Outlet.T*ln(K); 101 # K = exp(-sumt(G*stoic)/(Rg*Outlet.T)); 102 103 for j in [1:NReac] 101 sumt(G*stoic(:,j)) = -Rg*Outlet.T*ln(K(j)); 102 # K(j) = exp(-sumt(G*stoic(:,j))/(Rg*Outlet.T)); 103 104 104 "Equilibrium constant" 105 105 K(j) = prod(activ^stoic(:,j)); -
trunk/eml/reactors/gibbs.mso
r426 r471 22 22 * 23 23 * Assumptions: 24 * * single- and two-phases involved24 * * single-phases involved 25 25 * * thermodynamic equilibrium 26 26 * * steady-state
Note: See TracChangeset
for help on using the changeset viewer.