1 | #*--------------------------------------------------------------------- |
---|

2 | * This file is property of the author and cannot be used, copyed |
---|

3 | * or modified without permission. |
---|

4 | * |
---|

5 | * Copyright (C) 2004 the author |
---|

6 | *---------------------------------------------------------------------- |
---|

7 | * Author: Paula B. Staudt |
---|

8 | * $Id: sample_cstr_PG.mso 6 2005-01-11 17:06:06Z paula $ |
---|

9 | *--------------------------------------------------------------------*# |
---|

10 | |
---|

11 | using "cstr"; |
---|

12 | |
---|

13 | FlowSheet cstr_PropyleneGlycol |
---|

14 | PARAMETERS |
---|

15 | PP as CalcObject(Brief="Physical Properties",File="VMG"); |
---|

16 | NoComps as Integer; |
---|

17 | R as Real(Default=8.3145, Unit="J/mol/K"); |
---|

18 | |
---|

19 | DEVICES |
---|

20 | s1 as stream_therm; |
---|

21 | Reac as cstr; |
---|

22 | |
---|

23 | SET |
---|

24 | PP.Models = "RK RK"; |
---|

25 | PP.Components = ["1,2-Propylene Oxide", "Methanol", |
---|

26 | "Water", "Sulfuric Acid", "1,2-Propylene Glycol" ]; |
---|

27 | NoComps = PP.NumberOfComponents; |
---|

28 | Reac.NoReacs = 1; |
---|

29 | Reac.stoic = [-1, 0, -1, 0, 1]; |
---|

30 | |
---|

31 | EQUATIONS |
---|

32 | # Reac.Hr = -36400 * "Btu/lbmol" - 7 * "Btu/lbmol/degR" * (Reac.Fout.T - 528 * "degR"); |
---|

33 | # Reac.r = 16.96e12 / "h" * exp(- 32400 * "Btu/lbmol"/R/Reac.Fout.T) |
---|

34 | # * Reac.C(1); |
---|

35 | Reac.Hr = 0 * "Btu/lbmol"; |
---|

36 | Reac.r = 0 * "mol/l/s"; |
---|

37 | |
---|

38 | SPECIFY |
---|

39 | s1.F = 52126 * "mol/h"; |
---|

40 | s1.P = 1 * "atm"; |
---|

41 | s1.T = 534.67* "degR"; |
---|

42 | s1.z = [0.0468, 0.0783, 0.874, 0.0009, 0]; |
---|

43 | s1.v = 0.0; |
---|

44 | |
---|

45 | Reac.Vr = 300 * "gal"; |
---|

46 | Reac.Outlet.F= Reac.Inlet.F; |
---|

47 | "Adiabatic" |
---|

48 | Reac.q = 0 * "J/s"; |
---|

49 | Reac.Outlet.P= 1 * "atm"; |
---|

50 | |
---|

51 | CONNECTIONS |
---|

52 | s1 to Reac.Inlet; |
---|

53 | |
---|

54 | INITIAL |
---|

55 | Reac.Outlet.T = Reac.Inlet.T; |
---|

56 | Reac.Outlet.z = Reac.Inlet.z; |
---|

57 | |
---|

58 | OPTIONS |
---|

59 | differentiation = "numeric"; |
---|

60 | outputLevel = "all"; |
---|

61 | end |
---|