Chapter 4 Multicomponent Analysis Mathematica

[r]

Analysis of Example 4.8 Species balances for CVII

Eqns = 8w@A, 2D m@2D + w@A, 3D m@3D + w@A, 4D m@4D ã w@A, 1D m@1D,

w@B, 2D m@2D + w@B, 3D m@3D + w@B, 4D m@4D ã w@B, 1D m@1D,

m@2D + m@3D + m@4D ã m@1D<;

ParamValues = 8m@1D Ø 1000, w@A, 1D -> 0.5, w@B, 1D Ø 0.3, w@A, 2D Ø 0.045,

w@B, 2D Ø 0.091, w@A, 3D Ø 0.069, w@B, 3D Ø 0.901, w@A, 4D Ø 0.955, w@B, 4D Ø 0.041<; sol = NSolve@Eqns ê ParamValuesD

88m@2D Ø 219.187, m@3D Ø 288.419, m@4D Ø 492.393<<

Hm@2D + m@3D + m@4DL ê sol

81000.<