Changeset 160 for branches/newlanguage/sample/heat_exchangers
- Timestamp:
- Feb 8, 2007, 4:37:44 PM (17 years ago)
- Location:
- branches/newlanguage/sample/heat_exchangers
- Files:
-
- 2 edited
-
Eshell_Detailed_LMTD.mso (modified) (6 diffs)
-
Eshell_Detailed_NTU.mso (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/newlanguage/sample/heat_exchangers/Eshell_Detailed_LMTD.mso
r135 r160 31 31 32 32 exchanger as E_Shell_LMTD_Det; 33 streamhot_in as s treamTP;34 streamcold_in as s treamTP;33 streamhot_in as source; 34 streamcold_in as source; 35 35 36 36 CONNECTIONS 37 37 38 streamhot_in to exchanger.Inlet.Hot;39 streamcold_in 38 streamhot_in.Outlet to exchanger.Inlet.Hot; 39 streamcold_in.Outlet to exchanger.Inlet.Cold; 40 40 41 41 PARAMETERS 42 42 43 PP as CalcObject(File="vrpp");43 PP as Plugin (File="vrpp"); 44 44 NComp as Integer; 45 45 … … 53 53 NComp = PP.NumberOfComponents; 54 54 55 exchanger.H E.HotSide = "Shell";55 exchanger.HotSide = "shell"; 56 56 57 57 # LMTD Correction Factor … … 59 59 60 60 # Heat Transfer Correlation 61 # exchanger.HE.LaminarFlow= "Schlunder";62 # exchanger.HE.TurbulentFlow= "SiederTate";63 # exchanger.HE.TransitionFlow = "GnielinskiII";61 exchanger.LaminarCorrelation = "Schlunder"; 62 exchanger.TurbulentCorrelation = "SiederTate"; 63 exchanger.TransitionCorrelation = "Gnielinski"; 64 64 65 65 #===================================================================== … … 67 67 #===================================================================== 68 68 exchanger.Tpass = 4; 69 exchanger.Dishell = 0.75 * "m";70 exchanger.Lcf = 0.043 * "m";69 exchanger.Dishell = 0.75 *'m'; 70 exchanger.Lcf = 0.043 *'m'; 71 71 exchanger.Nss = 1; 72 exchanger.Donozzle_Shell = 0.1937 * "m";73 exchanger.Dinozzle_Shell = 0.1937 * "m";74 exchanger.Honozzle_Shell = 0.0225 * "m";75 exchanger.Hinozzle_Shell = 0.02155 * "m";72 exchanger.Donozzle_Shell = 0.1937 *'m'; 73 exchanger.Dinozzle_Shell = 0.1937 *'m'; 74 exchanger.Honozzle_Shell = 0.0225 *'m'; 75 exchanger.Hinozzle_Shell = 0.02155 *'m'; 76 76 77 77 #===================================================================== … … 80 80 exchanger.Ntt = 500; 81 81 exchanger.Pattern = 30; 82 exchanger.pitch = 0.0254 * "m";83 exchanger.Ltube = 5.5 * "m";84 exchanger.Ditube = 0.013395 *"m";85 exchanger.Dotube = 0.015875 * "m";86 exchanger.Kwall = 0.057 * "kW/m/K";87 exchanger.Donozzle_Tube = 0.203 * "m";88 exchanger.Dinozzle_Tube = 0.203 * "m";82 exchanger.pitch = 0.0254 *'m'; 83 exchanger.Ltube = 5.5 *'m'; 84 exchanger.Ditube = 0.013395 *'m'; 85 exchanger.Dotube = 0.015875 *'m'; 86 exchanger.Kwall = 0.057 *'kW/m/K'; 87 exchanger.Donozzle_Tube = 0.203 *'m'; 88 exchanger.Dinozzle_Tube = 0.203 *'m'; 89 89 #===================================================================== 90 90 # Baffles Geometrical Parameters 91 91 #===================================================================== 92 exchanger.Lcd = 0.0047 * "m";92 exchanger.Lcd = 0.0047 *'m'; 93 93 exchanger.Bc = 25; 94 exchanger.Ltd = 0.00039 * "m";95 exchanger.Nb 94 exchanger.Ltd = 0.00039 *'m'; 95 exchanger.Nb = 6; 96 96 97 97 SPECIFY … … 99 99 # Hot Stream 100 100 #============================================ 101 streamhot_in. F = 40 * "mol/s";102 streamhot_in. T = 400* "K";103 streamhot_in. z = [1] ;104 streamhot_in. P = 740 * "kPa";101 streamhot_in.Outlet.F = 40 * 'mol/s'; 102 streamhot_in.Outlet.T = 400* 'K'; 103 streamhot_in.Outlet.z = [1] ; 104 streamhot_in.Outlet.P = 740 * 'kPa'; 105 105 #============================================ 106 106 # Cold Stream 107 107 #============================================ 108 streamcold_in. F = 75 * "mol/s";109 streamcold_in. T = 333 * "K";110 streamcold_in. z = [1];111 streamcold_in. P = 2210*"kPa";108 streamcold_in.Outlet.F = 75 * 'mol/s'; 109 streamcold_in.Outlet.T = 333 * 'K'; 110 streamcold_in.Outlet.z = [1]; 111 streamcold_in.Outlet.P = 2210*'kPa'; 112 112 #===================================================================== 113 113 # Baffle Spacing 114 114 #===================================================================== 115 exchanger.Baffles.Ls = 0.622 * "m";116 exchanger.Baffles.Lsi = 0.807 * "m";115 exchanger.Baffles.Ls = 0.622 *'m'; 116 exchanger.Baffles.Lsi = 0.807 *'m'; 117 117 #===================================================================== 118 118 # Fouling 119 119 #===================================================================== 120 exchanger.Resistances.Rfi = 0* "m^2*K/kW";121 exchanger.Resistances.Rfo = 0* "m^2*K/kW";120 exchanger.Resistances.Rfi = 0*'m^2*K/kW'; 121 exchanger.Resistances.Rfo = 0*'m^2*K/kW'; 122 122 123 123 OPTIONS 124 124 125 mode = "steady";125 Dynamic = false; 126 126 127 127 end -
branches/newlanguage/sample/heat_exchangers/Eshell_Detailed_NTU.mso
r100 r160 26 26 using "heat_exchangers/HeatExchangerDetailed.mso"; 27 27 28 FlowSheet E xchanger_E_shell_Detailed_NTU28 FlowSheet EshellDetailedNTUbranch 29 29 30 30 DEVICES 31 exchanger as E_Shell_NTU_Det; 32 streamhot_in as streamTP; 33 streamcold_in as streamTP; 31 exchanger as Shell_and_Tubes_NTU_Det; 32 streamhot_in as source; 33 streamcold_in as source; 34 35 Outcold as sink; 36 Outhot as sink; 34 37 35 38 CONNECTIONS 36 streamhot_in to exchanger.Inlet.Hot; 37 streamcold_in to exchanger.Inlet.Cold; 39 streamhot_in.Outlet to exchanger.Inlet.Hot; 40 streamcold_in.Outlet to exchanger.Inlet.Cold; 41 exchanger.Outlet.Hot to Outhot.Inlet; 42 exchanger.Outlet.Cold to Outcold.Inlet; 38 43 39 44 PARAMETERS 40 PP as CalcObject(File="vrpp");45 PP as Plugin (File="vrpp"); 41 46 NComp as Integer; 42 47 43 48 SET 44 PP.Components = ["benzene","toluene"]; 45 exchanger.HE.HotSide = "Shell";49 50 PP.Components = ["benzene","toluene"]; 46 51 PP.LiquidModel = "PR"; 47 52 PP.VapourModel = "PR"; 48 53 NComp = PP.NumberOfComponents; 49 54 55 exchanger.HotSide = "shell"; 56 exchanger.ShellType = "Eshell"; 57 50 58 # Heat Transfer Correlation 51 exchanger. HE.LaminarFlow= "Schlunder";52 exchanger. HE.TurbulentFlow= "SiederTate";53 exchanger. HE.TransitionFlow = "GnielinskiII";59 exchanger.LaminarCorrelation = "Schlunder"; 60 exchanger.TurbulentCorrelation = "SiederTate"; 61 exchanger.TransitionCorrelation = "Gnielinski"; 54 62 55 63 #===================================================================== 56 64 # Shell Geometrical Parameters 57 65 #===================================================================== 58 exchanger.Tpass = 4;59 exchanger.Dishell = 0.75 *"m";60 exchanger.Lcf = 0.043 *"m";61 exchanger.Nss = 1;62 exchanger.Donozzle_Shell = 0.1937 *"m";63 exchanger.Dinozzle_Shell = 0.1937 *"m";64 exchanger.Honozzle_Shell = 0.0225 *"m";65 exchanger.Hinozzle_Shell = 0.02155 *"m";66 exchanger.Tpass = 4; 67 exchanger.Dishell = 0.75 *'m'; 68 exchanger.Lcf = 0.043 *'m'; 69 exchanger.Nss = 1; 70 exchanger.Donozzle_Shell = 0.1937 *'m'; 71 exchanger.Dinozzle_Shell = 0.1937 *'m'; 72 exchanger.Honozzle_Shell = 0.0225 *'m'; 73 exchanger.Hinozzle_Shell = 0.02155 *'m'; 66 74 67 75 #===================================================================== … … 69 77 #===================================================================== 70 78 exchanger.Ntt = 500; 71 exchanger.Pattern = 30;72 exchanger.pitch = 0.0254 *"m";73 exchanger.Ltube = 5.5 *"m";74 exchanger.Ditube = 0.013395 *"m";75 exchanger.Dotube = 0.015875 *"m";76 exchanger.Kwall = 0.057 *"kW/m/K";77 exchanger.Donozzle_Tube = 0.203 *"m";78 exchanger.Dinozzle_Tube = 0.203 *"m";79 exchanger.Pattern = 30; 80 exchanger.pitch = 0.0254 *'m'; 81 exchanger.Ltube = 5.5 *'m'; 82 exchanger.Ditube = 0.013395 *'m'; 83 exchanger.Dotube = 0.015875 *'m'; 84 exchanger.Kwall = 0.057 *'kW/m/K'; 85 exchanger.Donozzle_Tube = 0.203 *'m'; 86 exchanger.Dinozzle_Tube = 0.203 *'m'; 79 87 #===================================================================== 80 88 # Baffles Geometrical Parameters 81 89 #===================================================================== 82 exchanger.Lcd = 0.0047 *"m";90 exchanger.Lcd = 0.0047 *'m'; 83 91 exchanger.Bc = 25; 84 exchanger.Ltd = 0.00039 *"m";85 exchanger.Nb 92 exchanger.Ltd = 0.00039 *'m'; 93 exchanger.Nb = 6; 86 94 87 95 SPECIFY … … 89 97 # Hot Stream 90 98 #============================================ 91 streamhot_in. F = 40 * "mol/s";92 streamhot_in. T = 393.15 * "K";93 streamhot_in. z = [1,0];94 streamhot_in. P = 740 * "kPa";99 streamhot_in.Outlet.F = 40 * 'mol/s'; 100 streamhot_in.Outlet.T = 393.15 * 'K'; 101 streamhot_in.Outlet.z = [1,0]; 102 streamhot_in.Outlet.P = 740 * 'kPa'; 95 103 #============================================ 96 104 # Cold Stream 97 105 #============================================ 98 streamcold_in. F = 122 * "mol/s";99 streamcold_in. T = 333.15 * "K";100 streamcold_in. z = [0,1];101 streamcold_in. P = 2210 *"kPa";106 streamcold_in.Outlet.F = 122 * 'mol/s'; 107 streamcold_in.Outlet.T = 333.15 * 'K'; 108 streamcold_in.Outlet.z = [0,1]; 109 streamcold_in.Outlet.P = 2210 *'kPa'; 102 110 #===================================================================== 103 111 # Baffle Spacing 104 112 #===================================================================== 105 exchanger.Baffles.Ls = 0.622 *"m";106 exchanger.Baffles.Lsi = 0.807 * "m";113 exchanger.Baffles.Ls = 0.622 *'m'; 114 exchanger.Baffles.Lsi = 0.807 *'m'; 107 115 #===================================================================== 108 116 # Fouling 109 117 #===================================================================== 110 exchanger.Resistances.Rfi = 0.0018* "m^2*K/kW";111 exchanger.Resistances.Rfo = 0.0021* "m^2*K/kW";118 exchanger.Resistances.Rfi = 0.0018*'m^2*K/kW'; 119 exchanger.Resistances.Rfo = 0.0021*'m^2*K/kW'; 112 120 113 121 OPTIONS 114 122 115 mode = "steady"; 123 Dynamic = false; 124 GuessFile = "D:\@Bicca\2007\Testes\Detalhados\EshellDetailedNTUbranch.rlt"; 116 125 117 126 end
Note: See TracChangeset
for help on using the changeset viewer.
