Changeset 384 for trunk/eml/heat_exchangers/PHE.mso
 Timestamp:
 Oct 9, 2007, 11:49:16 AM (16 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/eml/heat_exchangers/PHE.mso
r357 r384 78 78 M(NComp) as molweight (Brief="Component Mol Weight"); 79 79 80 ChevronAngle as Switcher (Brief="Chevron Corrugation Inclination Angle in Degrees ",Valid=["30 ","45","50","60","65"],Default="30");80 ChevronAngle as Switcher (Brief="Chevron Corrugation Inclination Angle in Degrees ",Valid=["30 Deg","45 Deg","50 Deg","60 Deg","65 Deg"],Default="30 Deg"); 81 81 Method as Switcher (Brief="Method of Thermal Calculation",Valid=["NTU","LMTD"],Default="NTU"); 82 82 SideOne as Switcher (Brief="Fluid Alocation in the Side I  (The odd channels)",Valid=["hot","cold"],Default="hot"); … … 442 442 switch ChevronAngle #Pressure Drop Friction Factor According to kumar's (1984) 443 443 444 case "30 ": # ChevronAngle <= 30444 case "30 Deg": # ChevronAngle <= 30 445 445 446 446 if HotSide.HeatTransfer.Re < 10 … … 460 460 end 461 461 462 case "45 ":462 case "45 Deg": 463 463 464 464 if HotSide.HeatTransfer.Re < 15 … … 478 478 end 479 479 480 case "50 ":480 case "50 Deg": 481 481 482 482 if HotSide.HeatTransfer.Re < 20 … … 496 496 end 497 497 498 case "60 ":498 case "60 Deg": 499 499 500 500 if HotSide.HeatTransfer.Re < 40 … … 514 514 end 515 515 516 case "65 ": # ChevronAngle >= 65516 case "65 Deg": # ChevronAngle >= 65 517 517 518 518 if HotSide.HeatTransfer.Re < 50 … … 536 536 switch ChevronAngle # Heat Transfer Coefficient According to kumar's (1984) 537 537 538 case "30 ": # ChevronAngle <= 30538 case "30 Deg": # ChevronAngle <= 30 539 539 540 540 if HotSide.HeatTransfer.Re < 10 … … 547 547 end 548 548 549 case "45 ":549 case "45 Deg": 550 550 551 551 if HotSide.HeatTransfer.Re < 10 … … 564 564 end 565 565 566 case "50 ":566 case "50 Deg": 567 567 568 568 if HotSide.HeatTransfer.Re < 20 … … 581 581 end 582 582 583 case "60 ":583 case "60 Deg": 584 584 585 585 if HotSide.HeatTransfer.Re < 20 … … 598 598 end 599 599 600 case "65 ": # ChevronAngle >= 65600 case "65 Deg": # ChevronAngle >= 65 601 601 602 602 if HotSide.HeatTransfer.Re < 20 … … 710 710 711 711 "LMTD Correction Factor" 712 Thermal.Fc =Thermal.Eft/(1 Thermal.Eft)/Thermal.NTU;712 Thermal.Fc =Thermal.Eft/(1.0001Thermal.Eft)/Thermal.NTU; 713 713 714 714 else 715 715 "Effectiveness in Counter Flow" 716 716 Thermal.Eft = (1exp(Thermal.NTU*(1Thermal.Cr)))/(1Thermal.Cr*exp(Thermal.NTU*(1Thermal.Cr))); 717 717 718 718 "LMTD Correction Factor" 719 719 Thermal.Fc =(ln(abs(1Thermal.Eft*Thermal.Cr))ln(abs(1Thermal.Eft)))/(Thermal.NTU*(1Thermal.Cr)); 720 720 721 721 end 722 722 723 end
Note: See TracChangeset
for help on using the changeset viewer.