Changeset 778 for branches/gui/eml/stage_separators/column.mso
- Timestamp:
- Jun 23, 2009, 12:38:38 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/gui/eml/stage_separators/column.mso
r777 r778 98 98 PARAMETERS 99 99 outer PP as Plugin (Brief="External Physical Properties", Type="PP"); 100 outer NComp as Integer(Brief="Number of components");100 outer NComp as Integer (Brief="Number of components"); 101 101 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 102 102 # Section Column Feed Tray - Side Streams Location and Numbering 103 103 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 104 104 NumberOfTrays as Integer (Brief="Number of trays", Default=8); 105 FeedTrayIndex(NumberOfTrays) as Integer (Brief="Feed Tray Index", Default=0,Hidden=true);106 105 LiqSideTrayIndex(NumberOfTrays) as Integer (Brief="Liquid Side Tray Index", Default=0,Hidden=true); 107 106 VapSideTrayIndex(NumberOfTrays) as Integer (Brief="Vapour Side Tray Index", Default=0,Hidden=true); 108 FeedTrayLocation as Integer (Brief="Feed tray Location", Default=2); 107 FeedTrayTopLocation as Integer (Brief="Top Feed tray Location", Default=2); 108 FeedTrayBottomLocation as Integer (Brief="Bottom Feed tray Location", Default=3); 109 109 LiquidSideStreamLocation as Integer (Brief="Liquid Side Stream Location", Default=2); 110 110 VapourSideStreamLocation as Integer (Brief="Vapour Side Stream Location", Default=2); … … 142 142 fw as Real (Brief="Olsens correlation coefficient", Default=1,Hidden=true); 143 143 Np as Real (Brief="Number of liquid passes in the tray", Default=1,Hidden=true); 144 144 145 145 VapourFlow as Switcher (Valid = ["on", "off"], Default = "on",Hidden=true); 146 146 LiquidFlow as Switcher (Valid = ["on", "off"], Default = "on",Hidden=true); 147 147 148 148 SET 149 FeedTrayIndex(FeedTrayLocation) =1; 150 VapSideTrayIndex(FeedTrayLocation) =1; 151 LiqSideTrayIndex(FeedTrayLocation) =1; 149 VapSideTrayIndex(VapourSideStreamLocation) =1; 150 LiqSideTrayIndex(LiquidSideStreamLocation) =1; 152 151 Mw = PP.MolecularWeight(); 153 152 … … 177 176 # Column Feed - Side Stream Flow and Murphree Efficiency 178 177 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 179 in FeedTray as stream (Brief="Feed stream", PosX=0, PosY=0.55); 178 in FeedTrayTop as stream (Brief="Feed stream", PosX=0, PosY=0.45); 179 in FeedTrayBottom as stream (Brief="Feed stream", PosX=0, PosY=0.65); 180 180 181 TRAYS(NumberOfTrays) as tray (Brief="Number of trays in the Column Section"); 181 VapourDrawOffFlow as flow_mol (Brief=" Stream Molar Flow Rate");182 LiquidDrawOffFlow as flow_mol (Brief=" Stream Molar Flow Rate");183 MurphreeEff as Real (Brief="Murphree efficiency for All Trays" );182 VapourDrawOffFlow as flow_mol (Brief="Vapour Draw Off Stream Molar Flow Rate"); 183 LiquidDrawOffFlow as flow_mol (Brief="Vapour Draw Off Stream Molar Flow Rate"); 184 MurphreeEff as Real (Brief="Murphree efficiency for All Trays",Lower=0.01,Upper=1); 184 185 185 186 CONNECTIONS … … 227 228 228 229 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 229 # Equating Feed Tray Variables to Trays Variables 230 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 231 "Feed Tray Inlet Flow" 232 FeedTray.F*FeedTrayIndex= TRAYS.Inlet.F; 233 234 "Feed Tray Inlet Temperature" 235 FeedTray.T = TRAYS.Inlet.T; 236 237 "Feed Tray Inlet Pressure" 238 FeedTray.P = TRAYS.Inlet.P; 239 240 "Feed Tray Inlet Composition" 241 FeedTray.z = TRAYS.Inlet.z; 242 243 "Feed Tray Inlet Vapour Fraction" 244 FeedTray.v = TRAYS.Inlet.v; 245 246 "Feed Tray Inlet Enthalpy" 247 FeedTray.h = TRAYS.Inlet.h; 230 # Equating Feed Trays Variables to Trays Variables 231 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 232 233 for i in 1:NumberOfTrays do 234 235 if i equal FeedTrayTopLocation then 236 237 "FeedTrayTop Inlet Flow" 238 FeedTrayTop.F= TRAYS(i).Inlet.F; 239 240 "FeedTrayTop Inlet Temperature" 241 FeedTrayTop.T = TRAYS(i).Inlet.T; 242 243 "FeedTrayTop Inlet Pressure" 244 FeedTrayTop.P = TRAYS(i).Inlet.P; 245 246 "FeedTrayTop Inlet Composition" 247 FeedTrayTop.z = TRAYS(i).Inlet.z; 248 249 "FeedTrayTop Inlet Vapour Fraction" 250 FeedTrayTop.v = TRAYS(i).Inlet.v; 251 252 "FeedTrayTop Inlet Enthalpy" 253 FeedTrayTop.h = TRAYS(i).Inlet.h; 254 255 else if i equal FeedTrayBottomLocation then 256 257 "FeedTrayBottom Inlet Flow" 258 FeedTrayBottom.F= TRAYS(i).Inlet.F; 259 260 "FeedTrayBottom Inlet Temperature" 261 FeedTrayBottom.T = TRAYS(i).Inlet.T; 262 263 "FeedTrayBottom Inlet Pressure" 264 FeedTrayBottom.P = TRAYS(i).Inlet.P; 265 266 "FeedTrayBottom Inlet Composition" 267 FeedTrayBottom.z = TRAYS(i).Inlet.z; 268 269 "FeedTrayBottom Inlet Vapour Fraction" 270 FeedTrayBottom.v = TRAYS(i).Inlet.v; 271 272 "FeedTrayBottom Inlet Enthalpy" 273 FeedTrayBottom.h = TRAYS(i).Inlet.h; 274 275 else 276 277 "Inlet Tray - Flow Sealed" 278 0*'mol/h'= TRAYS(i).Inlet.F; 279 280 "Inlet Tray - Temperature" 281 FeedTrayBottom.T = TRAYS(i).Inlet.T; 282 283 "Inlet Tray - Pressure" 284 FeedTrayBottom.P = TRAYS(i).Inlet.P; 285 286 "Inlet Tray - Composition" 287 FeedTrayBottom.z = TRAYS(i).Inlet.z; 288 289 "Inlet Tray - Vapour Fraction" 290 FeedTrayBottom.v = TRAYS(i).Inlet.v; 291 292 "Inlet Tray - Enthalpy" 293 FeedTrayBottom.h = TRAYS(i).Inlet.h; 294 295 end 296 297 end 298 299 end 248 300 249 301 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ … … 330 382 331 383 332 333 334 335 384 Model Section_Column 336 385
Note: See TracChangeset
for help on using the changeset viewer.