[100] | 1 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
| 2 | # Series of Double Pipe Heat Exchanger |
---|
| 3 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
| 4 | using "heat_exchangers/DoublePipe.mso"; |
---|
| 5 | |
---|
| 6 | FlowSheet Double_Pipe_Multitubular |
---|
| 7 | |
---|
| 8 | DEVICES |
---|
| 9 | Pipe as Multitubular_Cocurrent_LMTD; |
---|
| 10 | streamhot as streamTP; |
---|
| 11 | streamcold as streamTP; |
---|
| 12 | |
---|
| 13 | PARAMETERS |
---|
| 14 | |
---|
| 15 | PP as CalcObject (File="vrpp"); |
---|
| 16 | NComp as Integer; |
---|
| 17 | |
---|
| 18 | CONNECTIONS |
---|
| 19 | |
---|
| 20 | streamhot to Pipe.Unity(1).Inlet.Hot; |
---|
| 21 | streamcold to Pipe.Unity(1).Inlet.Cold; |
---|
| 22 | SET |
---|
| 23 | |
---|
| 24 | PP.LiquidModel = "PR"; |
---|
| 25 | PP.VapourModel = "PR"; |
---|
| 26 | PP.Components = ["methanol","water"]; |
---|
| 27 | NComp = PP.NumberOfComponents; |
---|
| 28 | Pipe.Npipe = 2; |
---|
| 29 | |
---|
| 30 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
| 31 | # Options |
---|
| 32 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
| 33 | |
---|
| 34 | Pipe.HE.TurbulentFlow = "SiederTate"; |
---|
| 35 | |
---|
| 36 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
| 37 | # Double Pipe Geometrical Parameters and Alocation |
---|
| 38 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
| 39 | Pipe.HE.HotSide = "Inner"; |
---|
| 40 | Pipe.DoInner = 0.04826*"m"; |
---|
| 41 | Pipe.DiInner = 0.04089*"m"; |
---|
| 42 | Pipe.DiOuter = 0.07793*"m"; |
---|
| 43 | Pipe.Kwall = 0.057 *"kW/m/K"; |
---|
| 44 | Pipe.Lpipe = 3*"m"; |
---|
| 45 | |
---|
| 46 | SPECIFY |
---|
| 47 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
| 48 | # Hot Stream |
---|
| 49 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
| 50 | |
---|
| 51 | streamhot.F = 100 * "kmol/h"; |
---|
| 52 | streamhot.T = (70+273.15) * "K"; |
---|
| 53 | streamhot.P = 5 * "bar"; |
---|
| 54 | streamhot.z = [1,0]; |
---|
| 55 | |
---|
| 56 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
| 57 | # Cold Stream |
---|
| 58 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
| 59 | |
---|
[110] | 60 | streamcold.F = 5 * "kmol/h"; |
---|
[100] | 61 | streamcold.P = 5 * "bar"; |
---|
| 62 | streamcold.T = (25+273.15) * "K"; |
---|
| 63 | streamcold.z = [0,1]; |
---|
[110] | 64 | |
---|
| 65 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
[100] | 66 | # Fouling |
---|
[110] | 67 | #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
---|
| 68 | |
---|
[100] | 69 | Pipe.Unity.Resistances.Rfi = 0*"m^2*K/kW"; |
---|
| 70 | Pipe.Unity.Resistances.Rfo = 0*"m^2*K/kW"; |
---|
| 71 | |
---|
| 72 | OPTIONS |
---|
[110] | 73 | |
---|
| 74 | mode = "steady"; |
---|
| 75 | |
---|
[100] | 76 | end |
---|
| 77 | |
---|