Changeset 472
 Timestamp:
 Mar 6, 2008, 8:43:11 PM (15 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/eml/heat_exchangers/DoublePipe.mso
r442 r472 47 47 OuterTurbulentCorrelation as Switcher (Brief="Heat Transfer Correlation in Turbulent Flow for the Outer Side",Valid=["Petukhov","SiederTate"],Default="Petukhov"); 48 48 49 CalculationApproach as Switcher (Brief="Options for convergence Calculations ",Valid=["Simplified","Full"],Default="Full"); 50 Qestimated as power (Brief="Estimated Duty", Default=70, Lower=1e6, Upper=1e10); 51 49 52 Pi as constant (Brief="Pi Number",Default=3.14159265, Symbol = "\pi"); 50 53 DoInner as length (Brief="Outside Diameter of Inner Pipe",Lower=1e6); … … 475 478 Outer.HeatTransfer.hcoeff= (Outer.HeatTransfer.Nu*Outer.Properties.Average.K/Outer.HeatTransfer.Dh)*Outer.HeatTransfer.Phi; 476 479 480 switch CalculationApproach 481 482 case "Full": 483 477 484 "Total Pressure Drop Outer Stream" 478 Outer.PressureDrop.Pdrop = Outer.PressureDrop.Pd_fric +Outer.PressureDrop.Pd_ret;485 Outer.PressureDrop.Pdrop = Outer.PressureDrop.Pd_fric; 479 486 480 487 "Total Pressure Drop Inner Stream" 481 Inner.PressureDrop.Pdrop = Inner.PressureDrop.Pd_fric +Inner.PressureDrop.Pd_ret;488 Inner.PressureDrop.Pdrop = Inner.PressureDrop.Pd_fric; 482 489 483 490 "Pressure Drop Outer Stream" … … 492 499 "Inner Pipe Pressure Drop for friction" 493 500 Inner.PressureDrop.Pd_fric = (2*Inner.PressureDrop.fi*Lpipe*Inner.Properties.Average.rho*Inner.HeatTransfer.Vmean^2)/(DiInner*Inner.HeatTransfer.Phi); 501 502 503 case "Simplified": 504 505 "Total Pressure Drop Outer Stream" 506 Outer.PressureDrop.Pdrop = 0*'kPa'; 507 508 "Total Pressure Drop Inner Stream" 509 Inner.PressureDrop.Pdrop = 0*'kPa'; 510 511 "Pressure Drop Outer Stream" 512 OutletOuter.P = InletOuter.P; 513 514 "Pressure Drop Inner Stream" 515 OutletInner.P = InletInner.P; 516 517 "Outer Pipe Pressure Drop for friction" 518 Outer.PressureDrop.Pd_fric = 0*'kPa'; 519 520 "Inner Pipe Pressure Drop for friction" 521 Inner.PressureDrop.Pd_fric = 0*'kPa'; 522 523 end 494 524 495 525 "Outer Pipe Pressure Drop due to return" … … 639 669 case "outer": 640 670 671 switch CalculationApproach 672 673 case "Full": 674 641 675 "Duty" 642 676 Details.Q = Method.Eft*Method.Cmin*(InletOuter.TInletInner.T); 643 677 678 case "Simplified": 679 680 "Duty" 681 Details.Q = Qestimated; 682 683 end 684 644 685 "Hot Stream Heat Capacity" 645 686 Method.Ch = InletOuter.F*Outer.Properties.Average.Cp; … … 652 693 case "inner": 653 694 695 switch CalculationApproach 696 697 case "Full": 698 654 699 "Duty" 655 700 Details.Q = Method.Eft*Method.Cmin*(InletInner.TInletOuter.T); 701 702 case "Simplified": 703 704 "Duty" 705 Details.Q = Qestimated; 706 707 end 656 708 657 709 "Cold Stream Heat Capacity" … … 715 767 EQUATIONS 716 768 717 "Exchange Surface Area" 769 switch CalculationApproach 770 771 case "Full": 772 773 "Duty" 718 774 Details.Q = Details.Ud*Pi*DoInner*Lpipe*Method.LMTD; 719 775 776 case "Simplified": 777 778 "Duty" 779 Details.Q = Qestimated; 780 781 end 782 720 783 "LMTD Correction Factor  True counter ou cocurrent flow" 721 784 Method.Fc = 1;
Note: See TracChangeset
for help on using the changeset viewer.