- Timestamp:
- Jul 25, 2008, 11:18:50 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/gui/eml/heat_exchangers/HeatExchangerDetailed.mso
r492 r574 470 470 471 471 "Shell Side Pressure Drop Friction Factor" 472 Shell.PressureDrop.FricFactor=48*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^ -1;472 Shell.PressureDrop.FricFactor=48*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^(-1); 473 473 474 474 when Shell.HeatTransfer.Re > 10 switchto "range2"; … … 477 477 478 478 "Ji Factor" 479 Ji =1.36*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^ -0.657;479 Ji =1.36*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^(-0.657); 480 480 481 481 "Shell Side Pressure Drop Friction Factor" 482 Shell.PressureDrop.FricFactor=45.10*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^ -0.973;482 Shell.PressureDrop.FricFactor=45.10*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^(-0.973); 483 483 484 484 when Shell.HeatTransfer.Re > 100 switchto "range3"; … … 487 487 488 488 "Ji Factor" 489 Ji =0.593*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^ -0.477;489 Ji =0.593*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^(-0.477); 490 490 491 491 "Shell Side Pressure Drop Friction Factor" 492 Shell.PressureDrop.FricFactor=4.570*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^ -0.476;492 Shell.PressureDrop.FricFactor=4.570*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^(-0.476); 493 493 494 494 when Shell.HeatTransfer.Re > 1000 switchto "range4"; … … 497 497 498 498 "Ji Factor" 499 Ji =0.321*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^ -0.388;499 Ji =0.321*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^(-0.388); 500 500 501 501 "Shell Side Pressure Drop Friction Factor" 502 Shell.PressureDrop.FricFactor=0.486*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^ -0.152;502 Shell.PressureDrop.FricFactor=0.486*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^(-0.152); 503 503 504 504 when Shell.HeatTransfer.Re > 10000 switchto "range5"; … … 507 507 508 508 "Ji Factor" 509 Ji =0.321*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^ -0.388;509 Ji =0.321*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^(-0.388); 510 510 511 511 "Shell Side Pressure Drop Friction Factor" 512 Shell.PressureDrop.FricFactor=0.372*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^ -0.123;512 Shell.PressureDrop.FricFactor=0.372*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^(-0.123); 513 513 514 514 when Shell.HeatTransfer.Re < 10000 switchto "range4"; … … 550 550 551 551 "Shell Side Pressure Drop Friction Factor" 552 Shell.PressureDrop.FricFactor=32*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^ -1;552 Shell.PressureDrop.FricFactor=32*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^(-1); 553 553 554 554 when Shell.HeatTransfer.Re > 10 switchto "range2"; … … 560 560 561 561 "Shell Side Pressure Drop Friction Factor" 562 Shell.PressureDrop.FricFactor=26.20*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^ -0.913;562 Shell.PressureDrop.FricFactor=26.20*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^(-0.913); 563 563 564 564 when Shell.HeatTransfer.Re > 100 switchto "range3"; … … 570 570 571 571 "Shell Side Pressure Drop Friction Factor" 572 Shell.PressureDrop.FricFactor=3.50*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^ -0.476;572 Shell.PressureDrop.FricFactor=3.50*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^(-0.476); 573 573 574 574 when Shell.HeatTransfer.Re > 1000 switchto "range4"; … … 577 577 578 578 "Ji Factor" 579 Ji =0.370*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^ -0.396;579 Ji =0.370*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^(-0.396); 580 580 581 581 "Shell Side Pressure Drop Friction Factor" 582 Shell.PressureDrop.FricFactor=0.333*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^ -0.136;582 Shell.PressureDrop.FricFactor=0.333*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^(-0.136); 583 583 584 584 when Shell.HeatTransfer.Re > 10000 switchto "range5"; … … 587 587 588 588 "Ji Factor" 589 Ji =0.370*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^ -0.396;589 Ji =0.370*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^(-0.396); 590 590 591 591 "Shell Side Pressure Drop Friction Factor" 592 Shell.PressureDrop.FricFactor=0.303*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^ -0.126;592 Shell.PressureDrop.FricFactor=0.303*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^(-0.126); 593 593 594 594 when Shell.HeatTransfer.Re < 10000 switchto "range4"; … … 627 627 628 628 "Ji Factor" 629 Ji =0.970*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^ -0.667;629 Ji =0.970*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^(-0.667); 630 630 631 631 "Shell Side Pressure Drop Friction Factor" 632 Shell.PressureDrop.FricFactor=35*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^ -1;632 Shell.PressureDrop.FricFactor=35*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^(-1); 633 633 634 634 when Shell.HeatTransfer.Re > 10 switchto "range2"; … … 637 637 638 638 "Ji Factor" 639 Ji =0.900*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^ -0.631;639 Ji =0.900*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^(-0.631); 640 640 641 641 "Shell Side Pressure Drop Friction Factor" 642 Shell.PressureDrop.FricFactor=32.10*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^ -0.963;642 Shell.PressureDrop.FricFactor=32.10*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^(-0.963); 643 643 644 644 when Shell.HeatTransfer.Re > 100 switchto "range3"; … … 647 647 648 648 "Ji Factor" 649 Ji =0.408*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^ -0.460;649 Ji =0.408*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^(-0.460); 650 650 651 651 "Shell Side Pressure Drop Friction Factor" 652 Shell.PressureDrop.FricFactor=6.090*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^ -0.602;652 Shell.PressureDrop.FricFactor=6.090*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^(-0.602); 653 653 654 654 when Shell.HeatTransfer.Re > 1000 switchto "range4"; … … 657 657 658 658 "Ji Factor" 659 Ji =0.107*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^ -0.266;659 Ji =0.107*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^(-0.266); 660 660 661 661 "Shell Side Pressure Drop Friction Factor" … … 667 667 668 668 "Ji Factor" 669 Ji =0.370*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^ -0.395;669 Ji =0.370*((1.33*Tubes.TubeOD/Tubes.TubePitch)^a)*Shell.HeatTransfer.Re^(-0.395); 670 670 671 671 "Shell Side Pressure Drop Friction Factor" 672 Shell.PressureDrop.FricFactor=0.391*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^ -0.148;672 Shell.PressureDrop.FricFactor=0.391*((1.33*Tubes.TubeOD/Tubes.TubePitch)^b)*Shell.HeatTransfer.Re^(-0.148); 673 673 674 674 when Shell.HeatTransfer.Re < 10000 switchto "range4"; … … 900 900 901 901 "Effectiveness Correction for 2 pass shell side" 902 Method.Eft1 = 2*(1+Method.Cr+sqrt(1+Method.Cr^2)*((1+exp(-Method.NTU*sqrt(1+Method.Cr^2)))/(1-exp(-Method.NTU*sqrt(1+Method.Cr^2)))) )^ -1;902 Method.Eft1 = 2*(1+Method.Cr+sqrt(1+Method.Cr^2)*((1+exp(-Method.NTU*sqrt(1+Method.Cr^2)))/(1-exp(-Method.NTU*sqrt(1+Method.Cr^2)))) )^(-1); 903 903 904 904 "TEMA F Shell Effectiveness" 905 Method.Eft = ( ((1-Method.Eft1*Method.Cr)/(1-Method.Eft1))^2 -1 )*( ((1-Method.Eft1*Method.Cr)/(1-Method.Eft1))^2 - Method.Cr )^ -1;905 Method.Eft = ( ((1-Method.Eft1*Method.Cr)/(1-Method.Eft1))^2 -1 )*( ((1-Method.Eft1*Method.Cr)/(1-Method.Eft1))^2 - Method.Cr )^(-1); 906 906 907 907 case "Eshell": 908 908 909 909 "TEMA E Shell Effectiveness" 910 Method.Eft = 2*(1+Method.Cr+sqrt(1+Method.Cr^2)*((1+exp(-Method.NTU*sqrt(1+Method.Cr^2)))/(1-exp(-Method.NTU*sqrt(1+Method.Cr^2)))) )^ -1;910 Method.Eft = 2*(1+Method.Cr+sqrt(1+Method.Cr^2)*((1+exp(-Method.NTU*sqrt(1+Method.Cr^2)))/(1-exp(-Method.NTU*sqrt(1+Method.Cr^2)))) )^(-1); 911 911 # Method.Eft = 1; 912 912
Note: See TracChangeset
for help on using the changeset viewer.