Changeset 447
- Timestamp:
- Jan 15, 2008, 8:30:58 PM (16 years ago)
- Location:
- branches/tests
- Files:
-
- 3 edited
-
eml/heat_exchangers/HairpinIncr.mso (modified) (14 diffs)
-
sample/heat_exchangers/GuessHairpin_Incremental.rlt (modified) (69 diffs)
-
sample/heat_exchangers/Sample_HairpinInc.mso (modified) (6 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/tests/eml/heat_exchangers/HairpinIncr.mso
r445 r447 105 105 Q(N) as power (Brief="Incremental Duty", Default=7000, Lower=1e-8, Upper=1e10); 106 106 Qtotal as power (Brief="Total Duty", Default=7000, Lower=1e-8, Upper=1e10); 107 Uc(N) as heat_trans_coeff (Brief="Incremental Overall Heat Transfer Coefficient Clean",Default=1,Lower=1e-6,Upper=1e10); 107 #Uc(N) as heat_trans_coeff (Brief="Incremental Overall Heat Transfer Coefficient Clean",Default=1,Lower=1e-6,Upper=1e10); 108 Uc as heat_trans_coeff (Brief="Incremental Overall Heat Transfer Coefficient Clean",Default=1,Lower=1e-6,Upper=1e10); 108 109 Ud(N) as heat_trans_coeff (Brief="Incremental Overall Heat Transfer Coefficient Dirty",Default=1,Lower=1e-6,Upper=1e10); 109 110 … … 156 157 157 158 Plocal(Npoints) as pressure (Brief="Incremental Local Pressure",Default=1, Lower=1e-10, Upper=2e4, DisplayUnit='kPa'); 158 Pdrop as press_delta (Brief="Total Pressure Drop",Default=0.01, Lower=0,DisplayUnit='kPa', Symbol ="\Delta P");159 Pd_fric(Npoints) as press_delta (Brief="Incremental Pressure Drop for friction",Default=0.01, Lower=0,DisplayUnit='kPa', Symbol ="\Delta P_{fric}");159 #Pdrop as press_delta (Brief="Total Pressure Drop",Default=0.01, Lower=0,DisplayUnit='kPa', Symbol ="\Delta P"); 160 #Pd_fric(Npoints) as press_delta (Brief="Incremental Pressure Drop for friction",Default=0.01, Lower=0,DisplayUnit='kPa', Symbol ="\Delta P_{fric}"); 160 161 fi(N) as fricfactor (Brief="Incremental Friction Factor", Default=0.05, Lower=1e-10, Upper=2000); 161 162 Re(N) as positive (Brief="Incremental Reynolds Number",Default=100,Lower=1); 162 Pdnozzle_in as press_delta (Brief="Inlet Nozzle Pressure Drop",Default=0.01, Lower=0,DisplayUnit='kPa');163 Pdnozzle_out as press_delta (Brief="Outlet Nozzle Pressure Drop",Default=0.01, Lower=0,DisplayUnit='kPa');164 Vnozzle_in as velocity (Brief="Inlet Nozzle Velocity",Default=1, Upper=1e5, Lower=0);165 Vnozzle_out as velocity (Brief="Outlet Nozzle Velocity",Default=1, Upper=1e5, Lower=0);166 RVsquare_in as positive (Brief = "Inlet Nozzle rho-V^2", Default=1, Upper=1e6, Unit = 'kg/s^2/m');167 RVsquare_out as positive (Brief = "Outlet Nozzle rho-V^2", Default=1, Upper=1e6, Unit = 'kg/s^2/m');163 #Pdnozzle_in as press_delta (Brief="Inlet Nozzle Pressure Drop",Default=0.01, Lower=0,DisplayUnit='kPa'); 164 #Pdnozzle_out as press_delta (Brief="Outlet Nozzle Pressure Drop",Default=0.01, Lower=0,DisplayUnit='kPa'); 165 #Vnozzle_in as velocity (Brief="Inlet Nozzle Velocity",Default=1, Upper=1e5, Lower=0); 166 #Vnozzle_out as velocity (Brief="Outlet Nozzle Velocity",Default=1, Upper=1e5, Lower=0); 167 #RVsquare_in as positive (Brief = "Inlet Nozzle rho-V^2", Default=1, Upper=1e6, Unit = 'kg/s^2/m'); 168 #RVsquare_out as positive (Brief = "Outlet Nozzle rho-V^2", Default=1, Upper=1e6, Unit = 'kg/s^2/m'); 168 169 end 169 170 … … 201 202 M(NComp) as molweight (Brief="Component Mol Weight"); 202 203 203 HotSide as Switcher (Brief="Flag for Fluid Alocation ",Valid=["outer","inner"],Default="outer");204 #HotSide as Switcher (Brief="Flag for Fluid Alocation ",Valid=["outer","inner"],Default="outer"); 204 205 innerFlowRegime as Switcher (Brief="Inner Flow Regime ",Valid=["laminar","transition","turbulent"],Default="laminar"); 205 206 outerFlowRegime as Switcher (Brief="Outer Flow Regime ",Valid=["laminar","transition","turbulent"],Default="laminar"); … … 216 217 217 218 outer DoInner as length (Brief="Outside Diameter of Inner Pipe",Lower=1e-6); 218 outer DiInner as length (Brief="Inside Diameter of Inner Pipe",Lower=1e-10);219 outer DiOuter as length (Brief="Inside Diameter of Outer pipe",Lower=1e-10);219 outer DiInner as length (Brief="Inside Diameter of Inner Pipe",Lower=1e-10); 220 outer DiOuter as length (Brief="Inside Diameter of Outer pipe",Lower=1e-10); 220 221 outer Lpipe as length (Brief="Effective Tube Length of one segment of Pipe",Lower=0.1, Symbol = "L_{pipe}"); 221 222 outer Kwall as conductivity (Brief="Tube Wall Material Thermal Conductivity",Default=1.0, Symbol = "K_{wall}"); 222 outer Rfi as positive (Brief="Inside Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0); 223 outer Rfo as positive (Brief="Outside Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0); 224 225 outer Donozzle_Inner as length (Brief="Inner Side Outlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 226 outer Dinozzle_Inner as length (Brief="Inner Side Inlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 227 228 outer Donozzle_Outer as length (Brief="Outer Side Outlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 229 outer Dinozzle_Outer as length (Brief="Outer Side Inlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 230 231 InnerKinlet as positive (Brief="Inner Side Inlet Nozzle Pressure Loss Coeff",Default=1.1); 232 InnerKoutlet as positive (Brief="Inner Side Outlet Nozzle Pressure Loss Coeff",Default=0.7); 233 234 OuterKinlet as positive (Brief="Outer Side Inlet Nozzle Pressure Loss Coeff",Default=1.1); 235 OuterKoutlet as positive (Brief="Outer Side Outlet Nozzle Pressure Loss Coeff",Default=0.7); 223 outer Rfi as positive (Brief="Inside Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0); 224 outer Rfo as positive (Brief="Outside Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0); 225 226 #outer Donozzle_Inner as length (Brief="Inner Side Outlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 227 #outer Dinozzle_Inner as length (Brief="Inner Side Inlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 228 229 #outer Donozzle_Outer as length (Brief="Outer Side Outlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 230 #outer Dinozzle_Outer as length (Brief="Outer Side Inlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 236 231 237 232 VARIABLES … … 244 239 245 240 Details as Details_Main (Brief="Some Details in the Heat Exchanger", Symbol=" "); 246 Inner 247 Outer 241 Inner as Main_Hairpin (Brief="Inner Side of the Heat Exchanger", Symbol="_{Inner}"); 242 Outer as Main_Hairpin (Brief="Outer Side of the Heat Exchanger", Symbol="_{Outer}"); 248 243 249 244 Lincr(Npoints) as length (Brief = "Incremental Tube Length", Symbol = "L_{incr}"); … … 303 298 "Inner Stream Average Molecular Weight" 304 299 Inner.Properties.Average.Mw = sum(M*InletInner.z); 305 306 300 307 301 if InletInner.v equal 0 … … 422 416 end 423 417 424 switch HotSide 418 "Flow Mass Inlet Inner Stream" 419 Inner.Properties.Inlet.Fw = sum(M*InletInner.z)*InletInner.F; 420 421 "Flow Mass Outlet Inner Stream" 422 Inner.Properties.Outlet.Fw = sum(M*OutletInner.z)*OutletInner.F; 423 424 "Flow Mass Inlet Outer Stream" 425 Outer.Properties.Inlet.Fw = sum(M*InletOuter.z)*InletOuter.F; 426 427 "Flow Mass Outlet Outer Stream" 428 Outer.Properties.Outlet.Fw = sum(M*OutletOuter.z)*OutletOuter.F; 429 430 "Molar Balance Outer Stream" 431 OutletOuter.F = InletOuter.F; 432 433 "Molar Balance Inner Stream" 434 OutletInner.F = InletInner.F; 435 436 "Outer Stream Molar Fraction Constraint" 437 OutletOuter.z=InletOuter.z; 438 439 "InnerStream Molar Fraction Constraint" 440 OutletInner.z=InletInner.z; 441 442 "Total Exchange Surface Area for one segment of pipe" 443 Details.A=Pi*DoInner*Lpipe; 444 445 446 "Pipe Initial Length from Left to Right" 447 Lincr(1) = 0*'m'; 448 449 for i in [1:N] 450 451 "Incremental Length" 452 Lincr(i+1) = i*abs(Lpipe)/N; 453 454 end 455 456 for i in [1:N] 457 458 switch innerFlowRegime 459 460 case "laminar": 461 462 "Inner Side Friction Factor for Pressure Drop - laminar Flow" 463 Inner.PressureDrop.fi(i)*Inner.PressureDrop.Re(i) = 16; 464 465 when Inner.PressureDrop.Re(i) > 2300 switchto "transition"; 466 467 case "transition": 468 469 "using Turbulent Flow - to be implemented" 470 (Inner.PressureDrop.fi(i)-0.0035)*(Inner.PressureDrop.Re(i)^0.42) = 0.264; 471 472 when Inner.PressureDrop.Re(i) < 2300 switchto "laminar"; 473 when Inner.PressureDrop.Re(i) > 10000 switchto "turbulent"; 474 475 case "turbulent": 476 477 "Inner Side Friction Factor - Turbulent Flow" 478 (Inner.PressureDrop.fi(i)-0.0035)*(Inner.PressureDrop.Re(i)^0.42) = 0.264; 479 480 when Inner.PressureDrop.Re(i) < 10000 switchto "transition"; 481 482 end 483 484 end 485 486 for i in [1:N] 487 488 switch outerFlowRegime 489 490 case "laminar": 491 492 "Outer Side Friction Factor - laminar Flow" 493 Outer.PressureDrop.fi(i)*Outer.PressureDrop.Re(i) = 16; 494 495 when Outer.PressureDrop.Re(i) > 2300 switchto "transition"; 496 497 case "transition": 498 499 "using Turbulent Flow - Transition Flow must be implemented" 500 (Outer.PressureDrop.fi(i)-0.0035)*(Outer.PressureDrop.Re(i)^0.42) = 0.264; 501 502 when Outer.PressureDrop.Re(i) < 2300 switchto "laminar"; 503 when Outer.PressureDrop.Re(i) > 10000 switchto "turbulent"; 504 505 case "turbulent": 506 507 "Outer Side Friction Factor - Turbulent Flow" 508 (Outer.PressureDrop.fi(i)-0.0035)*(Outer.PressureDrop.Re(i)^0.42) = 0.264; 509 510 when Outer.PressureDrop.Re(i) < 10000 switchto "transition"; 511 512 end 513 514 end 515 516 for i in [1:N] 517 518 switch innerFlowRegime 519 520 case "laminar": 521 522 "Inner Side Friction Factor for Heat Transfer - laminar Flow" 523 Inner.HeatTransfer.fi(i) = 1/(0.79*ln(Inner.HeatTransfer.Re(i))-1.64)^2; 524 525 switch InnerLaminarCorrelation 526 527 case "Hausen": 528 529 "Nusselt Number" 530 Inner.HeatTransfer.Nu(i) = 3.665 + ((0.19*((DiInner/Lpipe)*Inner.HeatTransfer.Re(i)*Inner.HeatTransfer.PR(i))^0.8)/(1+0.117*((DiInner/Lpipe)*Inner.HeatTransfer.Re(i)*Inner.HeatTransfer.PR(i))^0.467)); 531 532 case "Schlunder": 533 534 "Nusselt Number" 535 Inner.HeatTransfer.Nu(i) = (49.027896+4.173281*Inner.HeatTransfer.Re(i)*Inner.HeatTransfer.PR(i)*(DiInner/Lpipe))^(1/3); 536 537 end 538 539 when Inner.HeatTransfer.Re(i) > 2300 switchto "transition"; 540 541 case "transition": 542 543 "Inner Side Friction Factor for Heat Transfer - transition Flow" 544 Inner.HeatTransfer.fi(i) = 1/(0.79*ln(Inner.HeatTransfer.Re(i))-1.64)^2; 545 546 switch InnerTransitionCorrelation 547 548 case "Gnielinski": 549 550 "Nusselt Number" 551 Inner.HeatTransfer.Nu(i)*(1+(12.7*sqrt(0.125*Inner.HeatTransfer.fi(i))*((Inner.HeatTransfer.PR(i))^(2/3) -1))) = 0.125*Inner.HeatTransfer.fi(i)*(Inner.HeatTransfer.Re(i)-1000)*Inner.HeatTransfer.PR(i); 552 553 case "Hausen": 554 555 "Nusselt Number" 556 Inner.HeatTransfer.Nu(i) =0.116*(Inner.HeatTransfer.Re(i)^(0.667)-125)*Inner.HeatTransfer.PR(i)^(0.333)*(1+(DiInner/Lpipe)^0.667); 557 558 end 559 560 when Inner.HeatTransfer.Re(i) < 2300 switchto "laminar"; 561 when Inner.HeatTransfer.Re(i) > 10000 switchto "turbulent"; 562 563 case "turbulent": 564 565 switch InnerTurbulentCorrelation 566 567 case "Petukhov": 568 569 "Inner Side Friction Factor for Heat Transfer - turbulent Flow" 570 Inner.HeatTransfer.fi(i) = 1/(1.82*log(Inner.HeatTransfer.Re(i))-1.64)^2; 571 572 "Nusselt Number" 573 Inner.HeatTransfer.Nu(i)*(1.07+(12.7*sqrt(0.125*Inner.HeatTransfer.fi(i))*((Inner.HeatTransfer.PR(i))^(2/3) -1))) = 0.125*Inner.HeatTransfer.fi(i)*Inner.HeatTransfer.Re(i)*Inner.HeatTransfer.PR(i); 574 575 case "SiederTate": 576 577 "Nusselt Number" 578 Inner.HeatTransfer.Nu(i) = 0.027*(Inner.HeatTransfer.PR(i))^(1/3)*(Inner.HeatTransfer.Re(i))^(4/5); 579 580 "Inner Side Friction Factor for Heat Transfer - turbulent Flow" 581 Inner.HeatTransfer.fi(i) = 1/(1.82*log(Inner.HeatTransfer.Re(i))-1.64)^2; 582 583 end 584 585 when Inner.HeatTransfer.Re(i) < 10000 switchto "transition"; 586 587 end 588 589 end 590 591 for i in [1:N] 592 593 switch outerFlowRegime 594 595 case "laminar": 596 597 "Outer Side Friction Factor for Heat Transfer - laminar Flow" 598 Outer.HeatTransfer.fi(i) = 1/(0.79*ln(Outer.HeatTransfer.Re(i))-1.64)^2; 599 600 switch OuterLaminarCorrelation 601 602 case "Hausen": 603 604 "Nusselt Number" 605 Outer.HeatTransfer.Nu(i) = 3.665 + ((0.19*((Outer.HeatTransfer.Dh/Lpipe)*Outer.HeatTransfer.Re(i)*Outer.HeatTransfer.PR(i))^0.8)/(1+0.117*((Outer.HeatTransfer.Dh/Lpipe)*Outer.HeatTransfer.Re(i)*Outer.HeatTransfer.PR(i))^0.467)); 606 607 case "Schlunder": 608 609 "Nusselt Number" 610 Outer.HeatTransfer.Nu(i) = (49.027896+4.173281*Outer.HeatTransfer.Re(i)*Outer.HeatTransfer.PR(i)*(Outer.HeatTransfer.Dh/Lpipe))^(1/3); 611 612 end 613 614 when Outer.HeatTransfer.Re(i) > 2300 switchto "transition"; 615 616 case "transition": 617 618 switch OuterTransitionCorrelation 619 620 case "Gnielinski": 621 622 "Outer Side Friction Factor for Heat Transfer - transition Flow" 623 Outer.HeatTransfer.fi(i) = 1/(0.79*ln(Outer.HeatTransfer.Re(i))-1.64)^2; 624 625 "Nusselt Number" 626 Outer.HeatTransfer.Nu(i)*(1+(12.7*sqrt(0.125*Outer.HeatTransfer.fi(i))*((Outer.HeatTransfer.PR(i))^(2/3) -1))) = 0.125*Outer.HeatTransfer.fi(i)*(Outer.HeatTransfer.Re(i)-1000)*Outer.HeatTransfer.PR(i); 627 628 case "Hausen": 629 630 "Nusselt Number" 631 Outer.HeatTransfer.Nu(i) = 0.116*(Outer.HeatTransfer.Re(i)^(0.667)-125)*Outer.HeatTransfer.PR(i)^(0.333)*(1+(Outer.HeatTransfer.Dh/Lpipe)^0.667); 632 633 634 "Outer Side Friction Factor for Heat Transfer - transition Flow" 635 Outer.HeatTransfer.fi(i) = 1/(0.79*ln(Outer.HeatTransfer.Re(i))-1.64)^2; 636 637 end 638 639 when Outer.HeatTransfer.Re(i) < 2300 switchto "laminar"; 640 when Outer.HeatTransfer.Re(i) > 10000 switchto "turbulent"; 641 642 case "turbulent": 643 644 switch OuterTurbulentCorrelation 645 646 case "Petukhov": 647 648 "Outer Side Friction Factor for Heat Transfer - turbulent Flow" 649 Outer.HeatTransfer.fi(i) = 1/(1.82*log(Outer.HeatTransfer.Re(i))-1.64)^2; 650 651 "Nusselt Number" 652 Outer.HeatTransfer.Nu(i)*(1.07+(12.7*sqrt(0.125*Outer.HeatTransfer.fi(i))*((Outer.HeatTransfer.PR(i))^(2/3) -1))) = 0.125*Outer.HeatTransfer.fi(i)*Outer.HeatTransfer.Re(i)*Outer.HeatTransfer.PR(i); 653 654 case "SiederTate": 655 656 "Nusselt Number" 657 Outer.HeatTransfer.Nu(i) = 0.027*(Outer.HeatTransfer.PR(i))^(1/3)*(Outer.HeatTransfer.Re(i))^(4/5); 658 659 "Outer Side Friction Factor for Heat Transfer - turbulent Flow" 660 Outer.HeatTransfer.fi(i) = 1/(1.82*log(Outer.HeatTransfer.Re(i))-1.64)^2; 661 662 end 663 664 when Outer.HeatTransfer.Re(i) < 10000 switchto "transition"; 665 666 end 667 668 end 669 670 "Inner Pipe Film Coefficient" 671 Inner.HeatTransfer.hcoeff = (Inner.HeatTransfer.Nu*Inner.Properties.Average.K/DiInner)*Inner.HeatTransfer.Phi; 672 673 "Outer Pipe Film Coefficient" 674 Outer.HeatTransfer.hcoeff= (Outer.HeatTransfer.Nu*Outer.Properties.Average.K/Outer.HeatTransfer.Dh)*Outer.HeatTransfer.Phi; 675 676 "Outer Pipe Phi correction" 677 Outer.HeatTransfer.Phi = (Outer.Properties.Average.Mu/Outer.Properties.Wall.Mu)^0.14; 678 679 "Inner Pipe Phi correction" 680 Inner.HeatTransfer.Phi = (Inner.Properties.Average.Mu/Inner.Properties.Wall.Mu)^0.14; 681 682 "Outer Pipe Prandtl Number" 683 Outer.HeatTransfer.PR = ((Outer.Properties.Average.Cp/Outer.Properties.Average.Mw)*Outer.Properties.Average.Mu)/Outer.Properties.Average.K; 684 685 "Inner Pipe Prandtl Number" 686 Inner.HeatTransfer.PR = ((Inner.Properties.Average.Cp/Inner.Properties.Average.Mw)*Inner.Properties.Average.Mu)/Inner.Properties.Average.K; 687 688 "Outer Pipe Reynolds Number for Heat Transfer" 689 Outer.HeatTransfer.Re = (Outer.Properties.Average.rho*Outer.HeatTransfer.Vmean*Outer.HeatTransfer.Dh)/Outer.Properties.Average.Mu; 690 691 "Outer Pipe Reynolds Number for Pressure Drop" 692 Outer.PressureDrop.Re = (Outer.Properties.Average.rho*Outer.HeatTransfer.Vmean*Outer.PressureDrop.Dh)/Outer.Properties.Average.Mu; 693 694 "Inner Pipe Reynolds Number for Heat Transfer" 695 Inner.HeatTransfer.Re = (Inner.Properties.Average.rho*Inner.HeatTransfer.Vmean*Inner.HeatTransfer.Dh)/Inner.Properties.Average.Mu; 696 697 "Inner Pipe Reynolds Number for Pressure Drop" 698 Inner.PressureDrop.Re = Inner.HeatTransfer.Re; 699 700 "Outer Pipe Velocity" 701 Outer.HeatTransfer.Vmean*(Outer.HeatTransfer.As*Outer.Properties.Average.rho) = Outer.Properties.Inlet.Fw; 702 703 "Inner Pipe Velocity" 704 Inner.HeatTransfer.Vmean*(Inner.HeatTransfer.As*Inner.Properties.Average.rho) = Inner.Properties.Inlet.Fw; 705 706 "Overall Heat Transfer Coefficient Clean" 707 #Details.Uc*((DoInner/(Inner.HeatTransfer.hcoeff*DiInner) )+(DoInner*ln(DoInner/DiInner)/(2*Kwall))+(1/(Outer.HeatTransfer.hcoeff)))=1; 708 Details.Uc*((DoInner/(sum(Inner.HeatTransfer.hcoeff)/N*DiInner) )+(DoInner*ln(DoInner/DiInner)/(2*Kwall))+(1/(sum(Outer.HeatTransfer.hcoeff)/N)))=1; 709 710 "Overall Heat Transfer Coefficient Dirty" 711 Details.Ud=1/(Rfi*(DoInner/DiInner) + Rfo + (DoInner/(Inner.HeatTransfer.hcoeff*DiInner) )+(DoInner*ln(DoInner/DiInner)/(2*Kwall))+(1/(Outer.HeatTransfer.hcoeff))); 712 713 "Total Duty" 714 Details.Qtotal = sum(Details.Q); 715 716 for i in [2:N] 717 718 "Incremental Enthalpy Inner Stream" 719 Inner.HeatTransfer.Enth(i) = (1-InletInner.v)*PP.LiquidEnthalpy(Inner.HeatTransfer.Tlocal(i), Inner.PressureDrop.Plocal(i), InletInner.z) + InletInner.v*PP.VapourEnthalpy(Inner.HeatTransfer.Tlocal(i), Inner.PressureDrop.Plocal(i), InletInner.z); 720 721 "Incremental Enthalpy Outer Stream" 722 Outer.HeatTransfer.Enth(i) = (1-InletOuter.v)*PP.LiquidEnthalpy(Outer.HeatTransfer.Tlocal(i), Outer.PressureDrop.Plocal(i), InletOuter.z) + InletOuter.v*PP.VapourEnthalpy(Outer.HeatTransfer.Tlocal(i), Outer.PressureDrop.Plocal(i), InletOuter.z); 723 724 end 725 726 #*switch HotSide 425 727 426 728 case "outer": 427 729 428 730 "Energy Balance Outer Stream in counter flow" 429 731 Details.Q(1:N) = InletOuter.F*(Outer.HeatTransfer.Enth(2:Npoints) - Outer.HeatTransfer.Enth(1:N)); 430 732 431 733 "Energy Balance Inner Stream" … … 439 741 Details.Q(1:N) = InletInner.F*(Inner.HeatTransfer.Enth(1:N)-Inner.HeatTransfer.Enth(2:Npoints)); 440 742 441 442 443 743 "Energy Balance Cold Stream in counter flow" 744 Details.Q(1:N) = -InletOuter.F*(Outer.HeatTransfer.Enth(2:Npoints) - Outer.HeatTransfer.Enth(1:N)); 745 444 746 when InletInner.T < InletOuter.T switchto "outer"; 445 747 446 748 end 447 448 "Flow Mass Inlet Inner Stream"449 Inner.Properties.Inlet.Fw = sum(M*InletInner.z)*InletInner.F;450 451 "Flow Mass Outlet Inner Stream"452 Inner.Properties.Outlet.Fw = sum(M*OutletInner.z)*OutletInner.F;453 454 "Flow Mass Inlet Outer Stream"455 Outer.Properties.Inlet.Fw = sum(M*InletOuter.z)*InletOuter.F;456 457 "Flow Mass Outlet Outer Stream"458 Outer.Properties.Outlet.Fw = sum(M*OutletOuter.z)*OutletOuter.F;459 460 "Molar Balance Outer Stream"461 OutletOuter.F = InletOuter.F;462 463 "Molar Balance Inner Stream"464 OutletInner.F = InletInner.F;465 466 "Outer Stream Molar Fraction Constraint"467 OutletOuter.z=InletOuter.z;468 469 "InnerStream Molar Fraction Constraint"470 OutletInner.z=InletInner.z;471 472 "Total Exchange Surface Area for one segment of pipe"473 Details.A=Pi*DoInner*Lpipe;474 475 "Pipe Initial Length from Left to Right - OBS: Left: Always Inlet inner side"476 Lincr(1) = 0*'m';477 478 for i in [1:N]479 480 "Incremental Length"481 Lincr(i+1) = i*abs(Lpipe)/N;482 483 end484 485 for i in [1:N]486 487 switch innerFlowRegime488 489 case "laminar":490 491 "Inner Side Friction Factor for Pressure Drop - laminar Flow"492 Inner.PressureDrop.fi(i)*Inner.PressureDrop.Re(i) = 16;493 494 when Inner.PressureDrop.Re(i) > 2300 switchto "transition";495 496 case "transition":497 498 "using Turbulent Flow - to be implemented"499 (Inner.PressureDrop.fi(i)-0.0035)*(Inner.PressureDrop.Re(i)^0.42) = 0.264;500 501 when Inner.PressureDrop.Re(i) < 2300 switchto "laminar";502 when Inner.PressureDrop.Re(i) > 10000 switchto "turbulent";503 504 case "turbulent":505 506 "Inner Side Friction Factor - Turbulent Flow"507 (Inner.PressureDrop.fi(i)-0.0035)*(Inner.PressureDrop.Re(i)^0.42) = 0.264;508 509 when Inner.PressureDrop.Re(i) < 10000 switchto "transition";510 511 end512 513 end514 515 for i in [1:N]516 517 switch outerFlowRegime518 519 case "laminar":520 521 "Outer Side Friction Factor - laminar Flow"522 Outer.PressureDrop.fi(i)*Outer.PressureDrop.Re(i) = 16;523 524 when Outer.PressureDrop.Re(i) > 2300 switchto "transition";525 526 case "transition":527 528 "using Turbulent Flow - Transition Flow must be implemented"529 (Outer.PressureDrop.fi(i)-0.0035)*(Outer.PressureDrop.Re(i)^0.42) = 0.264;530 531 when Outer.PressureDrop.Re(i) < 2300 switchto "laminar";532 when Outer.PressureDrop.Re(i) > 10000 switchto "turbulent";533 534 case "turbulent":535 536 "Outer Side Friction Factor - Turbulent Flow"537 (Outer.PressureDrop.fi(i)-0.0035)*(Outer.PressureDrop.Re(i)^0.42) = 0.264;538 539 when Outer.PressureDrop.Re(i) < 10000 switchto "transition";540 541 end542 543 end544 545 for i in [1:N]546 547 switch innerFlowRegime548 549 case "laminar":550 551 "Inner Side Friction Factor for Heat Transfer - laminar Flow"552 Inner.HeatTransfer.fi(i) = 1/(0.79*ln(Inner.HeatTransfer.Re(i))-1.64)^2;553 554 switch InnerLaminarCorrelation555 556 case "Hausen":557 558 "Nusselt Number"559 Inner.HeatTransfer.Nu(i) = 3.665 + ((0.19*((DiInner/Lpipe)*Inner.HeatTransfer.Re(i)*Inner.HeatTransfer.PR(i))^0.8)/(1+0.117*((DiInner/Lpipe)*Inner.HeatTransfer.Re(i)*Inner.HeatTransfer.PR(i))^0.467));560 561 case "Schlunder":562 563 "Nusselt Number"564 Inner.HeatTransfer.Nu(i) = (49.027896+4.173281*Inner.HeatTransfer.Re(i)*Inner.HeatTransfer.PR(i)*(DiInner/Lpipe))^(1/3);565 566 end567 568 when Inner.HeatTransfer.Re(i) > 2300 switchto "transition";569 570 case "transition":571 572 "Inner Side Friction Factor for Heat Transfer - transition Flow"573 Inner.HeatTransfer.fi(i) = 1/(0.79*ln(Inner.HeatTransfer.Re(i))-1.64)^2;574 575 switch InnerTransitionCorrelation576 577 case "Gnielinski":578 579 "Nusselt Number"580 Inner.HeatTransfer.Nu(i)*(1+(12.7*sqrt(0.125*Inner.HeatTransfer.fi(i))*((Inner.HeatTransfer.PR(i))^(2/3) -1))) = 0.125*Inner.HeatTransfer.fi(i)*(Inner.HeatTransfer.Re(i)-1000)*Inner.HeatTransfer.PR(i);581 582 case "Hausen":583 584 "Nusselt Number"585 Inner.HeatTransfer.Nu(i) =0.116*(Inner.HeatTransfer.Re(i)^(0.667)-125)*Inner.HeatTransfer.PR(i)^(0.333)*(1+(DiInner/Lpipe)^0.667);586 587 end588 589 when Inner.HeatTransfer.Re(i) < 2300 switchto "laminar";590 when Inner.HeatTransfer.Re(i) > 10000 switchto "turbulent";591 592 case "turbulent":593 594 switch InnerTurbulentCorrelation595 596 case "Petukhov":597 598 "Inner Side Friction Factor for Heat Transfer - turbulent Flow"599 Inner.HeatTransfer.fi(i) = 1/(1.82*log(Inner.HeatTransfer.Re(i))-1.64)^2;600 601 "Nusselt Number"602 Inner.HeatTransfer.Nu(i)*(1.07+(12.7*sqrt(0.125*Inner.HeatTransfer.fi(i))*((Inner.HeatTransfer.PR(i))^(2/3) -1))) = 0.125*Inner.HeatTransfer.fi(i)*Inner.HeatTransfer.Re(i)*Inner.HeatTransfer.PR(i);603 604 case "SiederTate":605 606 "Nusselt Number"607 Inner.HeatTransfer.Nu(i) = 0.027*(Inner.HeatTransfer.PR(i))^(1/3)*(Inner.HeatTransfer.Re(i))^(4/5);608 609 "Inner Side Friction Factor for Heat Transfer - turbulent Flow"610 Inner.HeatTransfer.fi(i) = 1/(1.82*log(Inner.HeatTransfer.Re(i))-1.64)^2;611 612 end613 614 when Inner.HeatTransfer.Re(i) < 10000 switchto "transition";615 616 end617 618 end619 620 for i in [1:N]621 622 switch outerFlowRegime623 624 case "laminar":625 626 "Outer Side Friction Factor for Heat Transfer - laminar Flow"627 Outer.HeatTransfer.fi(i) = 1/(0.79*ln(Outer.HeatTransfer.Re(i))-1.64)^2;628 629 switch OuterLaminarCorrelation630 631 case "Hausen":632 633 "Nusselt Number"634 Outer.HeatTransfer.Nu(i) = 3.665 + ((0.19*((Outer.HeatTransfer.Dh/Lpipe)*Outer.HeatTransfer.Re(i)*Outer.HeatTransfer.PR(i))^0.8)/(1+0.117*((Outer.HeatTransfer.Dh/Lpipe)*Outer.HeatTransfer.Re(i)*Outer.HeatTransfer.PR(i))^0.467));635 636 case "Schlunder":637 638 "Nusselt Number"639 Outer.HeatTransfer.Nu(i) = (49.027896+4.173281*Outer.HeatTransfer.Re(i)*Outer.HeatTransfer.PR(i)*(Outer.HeatTransfer.Dh/Lpipe))^(1/3);640 641 end642 643 when Outer.HeatTransfer.Re(i) > 2300 switchto "transition";644 645 case "transition":646 647 switch OuterTransitionCorrelation648 649 case "Gnielinski":650 651 "Outer Side Friction Factor for Heat Transfer - transition Flow"652 Outer.HeatTransfer.fi(i) = 1/(0.79*ln(Outer.HeatTransfer.Re(i))-1.64)^2;653 654 "Nusselt Number"655 Outer.HeatTransfer.Nu(i)*(1+(12.7*sqrt(0.125*Outer.HeatTransfer.fi(i))*((Outer.HeatTransfer.PR(i))^(2/3) -1))) = 0.125*Outer.HeatTransfer.fi(i)*(Outer.HeatTransfer.Re(i)-1000)*Outer.HeatTransfer.PR(i);656 657 case "Hausen":658 659 "Nusselt Number"660 Outer.HeatTransfer.Nu(i) = 0.116*(Outer.HeatTransfer.Re(i)^(0.667)-125)*Outer.HeatTransfer.PR(i)^(0.333)*(1+(Outer.HeatTransfer.Dh/Lpipe)^0.667);661 662 663 "Outer Side Friction Factor for Heat Transfer - transition Flow"664 Outer.HeatTransfer.fi(i) = 1/(0.79*ln(Outer.HeatTransfer.Re(i))-1.64)^2;665 666 end667 668 when Outer.HeatTransfer.Re(i) < 2300 switchto "laminar";669 when Outer.HeatTransfer.Re(i) > 10000 switchto "turbulent";670 671 case "turbulent":672 673 switch OuterTurbulentCorrelation674 675 case "Petukhov":676 677 "Outer Side Friction Factor for Heat Transfer - turbulent Flow"678 Outer.HeatTransfer.fi(i) = 1/(1.82*log(Outer.HeatTransfer.Re(i))-1.64)^2;679 680 "Nusselt Number"681 Outer.HeatTransfer.Nu(i)*(1.07+(12.7*sqrt(0.125*Outer.HeatTransfer.fi(i))*((Outer.HeatTransfer.PR(i))^(2/3) -1))) = 0.125*Outer.HeatTransfer.fi(i)*Outer.HeatTransfer.Re(i)*Outer.HeatTransfer.PR(i);682 683 case "SiederTate":684 685 "Nusselt Number"686 Outer.HeatTransfer.Nu(i) = 0.027*(Outer.HeatTransfer.PR(i))^(1/3)*(Outer.HeatTransfer.Re(i))^(4/5);687 688 "Outer Side Friction Factor for Heat Transfer - turbulent Flow"689 Outer.HeatTransfer.fi(i) = 1/(1.82*log(Outer.HeatTransfer.Re(i))-1.64)^2;690 691 end692 693 when Outer.HeatTransfer.Re(i) < 10000 switchto "transition";694 695 end696 697 end698 699 "Inner Pipe Film Coefficient"700 Inner.HeatTransfer.hcoeff = (Inner.HeatTransfer.Nu*Inner.Properties.Average.K/DiInner)*Inner.HeatTransfer.Phi;701 702 "Outer Pipe Film Coefficient"703 Outer.HeatTransfer.hcoeff= (Outer.HeatTransfer.Nu*Outer.Properties.Average.K/Outer.HeatTransfer.Dh)*Outer.HeatTransfer.Phi;704 705 "Outer Pipe Phi correction"706 Outer.HeatTransfer.Phi = (Outer.Properties.Average.Mu/Outer.Properties.Wall.Mu)^0.14;707 708 "Inner Pipe Phi correction"709 Inner.HeatTransfer.Phi = (Inner.Properties.Average.Mu/Inner.Properties.Wall.Mu)^0.14;710 711 "Outer Pipe Prandtl Number"712 Outer.HeatTransfer.PR = ((Outer.Properties.Average.Cp/Outer.Properties.Average.Mw)*Outer.Properties.Average.Mu)/Outer.Properties.Average.K;713 714 "Inner Pipe Prandtl Number"715 Inner.HeatTransfer.PR = ((Inner.Properties.Average.Cp/Inner.Properties.Average.Mw)*Inner.Properties.Average.Mu)/Inner.Properties.Average.K;716 717 "Outer Pipe Reynolds Number for Heat Transfer"718 Outer.HeatTransfer.Re = (Outer.Properties.Average.rho*Outer.HeatTransfer.Vmean*Outer.HeatTransfer.Dh)/Outer.Properties.Average.Mu;719 720 "Outer Pipe Reynolds Number for Pressure Drop"721 Outer.PressureDrop.Re = (Outer.Properties.Average.rho*Outer.HeatTransfer.Vmean*Outer.PressureDrop.Dh)/Outer.Properties.Average.Mu;722 723 "Inner Pipe Reynolds Number for Heat Transfer"724 Inner.HeatTransfer.Re = (Inner.Properties.Average.rho*Inner.HeatTransfer.Vmean*Inner.HeatTransfer.Dh)/Inner.Properties.Average.Mu;725 726 "Inner Pipe Reynolds Number for Pressure Drop"727 Inner.PressureDrop.Re = Inner.HeatTransfer.Re;728 729 "Outer Pipe Velocity"730 Outer.HeatTransfer.Vmean*(Outer.HeatTransfer.As*Outer.Properties.Average.rho) = Outer.Properties.Inlet.Fw;731 732 "Inner Pipe Velocity"733 Inner.HeatTransfer.Vmean*(Inner.HeatTransfer.As*Inner.Properties.Average.rho) = Inner.Properties.Inlet.Fw;734 735 "Overall Heat Transfer Coefficient Clean"736 Details.Uc*((DoInner/(Inner.HeatTransfer.hcoeff*DiInner) )+(DoInner*ln(DoInner/DiInner)/(2*Kwall))+(1/(Outer.HeatTransfer.hcoeff)))=1;737 738 "Overall Heat Transfer Coefficient Dirty"739 Details.Ud=1/(Rfi*(DoInner/DiInner) + Rfo + (DoInner/(Inner.HeatTransfer.hcoeff*DiInner) )+(DoInner*ln(DoInner/DiInner)/(2*Kwall))+(1/(Outer.HeatTransfer.hcoeff)));740 741 "Total Duty"742 Details.Qtotal = sum(Details.Q);743 749 744 750 switch HotSide … … 748 754 "Incremental Duty" 749 755 Details.Q = Details.Ud*Pi*DoInner*(Lpipe/N)*(Outer.Properties.Average.T - Inner.Properties.Average.T); 750 #Details.Q = 1.30; good approach751 756 752 757 when InletInner.T > InletOuter.T switchto "inner"; … … 761 766 end 762 767 763 for i in [2:N]764 765 "Incremental Enthalpy Inner Stream"766 Inner.HeatTransfer.Enth(i) = (1-InletInner.v)*PP.LiquidEnthalpy(Inner.HeatTransfer.Tlocal(i), Inner.PressureDrop.Plocal(i), InletInner.z) + InletInner.v*PP.VapourEnthalpy(Inner.HeatTransfer.Tlocal(i), Inner.PressureDrop.Plocal(i), InletInner.z);767 768 "Incremental Enthalpy Outer Stream"769 Outer.HeatTransfer.Enth(i) = (1-InletOuter.v)*PP.LiquidEnthalpy(Outer.HeatTransfer.Tlocal(i), Outer.PressureDrop.Plocal(i), InletOuter.z) + InletOuter.v*PP.VapourEnthalpy(Outer.HeatTransfer.Tlocal(i), Outer.PressureDrop.Plocal(i), InletOuter.z);770 771 end772 773 768 "Enthalpy of Inner Side - Inlet Boundary" 774 769 Inner.HeatTransfer.Enth(1) = InletInner.h; … … 806 801 "Pressure of Outer Side - Outlet Boundary" 807 802 Outer.PressureDrop.Plocal(1) = OutletOuter.P; 808 809 "Total Pressure Drop Outer Stream"810 Outer.PressureDrop.Pdrop = 0*'kPa';#Outer.PressureDrop.Pd_fric(1)+Outer.PressureDrop.Pdnozzle_in+Outer.PressureDrop.Pdnozzle_out;811 803 812 804 for i in [1:N] … … 828 820 end 829 821 830 "Total Pressure Drop Inner Stream"831 Inner.PressureDrop.Pdrop = 0*'kPa';#Inner.PressureDrop.Pd_fric(Npoints)+Inner.PressureDrop.Pdnozzle_in+Inner.PressureDrop.Pdnozzle_out;832 833 822 "Inner Pipe Pressure Drop for friction" 834 823 Inner.PressureDrop.Pd_fric(2:Npoints) = (2*Inner.PressureDrop.fi*Lincr(2:Npoints)*Inner.Properties.Average.rho*Inner.HeatTransfer.Vmean^2)/(DiInner*Inner.HeatTransfer.Phi); … … 843 832 Inner.PressureDrop.Plocal(i+1) = InletInner.P; 844 833 845 end 846 847 848 "Velocity Inner Side Inlet Nozzle" 849 Inner.PressureDrop.Vnozzle_in = Inner.Properties.Inlet.Fw/(Inner.Properties.Inlet.rho*(0.25*Pi*Dinozzle_Inner^2)); 850 851 "Velocity Inner Side Outlet Nozzle" 852 Inner.PressureDrop.Vnozzle_out = Inner.Properties.Outlet.Fw/(Inner.Properties.Outlet.rho*(0.25*Pi*Donozzle_Inner^2)); 853 854 "Velocity Outer Side Inlet Nozzle" 855 Outer.PressureDrop.Vnozzle_in = Outer.Properties.Inlet.Fw/(Outer.Properties.Inlet.rho*(0.25*Pi*Dinozzle_Outer^2)); 856 857 "Velocity Outer Side Outlet Nozzle" 858 Outer.PressureDrop.Vnozzle_out = Outer.Properties.Outlet.Fw/(Outer.Properties.Outlet.rho*(0.25*Pi*Donozzle_Outer^2)); 859 860 "Pressure Drop Inner Side Inlet Nozzle" 861 Inner.PressureDrop.Pdnozzle_in = 0.5*InnerKinlet*Inner.Properties.Inlet.rho*Inner.PressureDrop.Vnozzle_in^2; 862 863 "Pressure Drop Inner Side Outlet Nozzle" 864 Inner.PressureDrop.Pdnozzle_out = 0.5*InnerKoutlet*Inner.Properties.Outlet.rho*Inner.PressureDrop.Vnozzle_out^2; 865 866 "Pressure Drop Outer Side Inlet Nozzle" 867 Outer.PressureDrop.Pdnozzle_in = 0.5*OuterKinlet*Outer.Properties.Inlet.rho*Outer.PressureDrop.Vnozzle_in^2; 868 869 "Pressure Drop Outer Side Outlet Nozzle" 870 Outer.PressureDrop.Pdnozzle_out = 0.5*OuterKoutlet*Outer.Properties.Outlet.rho*Outer.PressureDrop.Vnozzle_out^2; 871 872 "Inner Side Inlet Nozzle rho-V^2" 873 Inner.PressureDrop.RVsquare_in = Inner.Properties.Inlet.rho*(Inner.PressureDrop.Vnozzle_in)^2; 874 875 "Inner Side Outlet Nozzle rho-V^2" 876 Inner.PressureDrop.RVsquare_out = Inner.Properties.Outlet.rho*(Inner.PressureDrop.Vnozzle_out)^2; 877 878 "Outer Side Inlet Nozzle rho-V^2" 879 Outer.PressureDrop.RVsquare_in = Outer.Properties.Inlet.rho*(Outer.PressureDrop.Vnozzle_in)^2; 880 881 "Outer Side Outlet Nozzle rho-V^2" 882 Outer.PressureDrop.RVsquare_out = Outer.Properties.Outlet.rho*(Outer.PressureDrop.Vnozzle_out)^2; 834 end*# 835 836 end 837 838 Model UpperPipe_basic as HairpinIncr_basic 839 840 ATTRIBUTES 841 Pallete = false; 842 Brief = "Incremental Hairpin Heat Exchanger. "; 843 Info = 844 "Incremental approach for Hairpin heat exchanger. "; 845 846 PARAMETERS 847 848 outer PP as Plugin (Brief="External Physical Properties", Type="PP"); 849 outer NComp as Integer (Brief="Number of Components"); 850 HotSide as Switcher (Brief="Flag for Fluid Alocation ",Valid=["outer","inner"],Default="outer"); 851 852 Pi as constant (Brief="Pi Number",Default=3.14159265, Symbol = "\pi"); 853 outer N as Integer (Brief="Number of zones", Default = 2); 854 Npoints as Integer (Brief="Number of incremental points", Default = 3); 855 856 857 outer DoInner as length (Brief="Outside Diameter of Inner Pipe",Lower=1e-6); 858 outer DiInner as length (Brief="Inside Diameter of Inner Pipe",Lower=1e-10); 859 outer DiOuter as length (Brief="Inside Diameter of Outer pipe",Lower=1e-10); 860 outer Lpipe as length (Brief="Effective Tube Length of one segment of Pipe",Lower=0.1, Symbol = "L_{pipe}"); 861 outer Kwall as conductivity (Brief="Tube Wall Material Thermal Conductivity",Default=1.0, Symbol = "K_{wall}"); 862 outer Rfi as positive (Brief="Inside Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0); 863 outer Rfo as positive (Brief="Outside Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0); 864 865 #Donozzle_Inner as length (Brief="Inner Side Outlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 866 #Dinozzle_Inner as length (Brief="Inner Side Inlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 867 868 #Donozzle_Outer as length (Brief="Outer Side Outlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 869 #Dinozzle_Outer as length (Brief="Outer Side Inlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 870 871 #InnerKinlet as positive (Brief="Inner Side Inlet Nozzle Pressure Loss Coeff",Default=1.1); 872 #InnerKoutlet as positive (Brief="Inner Side Outlet Nozzle Pressure Loss Coeff",Default=0.7); 873 874 #OuterKinlet as positive (Brief="Outer Side Inlet Nozzle Pressure Loss Coeff",Default=1.1); 875 #OuterKoutlet as positive (Brief="Outer Side Outlet Nozzle Pressure Loss Coeff",Default=0.7); 876 877 SET 878 879 #"Pi Number" 880 Pi = 3.14159265; 881 882 #"Number of incremental points" 883 Npoints = N+1; 884 885 EQUATIONS 886 887 switch HotSide 888 889 case "outer": 890 891 "Energy Balance Outer Stream in counter flow" 892 Details.Q(1:N) = InletOuter.F*(Outer.HeatTransfer.Enth(2:Npoints) - Outer.HeatTransfer.Enth(1:N)); 893 894 "Energy Balance Inner Stream" 895 Details.Q(1:N) = -InletInner.F*(Inner.HeatTransfer.Enth(1:N) - Inner.HeatTransfer.Enth(2:Npoints)); 896 897 "Incremental Duty" 898 Details.Q = Details.Ud*Pi*DoInner*(Lpipe/N)*(Outer.Properties.Average.T - Inner.Properties.Average.T); 899 #Details.Q = 0.6; 900 901 when InletInner.T > InletOuter.T switchto "inner"; 902 903 case "inner": 904 905 "Energy Balance Hot Stream" 906 Details.Q(1:N) = InletInner.F*(Inner.HeatTransfer.Enth(1:N)-Inner.HeatTransfer.Enth(2:Npoints)); 907 908 "Energy Balance Cold Stream in counter flow" 909 Details.Q(1:N) = -InletOuter.F*(Outer.HeatTransfer.Enth(2:Npoints) - Outer.HeatTransfer.Enth(1:N)); 910 911 "Incremental Duty" 912 Details.Q = Details.Ud*Pi*DoInner*(Lpipe/N)*(Inner.Properties.Average.T - Outer.Properties.Average.T); 913 914 when InletInner.T < InletOuter.T switchto "outer"; 915 916 end 917 918 "Enthalpy of Inner Side - Inlet Boundary" 919 Inner.HeatTransfer.Enth(1) = InletInner.h; 920 921 "Enthalpy of inner Side - Outlet Boundary" 922 Inner.HeatTransfer.Enth(Npoints) = OutletInner.h; 923 924 "Temperature of Inner Side - Inlet Boundary" 925 Inner.HeatTransfer.Tlocal(1) = InletInner.T; 926 927 "Temperature of Inner Side - Outlet Boundary" 928 Inner.HeatTransfer.Tlocal(Npoints) = OutletInner.T; 929 930 "Pressure of Inner Side - Inlet Boundary" 931 Inner.PressureDrop.Plocal(1) = InletInner.P; 932 933 "Pressure of Inner Side - Outlet Boundary" 934 Inner.PressureDrop.Plocal(Npoints) = OutletInner.P; 935 936 "Enthalpy of Outer Side - Inlet Boundary" 937 Outer.HeatTransfer.Enth(Npoints) = InletOuter.h; 938 939 "Enthalpy of Outer Side - Outlet Boundary" 940 Outer.HeatTransfer.Enth(1) = OutletOuter.h; 941 942 "Temperature of Outer Side - Inlet Boundary" 943 Outer.HeatTransfer.Tlocal(Npoints) = InletOuter.T; 944 945 "Temperature of Outer Side - Outlet Boundary" 946 Outer.HeatTransfer.Tlocal(1) = OutletOuter.T; 947 948 "Pressure of Outer Side - Inlet Boundary" 949 Outer.PressureDrop.Plocal(Npoints) = InletOuter.P; 950 951 "Pressure of Outer Side - Outlet Boundary" 952 Outer.PressureDrop.Plocal(1) = OutletOuter.P; 953 954 #for i in [1:N] 955 956 #"Outer Pipe Pressure Drop for friction" 957 # Outer.PressureDrop.Pd_fric(i) = (2*Outer.PressureDrop.fi(i)*Lincr(1+N-i)*Outer.Properties.Average.rho(i)*Outer.HeatTransfer.Vmean(i)^2)/(Outer.PressureDrop.Dh*Outer.HeatTransfer.Phi(i)); 958 959 #end 960 961 #"Outer Pipe Pressure Drop for friction" 962 # Outer.PressureDrop.Pd_fric(Npoints) = 0*'kPa'; 963 964 for i in [1:N] 965 966 "Outer Pipe Local Pressure"# FIXME: NOZZLE PRESSURE DROP MUST BE ADDED 967 #Outer.PressureDrop.Plocal(i) = Outer.PressureDrop.Plocal(Npoints) - Outer.PressureDrop.Pd_fric(i+1); 968 Outer.PressureDrop.Plocal(i) = InletOuter.P; 969 970 end 971 972 #"Inner Pipe Pressure Drop for friction" 973 # Inner.PressureDrop.Pd_fric(2:Npoints) = (2*Inner.PressureDrop.fi*Lincr(2:Npoints)*Inner.Properties.Average.rho*Inner.HeatTransfer.Vmean^2)/(DiInner*Inner.HeatTransfer.Phi); 974 975 #"Inner Pipe Pressure Drop for friction" 976 # Inner.PressureDrop.Pd_fric(1) = 0*'kPa'; 977 978 for i in [1:N] 979 980 "Inner Pipe Local Pressure"# FIXME: NOZZLE PRESSURE DROP MUST BE ADDED 981 # Inner.PressureDrop.Plocal(i+1) = Inner.PressureDrop.Plocal(1) - Inner.PressureDrop.Pd_fric(i+1); 982 Inner.PressureDrop.Plocal(i+1) = InletInner.P; 983 984 end 985 986 end 987 988 Model LowerPipe_basic as HairpinIncr_basic 989 990 ATTRIBUTES 991 Pallete = false; 992 Brief = "Incremental Hairpin Heat Exchanger. "; 993 Info = 994 "Incremental approach for Hairpin heat exchanger. "; 995 996 PARAMETERS 997 998 outer PP as Plugin (Brief="External Physical Properties", Type="PP"); 999 outer NComp as Integer (Brief="Number of Components"); 1000 HotSide as Switcher (Brief="Flag for Fluid Alocation ",Valid=["outer","inner"],Default="outer"); 1001 1002 Pi as constant (Brief="Pi Number",Default=3.14159265, Symbol = "\pi"); 1003 outer N as Integer (Brief="Number of zones", Default = 2); 1004 Npoints as Integer (Brief="Number of incremental points", Default = 3); 1005 1006 1007 outer DoInner as length (Brief="Outside Diameter of Inner Pipe",Lower=1e-6); 1008 outer DiInner as length (Brief="Inside Diameter of Inner Pipe",Lower=1e-10); 1009 outer DiOuter as length (Brief="Inside Diameter of Outer pipe",Lower=1e-10); 1010 outer Lpipe as length (Brief="Effective Tube Length of one segment of Pipe",Lower=0.1, Symbol = "L_{pipe}"); 1011 outer Kwall as conductivity (Brief="Tube Wall Material Thermal Conductivity",Default=1.0, Symbol = "K_{wall}"); 1012 outer Rfi as positive (Brief="Inside Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0); 1013 outer Rfo as positive (Brief="Outside Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0); 1014 1015 #Donozzle_Inner as length (Brief="Inner Side Outlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 1016 #Dinozzle_Inner as length (Brief="Inner Side Inlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 1017 1018 #Donozzle_Outer as length (Brief="Outer Side Outlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 1019 #Dinozzle_Outer as length (Brief="Outer Side Inlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 1020 1021 #InnerKinlet as positive (Brief="Inner Side Inlet Nozzle Pressure Loss Coeff",Default=1.1); 1022 #InnerKoutlet as positive (Brief="Inner Side Outlet Nozzle Pressure Loss Coeff",Default=0.7); 1023 1024 #OuterKinlet as positive (Brief="Outer Side Inlet Nozzle Pressure Loss Coeff",Default=1.1); 1025 #OuterKoutlet as positive (Brief="Outer Side Outlet Nozzle Pressure Loss Coeff",Default=0.7); 1026 1027 SET 1028 1029 #"Pi Number" 1030 Pi = 3.14159265; 1031 1032 #"Number of incremental points" 1033 Npoints = N+1; 1034 1035 EQUATIONS 1036 1037 switch HotSide 1038 1039 case "outer": 1040 1041 "Energy Balance Outer Stream in counter flow" 1042 Details.Q(1:N) = InletOuter.F*(Outer.HeatTransfer.Enth(1:N) - Outer.HeatTransfer.Enth(2:Npoints)); 1043 1044 "Energy Balance Inner Stream" 1045 Details.Q(1:N) = -InletInner.F*(Inner.HeatTransfer.Enth(2:Npoints) - Inner.HeatTransfer.Enth(1:N)); 1046 1047 "Incremental Duty" 1048 Details.Q = Details.Ud*Pi*DoInner*(Lpipe/N)*(Outer.Properties.Average.T - Inner.Properties.Average.T); 1049 #Details.Q = 0.6; 1050 1051 when InletInner.T > InletOuter.T switchto "inner"; 1052 1053 case "inner": 1054 1055 "Energy Balance Hot Stream" 1056 Details.Q(1:N) = InletInner.F*(Inner.HeatTransfer.Enth(2:Npoints)-Inner.HeatTransfer.Enth(1:N)); 1057 1058 "Energy Balance Cold Stream in counter flow" 1059 Details.Q(1:N) = -InletOuter.F*(Outer.HeatTransfer.Enth(1:N) - Outer.HeatTransfer.Enth(2:Npoints)); 1060 1061 "Incremental Duty" 1062 Details.Q = Details.Ud*Pi*DoInner*(Lpipe/N)*(Inner.Properties.Average.T - Outer.Properties.Average.T); 1063 1064 when InletInner.T < InletOuter.T switchto "outer"; 1065 1066 end 1067 1068 "Enthalpy of Inner Side - Inlet Boundary" 1069 Outer.HeatTransfer.Enth(1) = InletOuter.h; 1070 1071 "Enthalpy of inner Side - Outlet Boundary" 1072 Outer.HeatTransfer.Enth(Npoints) = OutletOuter.h; 1073 1074 "Temperature of Inner Side - Inlet Boundary" 1075 Outer.HeatTransfer.Tlocal(1) = InletOuter.T; 1076 1077 "Temperature of Inner Side - Outlet Boundary" 1078 Outer.HeatTransfer.Tlocal(Npoints) = OutletOuter.T; 1079 1080 "Pressure of Inner Side - Inlet Boundary" 1081 Outer.PressureDrop.Plocal(1) = InletOuter.P; 1082 1083 "Pressure of Inner Side - Outlet Boundary" 1084 Outer.PressureDrop.Plocal(Npoints) = OutletOuter.P; 1085 1086 "Enthalpy of Outer Side - Inlet Boundary" 1087 Inner.HeatTransfer.Enth(Npoints) = InletInner.h; 1088 1089 "Enthalpy of Outer Side - Outlet Boundary" 1090 Inner.HeatTransfer.Enth(1) = OutletInner.h; 1091 1092 "Temperature of Outer Side - Inlet Boundary" 1093 Inner.HeatTransfer.Tlocal(Npoints) = InletInner.T; 1094 1095 "Temperature of Outer Side - Outlet Boundary" 1096 Inner.HeatTransfer.Tlocal(1) = OutletInner.T; 1097 1098 "Pressure of Outer Side - Inlet Boundary" 1099 Inner.PressureDrop.Plocal(Npoints) = InletInner.P; 1100 1101 "Pressure of Outer Side - Outlet Boundary" 1102 Inner.PressureDrop.Plocal(1) = OutletInner.P; 1103 1104 #for i in [1:N] 1105 1106 #"Outer Pipe Pressure Drop for friction" 1107 # Inner.PressureDrop.Pd_fric(i) = (2*Inner.PressureDrop.fi(i)*Lincr(1+N-i)*Inner.Properties.Average.rho(i)*Inner.HeatTransfer.Vmean(i)^2)/(DiInner*Inner.HeatTransfer.Phi(i)); 1108 1109 #end 1110 1111 #"Outer Pipe Pressure Drop for friction" 1112 #Inner.PressureDrop.Pd_fric(Npoints) = 0*'kPa'; 1113 1114 for i in [1:N] 1115 1116 "Outer Pipe Local Pressure"# FIXME: NOZZLE PRESSURE DROP MUST BE ADDED 1117 #Outer.PressureDrop.Plocal(i) = Outer.PressureDrop.Plocal(Npoints) - Outer.PressureDrop.Pd_fric(i+1); 1118 Inner.PressureDrop.Plocal(i) = InletInner.P; 1119 1120 end 1121 1122 #"Inner Pipe Pressure Drop for friction" 1123 #Outer.PressureDrop.Pd_fric(2:Npoints) = (2*Outer.PressureDrop.fi*Lincr(2:Npoints)*Outer.Properties.Average.rho*Outer.HeatTransfer.Vmean^2)/(Outer.PressureDrop.Dh*Outer.HeatTransfer.Phi); 1124 1125 #"Inner Pipe Pressure Drop for friction" 1126 #Outer.PressureDrop.Pd_fric(1) = 0*'kPa'; 1127 1128 for i in [1:N] 1129 1130 "Inner Pipe Local Pressure"# FIXME: NOZZLE PRESSURE DROP MUST BE ADDED 1131 # Inner.PressureDrop.Plocal(i+1) = Inner.PressureDrop.Plocal(1) - Inner.PressureDrop.Pd_fric(i+1); 1132 Outer.PressureDrop.Plocal(i+1) = InletOuter.P; 1133 1134 end 883 1135 884 1136 end … … 898 1150 outer NComp as Integer (Brief="Number of Components"); 899 1151 N as Integer (Brief="Number of zones", Default = 2); 900 Npoints as Integer (Brief="Number of incremental points", Default = 3); 901 1152 902 1153 903 1154 DoInner as length (Brief="Outside Diameter of Inner Pipe",Lower=1e-6); 904 DiInner as length (Brief="Inside Diameter of Inner Pipe",Lower=1e-10);905 DiOuter as length (Brief="Inside Diameter of Outer pipe",Lower=1e-10);1155 DiInner as length (Brief="Inside Diameter of Inner Pipe",Lower=1e-10); 1156 DiOuter as length (Brief="Inside Diameter of Outer pipe",Lower=1e-10); 906 1157 Lpipe as length (Brief="Effective Tube Length of one segment of Pipe",Lower=0.1, Symbol = "L_{pipe}"); 907 1158 Kwall as conductivity (Brief="Tube Wall Material Thermal Conductivity",Default=1.0, Symbol = "K_{wall}"); 908 Rfi as positive (Brief="Inside Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0); 909 Rfo as positive (Brief="Outside Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0); 910 911 Donozzle_Inner as length (Brief="Inner Side Outlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 912 Dinozzle_Inner as length (Brief="Inner Side Inlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 913 914 Donozzle_Outer as length (Brief="Outer Side Outlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 915 Dinozzle_Outer as length (Brief="Outer Side Inlet Nozzle Diameter",Default = 0.036,Lower=10e-6); 916 917 SET 918 919 #"Number of incremental points" 920 Npoints = N+1; 1159 Rfi as positive (Brief="Inside Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0); 1160 Rfo as positive (Brief="Outside Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0); 1161 921 1162 922 1163 VARIABLES 923 1164 924 UpperPipe as HairpinIncr_basic; 925 LowerPipe as HairpinIncr_basic; 1165 #InnerPdrop as press_delta (Brief="Total Pressure Drop",Default=0.01, Lower=0,DisplayUnit='kPa', Symbol ="\Delta P"); 1166 #OuterPdrop as press_delta (Brief="Total Pressure Drop",Default=0.01, Lower=0,DisplayUnit='kPa', Symbol ="\Delta P"); 1167 A as area (Brief="Total Exchange Surface Area"); 1168 Qtotal as power (Brief="Total Duty", Default=7000, Lower=1e-8, Upper=1e10); 1169 1170 UpperPipe as UpperPipe_basic; 1171 LowerPipe as LowerPipe_basic; 926 1172 927 1173 CONNECTIONS 928 1174 929 UpperPipe.OutletInner to LowerPipe.InletInner; 930 LowerPipe.OutletOuter to UpperPipe.InletOuter; 931 932 end 1175 LowerPipe.OutletInner to UpperPipe.InletInner; 1176 UpperPipe.OutletOuter to LowerPipe.InletOuter; 1177 1178 EQUATIONS 1179 1180 A = LowerPipe.Details.A+UpperPipe.Details.A; 1181 1182 Qtotal = LowerPipe.Details.Qtotal+UpperPipe.Details.Qtotal; 1183 1184 #*OuterPdrop = LowerPipe.Outer.PressureDrop.Pdrop+UpperPipe.Outer.PressureDrop.Pdrop; 1185 1186 #InnerPdrop = LowerPipe.Inner.PressureDrop.Pdrop+UpperPipe.Inner.PressureDrop.Pdrop; 1187 1188 1189 1190 "Lower Pipe Total Pressure Drop Outer Stream" 1191 LowerPipe.Outer.PressureDrop.Pdrop = 0.1;#LowerPipe.Outer.PressureDrop.Pd_fric(1)+LowerPipe.Outer.PressureDrop.Pdnozzle_in; 1192 1193 "Upper Pipe Total Pressure Drop Outer Stream" 1194 UpperPipe.Outer.PressureDrop.Pdrop = 0.1;#UpperPipe.Outer.PressureDrop.Pd_fric(1)+UpperPipe.Outer.PressureDrop.Pdnozzle_out; 1195 1196 "Upper Pipe Total Pressure Drop Inner Stream" 1197 UpperPipe.Inner.PressureDrop.Pdrop = 0.1;#UpperPipe.Inner.PressureDrop.Pd_fric(Npoints)+UpperPipe.Inner.PressureDrop.Pdnozzle_in; 1198 1199 "Lower Pipe Total Pressure Drop Inner Stream" 1200 LowerPipe.Inner.PressureDrop.Pdrop = 0.1;#LowerPipe.Inner.PressureDrop.Pd_fric(Npoints)+LowerPipe.Inner.PressureDrop.Pdnozzle_out; 1201 #* 1202 "Velocity Inner Side Inlet Nozzle" 1203 UpperPipe.Inner.PressureDrop.Vnozzle_in = UpperPipe.Inner.Properties.Inlet.Fw/(UpperPipe.Inner.Properties.Inlet.rho*(0.25*Pi*Dinozzle_Inner^2)); 1204 1205 "Velocity Inner Side Outlet Nozzle" 1206 LowerPipe.Inner.PressureDrop.Vnozzle_out = LowerPipe.Inner.Properties.Outlet.Fw/(LowerPipe.Inner.Properties.Outlet.rho*(0.25*Pi*Donozzle_Inner^2)); 1207 1208 "Velocity Outer Side Inlet Nozzle" 1209 LowerPipe.Outer.PressureDrop.Vnozzle_in = LowerPipe.Outer.Properties.Inlet.Fw/(LowerPipe.Outer.Properties.Inlet.rho*(0.25*Pi*Dinozzle_Outer^2)); 1210 1211 "Velocity Outer Side Outlet Nozzle" 1212 UpperPipe.Outer.PressureDrop.Vnozzle_out = UpperPipe.Outer.Properties.Outlet.Fw/(UpperPipe.Outer.Properties.Outlet.rho*(0.25*Pi*Donozzle_Outer^2)); 1213 1214 "Pressure Drop Inner Side Inlet Nozzle" 1215 UpperPipe.Inner.PressureDrop.Pdnozzle_in = 0.5*InnerKinlet*UpperPipe.Inner.Properties.Inlet.rho*UpperPipe.Inner.PressureDrop.Vnozzle_in^2; 1216 1217 "Pressure Drop Inner Side Outlet Nozzle" 1218 LowerPipe.Inner.PressureDrop.Pdnozzle_out = 0.5*InnerKoutlet*LowerPipe.Inner.Properties.Outlet.rho*LowerPipe.Inner.PressureDrop.Vnozzle_out^2; 1219 1220 "Pressure Drop Outer Side Inlet Nozzle" 1221 LowerPipe.Outer.PressureDrop.Pdnozzle_in = 0.5*OuterKinlet*LowerPipe.Outer.Properties.Inlet.rho*LowerPipe.Outer.PressureDrop.Vnozzle_in^2; 1222 1223 "Pressure Drop Outer Side Outlet Nozzle" 1224 UpperPipe.Outer.PressureDrop.Pdnozzle_out = 0.5*OuterKoutlet*UpperPipe.Outer.Properties.Outlet.rho*UpperPipe.Outer.PressureDrop.Vnozzle_out^2; 1225 1226 "Inner Side Inlet Nozzle rho-V^2" 1227 UpperPipe.Inner.PressureDrop.RVsquare_in = UpperPipe.Inner.Properties.Inlet.rho*(UpperPipe.Inner.PressureDrop.Vnozzle_in)^2; 1228 1229 "Inner Side Outlet Nozzle rho-V^2" 1230 LowerPipe.Inner.PressureDrop.RVsquare_out = LowerPipe.Inner.Properties.Outlet.rho*(LowerPipe.Inner.PressureDrop.Vnozzle_out)^2; 1231 1232 "Outer Side Inlet Nozzle rho-V^2" 1233 LowerPipe.Outer.PressureDrop.RVsquare_in = LowerPipe.Outer.Properties.Inlet.rho*(LowerPipe.Outer.PressureDrop.Vnozzle_in)^2; 1234 1235 "Outer Side Outlet Nozzle rho-V^2" 1236 UpperPipe.Outer.PressureDrop.RVsquare_out = UpperPipe.Outer.Properties.Outlet.rho*(UpperPipe.Outer.PressureDrop.Vnozzle_out)^2; 1237 1238 1239 1240 "Velocity Inner Side Inlet Nozzle" 1241 UpperPipe.Inner.PressureDrop.Vnozzle_out = 0; 1242 1243 "Velocity Inner Side Outlet Nozzle" 1244 LowerPipe.Inner.PressureDrop.Vnozzle_in = 0; 1245 1246 "Velocity Outer Side Inlet Nozzle" 1247 LowerPipe.Outer.PressureDrop.Vnozzle_out = 0; 1248 1249 "Velocity Outer Side Outlet Nozzle" 1250 UpperPipe.Outer.PressureDrop.Vnozzle_in = 0; 1251 1252 "Pressure Drop Inner Side Inlet Nozzle" 1253 UpperPipe.Inner.PressureDrop.Pdnozzle_out= 0; 1254 1255 "Pressure Drop Inner Side Outlet Nozzle" 1256 LowerPipe.Inner.PressureDrop.Pdnozzle_in = 0; 1257 1258 "Pressure Drop Outer Side Inlet Nozzle" 1259 LowerPipe.Outer.PressureDrop.Pdnozzle_out = 0; 1260 1261 "Pressure Drop Outer Side Outlet Nozzle" 1262 UpperPipe.Outer.PressureDrop.Pdnozzle_in =0; 1263 1264 "Inner Side Inlet Nozzle rho-V^2" 1265 UpperPipe.Inner.PressureDrop.RVsquare_out= 0; 1266 1267 "Inner Side Outlet Nozzle rho-V^2" 1268 LowerPipe.Inner.PressureDrop.RVsquare_in = 0; 1269 1270 "Outer Side Inlet Nozzle rho-V^2" 1271 LowerPipe.Outer.PressureDrop.RVsquare_out = 0; 1272 1273 "Outer Side Outlet Nozzle rho-V^2" 1274 UpperPipe.Outer.PressureDrop.RVsquare_in= 0;*# 1275 end -
branches/tests/sample/heat_exchangers/GuessHairpin_Incremental.rlt
r445 r447 14 14 0 0 15 15 16 1 516 12 17 17 N 18 1 1 1 2 0 19 20 0 21 Npoints 22 1 1 1 3 0 18 1 1 1 20 0 23 19 24 20 0 … … 48 44 0 49 45 Rfo 50 1 1 1 0 0 51 52 0 53 Donozzle_Inner 54 1 1 1 0.03663 0 55 56 0 57 Dinozzle_Inner 58 1 1 1 0.03663 0 59 60 0 61 Donozzle_Outer 62 1 1 1 0.04272 0 63 64 0 65 Dinozzle_Outer 66 1 1 1 0.04272 0 46 1 1 1 0.18 0 47 48 0 49 A 50 1 1 1 2.38409 0 51 52 0 53 Qtotal 54 1 1 1 39.4363 0 67 55 68 56 0 69 57 UpperPipe 70 58 0 1 59 UpperPipe_basic 60 0 1 71 61 HairpinIncr_basic 72 62 0 0 73 63 74 1 564 11 75 65 Npoints 76 1 1 1 3066 1 1 1 21 0 77 67 78 68 0 … … 83 73 Pi 84 74 1 1 1 3.14159 0 85 86 087 InnerKinlet88 1 1 1 1.1 089 90 091 InnerKoutlet92 1 1 1 0.7 093 94 095 OuterKinlet96 1 1 1 1.1 097 98 099 OuterKoutlet100 1 1 1 0.7 0101 75 102 76 0 … … 112 86 0 113 87 T 114 1 1 1 2 88.71088 1 1 1 299.159 0 115 89 116 90 0 … … 124 98 0 125 99 h 126 1 1 1 -3 39240100 1 1 1 -32707.8 0 127 101 128 102 0 … … 144 118 0 145 119 T 146 1 1 1 3 29.3520120 1 1 1 338.71 0 147 121 148 122 0 … … 156 130 0 157 131 h 158 1 1 1 -4 7734.70132 1 1 1 -46122.3 0 159 133 160 134 0 … … 178 152 0 179 153 T 180 1 1 1 299.7740154 1 1 1 309.372 0 181 155 182 156 0 … … 190 164 0 191 165 h 192 1 1 1 -3 2634.90166 1 1 1 -31479.1 0 193 167 194 168 0 … … 198 172 0 199 173 200 2 174 3 201 175 x 202 176 1 2 1 0 1 1 0 … … 205 179 y 206 180 1 2 1 0 1 1 0 181 182 0 183 s 184 1 1 1 -184.77 0 207 185 208 186 0 … … 222 200 0 223 201 T 224 1 1 1 3 19.9760202 1 1 1 329.944 0 225 203 226 204 0 … … 234 212 0 235 213 h 236 1 1 1 -4 9320.50214 1 1 1 -47633.7 0 237 215 238 216 0 … … 242 220 0 243 221 244 2 222 3 245 223 x 246 224 1 2 1 1 1 0 0 … … 249 227 y 250 228 1 2 1 1 1 0 0 229 230 0 231 s 232 1 1 1 -198.233 0 251 233 252 234 0 … … 264 246 0 265 247 Q 266 1 2 1 10.3461 1 10.44740248 1 20 1 0.9869 1 0.987384 1 0.987856 1 0.988318 1 0.988769 1 0.989209 1 0.989638 1 0.990058 1 0.990467 1 0.990866 1 0.991255 1 0.991634 1 0.992004 1 0.992364 1 0.992714 1 0.993055 1 0.993387 1 0.99371 1 0.994024 1 0.994329 0 267 249 268 250 0 269 251 Qtotal 270 1 1 1 20.79350252 1 1 1 19.8179 0 271 253 272 254 0 273 255 Uc 274 1 2 1 0.641149 1 0.6691940256 1 1 1 0.709091 0 275 257 276 258 0 277 259 Ud 278 1 2 1 0.562996 1 0.5845050260 1 20 1 0.538534 1 0.540134 1 0.541729 1 0.543318 1 0.544901 1 0.546479 1 0.548051 1 0.549618 1 0.551179 1 0.552734 1 0.554284 1 0.555828 1 0.557366 1 0.558899 1 0.560426 1 0.561947 1 0.563463 1 0.564973 1 0.566477 1 0.567976 0 279 261 280 262 0 … … 302 284 0 303 285 Tlocal 304 1 3 1 288.71 1 294.265 1 299.7740286 1 21 1 299.159 1 299.675 1 300.191 1 300.706 1 301.221 1 301.735 1 302.249 1 302.761 1 303.274 1 303.785 1 304.296 1 304.807 1 305.316 1 305.826 1 306.334 1 306.842 1 307.349 1 307.856 1 308.362 1 308.867 1 309.372 0 305 287 306 288 0 307 289 Re 308 1 2 1 65081.6 1 70354.1 0290 1 20 1 72709.7 1 73222.4 1 73736.6 1 74252.1 1 74769 1 75287.3 1 75806.9 1 76327.8 1 76850.1 1 77373.7 1 77898.6 1 78424.8 1 78952.3 1 79481.1 1 80011.1 1 80542.4 1 81075 1 81608.8 1 82143.8 1 82680.1 0 309 291 310 292 0 311 293 hcoeff 312 1 2 1 1586.7 1 1643.410294 1 20 1 1669.53 1 1674.8 1 1680.05 1 1685.3 1 1690.54 1 1695.77 1 1700.99 1 1706.2 1 1711.41 1 1716.6 1 1721.79 1 1726.96 1 1732.13 1 1737.28 1 1742.43 1 1747.57 1 1752.69 1 1757.81 1 1762.92 1 1768.02 0 313 295 314 296 0 315 297 fi 316 1 2 1 0.0197233 1 0.0193866 0298 1 20 1 0.0192468 1 0.0192172 1 0.0191877 1 0.0191585 1 0.0191295 1 0.0191006 1 0.0190719 1 0.0190434 1 0.0190151 1 0.018987 1 0.0189591 1 0.0189313 1 0.0189038 1 0.0188764 1 0.0188492 1 0.0188221 1 0.0187952 1 0.0187685 1 0.018742 1 0.0187156 0 317 299 318 300 0 319 301 Nu 320 1 2 1 367.666 1 384.6190302 1 20 1 392.051 1 393.658 1 395.265 1 396.873 1 398.481 1 400.09 1 401.7 1 403.31 1 404.92 1 406.531 1 408.142 1 409.753 1 411.365 1 412.978 1 414.59 1 416.203 1 417.817 1 419.43 1 421.044 1 422.658 0 321 303 322 304 0 323 305 PR 324 1 2 1 7.07898 1 6.7221 0306 1 20 1 6.57831 1 6.54815 1 6.5183 1 6.48877 1 6.45953 1 6.43059 1 6.40196 1 6.37361 1 6.34555 1 6.31778 1 6.29029 1 6.26308 1 6.23614 1 6.20948 1 6.18308 1 6.15695 1 6.13108 1 6.10547 1 6.08011 1 6.05501 0 325 307 326 308 0 327 309 Phi 328 1 2 1 1.02993 1 1.028160310 1 20 1 1.02843 1 1.02828 1 1.02812 1 1.02797 1 1.02782 1 1.02767 1 1.02752 1 1.02737 1 1.02722 1 1.02707 1 1.02693 1 1.02679 1 1.02664 1 1.0265 1 1.02636 1 1.02623 1 1.02609 1 1.02595 1 1.02582 1 1.02568 0 329 311 330 312 0 331 313 Vmean 332 1 2 1 1.44866 1 1.45637 0314 1 20 1 1.4598 1 1.46054 1 1.46129 1 1.46203 1 1.46278 1 1.46353 1 1.46428 1 1.46503 1 1.46579 1 1.46654 1 1.4673 1 1.46806 1 1.46882 1 1.46958 1 1.47034 1 1.4711 1 1.47187 1 1.47264 1 1.4734 1 1.47417 0 333 315 334 316 0 335 317 Enth 336 1 3 1 -33924 1 -33282.6 1 -32634.90318 1 21 1 -32707.8 1 -32646.6 1 -32585.4 1 -32524.1 1 -32462.8 1 -32401.5 1 -32340.2 1 -32278.9 1 -32217.5 1 -32156.1 1 -32094.7 1 -32033.2 1 -31971.7 1 -31910.2 1 -31848.7 1 -31787.2 1 -31725.6 1 -31664 1 -31602.4 1 -31540.8 1 -31479.1 0 337 319 338 320 0 … … 344 326 0 0 345 327 346 12 328 4 347 329 Dh 348 330 1 1 1 0.03505 0 … … 350 332 0 351 333 Plocal 352 1 3 1 413.685 1 413.685 1 413.685 0 353 354 0 355 Pdrop 356 1 1 1 0 0 357 358 0 359 Pd_fric 360 1 3 1 0 1 2.83536 1 5.63394 0 334 1 21 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 0 361 335 362 336 0 363 337 fi 364 1 2 1 0.00601161 1 0.005930760338 1 20 1 0.00589737 1 0.00589031 1 0.00588329 1 0.00587633 1 0.00586941 1 0.00586255 1 0.00585573 1 0.00584897 1 0.00584225 1 0.00583558 1 0.00582896 1 0.00582238 1 0.00581585 1 0.00580937 1 0.00580293 1 0.00579654 1 0.00579019 1 0.00578389 1 0.00577763 1 0.00577141 0 365 339 366 340 0 367 341 Re 368 1 2 1 65081.6 1 70354.1 0 369 370 0 371 Pdnozzle_in 372 1 1 1 0.869965 0 373 374 0 375 Pdnozzle_out 376 1 1 1 0.559529 0 377 378 0 379 Vnozzle_in 380 1 1 1 1.32292 0 381 382 0 383 Vnozzle_out 384 1 1 1 1.33705 0 385 386 0 387 RVsquare_in 388 1 1 1 1581.75 0 389 390 0 391 RVsquare_out 392 1 1 1 1598.65 0 342 1 20 1 72709.7 1 73222.4 1 73736.6 1 74252.1 1 74769 1 75287.3 1 75806.9 1 76327.8 1 76850.1 1 77373.7 1 77898.6 1 78424.8 1 78952.3 1 79481.1 1 80011.1 1 80542.4 1 81075 1 81608.8 1 82143.8 1 82680.1 0 393 343 394 344 0 … … 412 362 0 413 363 rho 414 1 1 1 903.8040364 1 1 1 894.792 0 415 365 416 366 0 … … 428 378 0 429 379 T 430 1 2 1 291.487 1 297.0190431 432 0 433 P 434 1 2 1 413.685 1 413.685 0380 1 20 1 299.417 1 299.933 1 300.449 1 300.964 1 301.478 1 301.992 1 302.505 1 303.018 1 303.529 1 304.041 1 304.551 1 305.062 1 305.571 1 306.08 1 306.588 1 307.096 1 307.603 1 308.109 1 308.615 1 309.12 0 381 382 0 383 P 384 1 20 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 0 435 385 436 386 0 437 387 rho 438 1 2 1 901.445 1 896.6680388 1 20 1 894.565 1 894.109 1 893.653 1 893.197 1 892.74 1 892.283 1 891.826 1 891.368 1 890.909 1 890.451 1 889.991 1 889.532 1 889.072 1 888.612 1 888.151 1 887.69 1 887.228 1 886.766 1 886.304 1 885.841 0 439 389 440 390 0 441 391 Mu 442 1 2 1 0.70329 1 0.6505830392 1 20 1 0.629507 1 0.625098 1 0.62074 1 0.61643 1 0.612168 1 0.607954 1 0.603787 1 0.599666 1 0.595591 1 0.59156 1 0.587574 1 0.583632 1 0.579732 1 0.575875 1 0.572061 1 0.568287 1 0.564554 1 0.560861 1 0.557208 1 0.553594 0 443 393 444 394 0 445 395 Cp 446 1 2 1 115.474 1 117.563 0396 1 20 1 118.469 1 118.663 1 118.858 1 119.052 1 119.246 1 119.44 1 119.634 1 119.827 1 120.021 1 120.213 1 120.406 1 120.599 1 120.791 1 120.983 1 121.175 1 121.366 1 121.557 1 121.748 1 121.939 1 122.13 0 447 397 448 398 0 449 399 K 450 1 2 1 0.146866 1 0.1456620400 1 20 1 0.145132 1 0.145018 1 0.144903 1 0.144788 1 0.144674 1 0.144559 1 0.144444 1 0.144329 1 0.144214 1 0.144099 1 0.143984 1 0.143869 1 0.143754 1 0.143639 1 0.143523 1 0.143408 1 0.143293 1 0.143177 1 0.143062 1 0.142946 0 451 401 452 402 0 … … 464 414 0 465 415 rho 466 1 1 1 8 94.250416 1 1 1 885.61 0 467 417 468 418 0 … … 476 426 2 477 427 Mu 478 1 2 1 0.569716 1 0.5335320428 1 20 1 0.515262 1 0.512209 1 0.509185 1 0.50619 1 0.503222 1 0.500283 1 0.497371 1 0.494486 1 0.491628 1 0.488797 1 0.485991 1 0.483212 1 0.480459 1 0.477731 1 0.475028 1 0.472349 1 0.469696 1 0.467066 1 0.464461 1 0.461879 0 479 429 480 430 0 481 431 Twall 482 1 2 1 306.903 1 312.0140432 1 20 1 314.79 1 315.269 1 315.746 1 316.224 1 316.701 1 317.177 1 317.653 1 318.129 1 318.604 1 319.079 1 319.554 1 320.028 1 320.502 1 320.975 1 321.448 1 321.92 1 322.392 1 322.864 1 323.335 1 323.806 0 483 433 484 434 0 … … 510 460 0 511 461 Tlocal 512 1 3 1 319.976 1 324.663 1 329.3520462 1 21 1 329.944 1 330.384 1 330.824 1 331.264 1 331.703 1 332.143 1 332.582 1 333.021 1 333.46 1 333.899 1 334.337 1 334.775 1 335.213 1 335.651 1 336.089 1 336.526 1 336.964 1 337.401 1 337.837 1 338.274 1 338.71 0 513 463 514 464 0 515 465 Re 516 1 2 1 17998.5 1 20049.20466 1 20 1 21494.1 1 21699.4 1 21905.6 1 22112.7 1 22320.7 1 22529.5 1 22739.1 1 22949.6 1 23161 1 23373.2 1 23586.1 1 23799.9 1 24014.5 1 24229.9 1 24446.1 1 24663.1 1 24880.8 1 25099.3 1 25318.6 1 25538.6 0 517 467 518 468 0 519 469 hcoeff 520 1 2 1 1363.68 1 1440.70470 1 20 1 1488.98 1 1496.19 1 1503.39 1 1510.59 1 1517.78 1 1524.97 1 1532.15 1 1539.32 1 1546.48 1 1553.64 1 1560.78 1 1567.93 1 1575.06 1 1582.18 1 1589.3 1 1596.41 1 1603.51 1 1610.6 1 1617.68 1 1624.75 0 521 471 522 472 0 523 473 fi 524 1 2 1 0.0268346 1 0.02610020474 1 20 1 0.0256425 1 0.0255809 1 0.0255198 1 0.0254593 1 0.0253993 1 0.0253398 1 0.0252808 1 0.0252224 1 0.0251644 1 0.025107 1 0.02505 1 0.0249936 1 0.0249376 1 0.0248821 1 0.0248271 1 0.0247725 1 0.0247184 1 0.0246648 1 0.0246116 1 0.0245589 0 525 475 526 476 0 527 477 Nu 528 1 2 1 188.498 1 199.1530478 1 20 1 206.367 1 207.374 1 208.381 1 209.389 1 210.396 1 211.403 1 212.41 1 213.417 1 214.424 1 215.431 1 216.437 1 217.444 1 218.45 1 219.456 1 220.461 1 221.467 1 222.472 1 223.476 1 224.481 1 225.484 0 529 479 530 480 0 531 481 PR 532 1 2 1 20.8573 1 18.98630482 1 20 1 17.8757 1 17.7295 1 17.5854 1 17.4432 1 17.3031 1 17.1648 1 17.0285 1 16.8941 1 16.7615 1 16.6307 1 16.5017 1 16.3745 1 16.249 1 16.1252 1 16.003 1 15.8825 1 15.7637 1 15.6464 1 15.5306 1 15.4165 0 533 483 534 484 0 535 485 Phi 536 1 2 1 0.945933 1 0.9500990486 1 20 1 0.950475 1 0.950839 1 0.951199 1 0.951556 1 0.95191 1 0.952261 1 0.952609 1 0.952953 1 0.953295 1 0.953633 1 0.953968 1 0.954301 1 0.95463 1 0.954957 1 0.95528 1 0.955601 1 0.955918 1 0.956233 1 0.956545 1 0.956854 0 537 487 538 488 0 539 489 Vmean 540 1 2 1 1.75859 1 1.763520490 1 20 1 1.7669 1 1.76737 1 1.76785 1 1.76833 1 1.7688 1 1.76928 1 1.76976 1 1.77024 1 1.77072 1 1.7712 1 1.77169 1 1.77217 1 1.77265 1 1.77314 1 1.77362 1 1.77411 1 1.77459 1 1.77508 1 1.77557 1 1.77606 0 541 491 542 492 0 543 493 Enth 544 1 3 1 -49320.5 1 -48531.5 1 -47734.70494 1 21 1 -47633.7 1 -47558.5 1 -47483.2 1 -47407.8 1 -47332.5 1 -47257.1 1 -47181.6 1 -47106.1 1 -47030.6 1 -46955.1 1 -46879.5 1 -46803.9 1 -46728.3 1 -46652.6 1 -46577 1 -46501.3 1 -46425.5 1 -46349.8 1 -46274 1 -46198.2 1 -46122.3 0 545 495 546 496 0 … … 552 502 0 0 553 503 554 12 504 4 555 505 Dh 556 506 1 1 1 0.01034 0 … … 558 508 0 559 509 Plocal 560 1 3 1 413.685 1 413.685 1 413.685 0 561 562 0 563 Pdrop 564 1 1 1 0 0 565 566 0 567 Pd_fric 568 1 3 1 24.554 1 0 1 0 0 510 1 21 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 0 569 511 570 512 0 571 513 fi 572 1 2 1 0.00955251 1 0.009284360514 1 20 1 0.00911774 1 0.00909535 1 0.00907317 1 0.00905119 1 0.00902941 1 0.00900782 1 0.00898644 1 0.00896525 1 0.00894424 1 0.00892343 1 0.00890281 1 0.00888237 1 0.00886212 1 0.00884205 1 0.00882215 1 0.00880244 1 0.0087829 1 0.00876353 1 0.00874434 1 0.00872532 0 573 515 574 516 0 575 517 Re 576 1 2 1 8016.26 1 8929.56 0 577 578 0 579 Pdnozzle_in 580 1 1 1 0.443799 0 581 582 0 583 Pdnozzle_out 584 1 1 1 0.280841 0 585 586 0 587 Vnozzle_in 588 1 1 1 0.947156 0 589 590 0 591 Vnozzle_out 592 1 1 1 0.941868 0 593 594 0 595 RVsquare_in 596 1 1 1 806.908 0 597 598 0 599 RVsquare_out 600 1 1 1 802.403 0 518 1 20 1 9573.11 1 9664.56 1 9756.41 1 9848.64 1 9941.26 1 10034.3 1 10127.6 1 10221.4 1 10315.5 1 10410 1 10504.9 1 10600.1 1 10695.7 1 10791.6 1 10887.9 1 10984.5 1 11081.5 1 11178.8 1 11276.5 1 11374.5 0 601 519 602 520 0 … … 620 538 0 621 539 rho 622 1 1 1 89 9.4580540 1 1 1 894.254 0 623 541 624 542 0 … … 636 554 0 637 555 T 638 1 2 1 322.32 1 327.0080639 640 0 641 P 642 1 2 1 413.685 1 413.685 0556 1 20 1 330.164 1 330.604 1 331.044 1 331.483 1 331.923 1 332.362 1 332.802 1 333.241 1 333.679 1 334.118 1 334.556 1 334.994 1 335.432 1 335.87 1 336.308 1 336.745 1 337.182 1 337.619 1 338.055 1 338.492 0 557 558 0 559 P 560 1 20 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 0 643 561 644 562 0 645 563 rho 646 1 2 1 903.26 1 900.7350564 1 20 1 899.013 1 898.771 1 898.529 1 898.287 1 898.045 1 897.802 1 897.559 1 897.316 1 897.072 1 896.828 1 896.584 1 896.34 1 896.096 1 895.851 1 895.606 1 895.361 1 895.115 1 894.869 1 894.623 1 894.377 0 647 565 648 566 0 649 567 Mu 650 1 2 1 2.04892 1 1.839360568 1 20 1 1.71572 1 1.69948 1 1.68348 1 1.66772 1 1.65218 1 1.63687 1 1.62177 1 1.6069 1 1.59224 1 1.57778 1 1.56353 1 1.54949 1 1.53564 1 1.52199 1 1.50853 1 1.49526 1 1.48217 1 1.46927 1 1.45655 1 1.444 0 651 569 652 570 0 653 571 Cp 654 1 2 1 168.324 1 169.9240572 1 20 1 170.999 1 171.148 1 171.298 1 171.447 1 171.597 1 171.746 1 171.895 1 172.044 1 172.193 1 172.342 1 172.491 1 172.639 1 172.788 1 172.936 1 173.084 1 173.232 1 173.38 1 173.528 1 173.676 1 173.823 0 655 573 656 574 0 657 575 K 658 1 2 1 0.177555 1 0.176768 0576 1 20 1 0.176236 1 0.176162 1 0.176088 1 0.176014 1 0.175939 1 0.175865 1 0.175791 1 0.175717 1 0.175643 1 0.175568 1 0.175494 1 0.17542 1 0.175346 1 0.175272 1 0.175198 1 0.175124 1 0.17505 1 0.174976 1 0.174902 1 0.174828 0 659 577 660 578 0 … … 672 590 0 673 591 rho 674 1 1 1 904.5080592 1 1 1 899.134 0 675 593 676 594 0 … … 684 602 2 685 603 Mu 686 1 2 1 3.04756 1 2.65131 0604 1 20 1 2.46611 1 2.43611 1 2.40665 1 2.37773 1 2.34932 1 2.32143 1 2.29404 1 2.26713 1 2.2407 1 2.21474 1 2.18924 1 2.16418 1 2.13956 1 2.11537 1 2.0916 1 2.06823 1 2.04527 1 2.0227 1 2.00052 1 1.97871 0 687 605 688 606 0 689 607 Twall 690 1 2 1 306.903 1 312.0140608 1 20 1 314.79 1 315.269 1 315.746 1 316.224 1 316.701 1 317.177 1 317.653 1 318.129 1 318.604 1 319.079 1 319.554 1 320.028 1 320.502 1 320.975 1 321.448 1 321.92 1 322.392 1 322.864 1 323.335 1 323.806 0 691 609 692 610 0 … … 698 616 0 699 617 Lincr 700 1 3 1 0 1 4.5 1 9 0 618 1 21 1 0 1 0.45 1 0.9 1 1.35 1 1.8 1 2.25 1 2.7 1 3.15 1 3.6 1 4.05 1 4.5 1 4.95 1 5.4 1 5.85 1 6.3 1 6.75 1 7.2 1 7.65 1 8.1 1 8.55 1 9 0 619 620 0 621 622 2 623 Pi 624 1 1 1 3.14159 0 625 626 0 627 Npoints 628 1 1 1 21 0 701 629 702 630 0 … … 705 633 LowerPipe 706 634 0 1 635 LowerPipe_basic 636 0 1 707 637 HairpinIncr_basic 708 638 0 0 709 639 710 1 5640 11 711 641 Npoints 712 1 1 1 30642 1 1 1 21 0 713 643 714 644 0 … … 719 649 Pi 720 650 1 1 1 3.14159 0 721 722 0723 InnerKinlet724 1 1 1 1.1 0725 726 0727 InnerKoutlet728 1 1 1 0.7 0729 730 0731 OuterKinlet732 1 1 1 1.1 0733 734 0735 OuterKoutlet736 1 1 1 0.7 0737 651 738 652 0 … … 748 662 0 749 663 T 750 1 1 1 2 99.7740664 1 1 1 288.71 0 751 665 752 666 0 … … 760 674 0 761 675 h 762 1 1 1 -3 2634.90676 1 1 1 -33924 0 763 677 764 678 0 … … 780 694 0 781 695 T 782 1 1 1 3 38.710696 1 1 1 329.944 0 783 697 784 698 0 … … 792 706 0 793 707 h 794 1 1 1 -4 6122.30708 1 1 1 -47633.7 0 795 709 796 710 0 … … 814 728 0 815 729 T 816 1 1 1 310.6370730 1 1 1 299.159 0 817 731 818 732 0 … … 826 740 0 827 741 h 828 1 1 1 -3 1324.20742 1 1 1 -32707.8 0 829 743 830 744 0 … … 834 748 0 835 749 836 2 750 3 837 751 x 838 752 1 2 1 0 1 1 0 … … 841 755 y 842 756 1 2 1 0 1 1 0 757 758 0 759 s 760 1 1 1 -188.808 0 843 761 844 762 0 … … 858 776 0 859 777 T 860 1 1 1 32 9.352 0778 1 1 1 321.112 0 861 779 862 780 0 … … 870 788 0 871 789 h 872 1 1 1 -4 7734.70790 1 1 1 -49129.9 0 873 791 874 792 0 … … 878 796 0 879 797 880 2 798 3 881 799 x 882 800 1 2 1 1 1 0 0 … … 885 803 y 886 804 1 2 1 1 1 0 0 805 806 0 807 s 808 1 1 1 -202.83 0 887 809 888 810 0 … … 900 822 0 901 823 Q 902 1 2 1 10.5342 1 10.60780824 1 20 1 0.986406 1 0.9859 1 0.985383 1 0.984854 1 0.984314 1 0.983761 1 0.983197 1 0.982621 1 0.982032 1 0.981432 1 0.980818 1 0.980192 1 0.979554 1 0.978902 1 0.978238 1 0.97756 1 0.97687 1 0.976165 1 0.975448 1 0.974716 0 903 825 904 826 0 905 827 Qtotal 906 1 1 1 21.1420828 1 1 1 19.6184 0 907 829 908 830 0 909 831 Uc 910 1 2 1 0.696807 1 0.7239250832 1 1 1 0.657244 0 911 833 912 834 0 913 835 Ud 914 1 2 1 0.605462 1 0.6258320836 1 20 1 0.536928 1 0.535317 1 0.5337 1 0.532077 1 0.530449 1 0.528815 1 0.527176 1 0.525531 1 0.523881 1 0.522225 1 0.520564 1 0.518897 1 0.517225 1 0.515548 1 0.513865 1 0.512176 1 0.510483 1 0.508784 1 0.50708 1 0.50537 0 915 837 916 838 0 … … 938 860 0 939 861 Tlocal 940 1 3 1 299.774 1 305.233 1 310.6370862 1 21 1 299.159 1 298.642 1 298.124 1 297.606 1 297.087 1 296.568 1 296.048 1 295.527 1 295.006 1 294.485 1 293.962 1 293.44 1 292.916 1 292.392 1 291.868 1 291.343 1 290.817 1 290.291 1 289.765 1 289.238 1 288.71 0 941 863 942 864 0 943 865 Re 944 1 2 1 75806.4 1 81427.20866 1 20 1 72198.3 1 71688.3 1 71179.8 1 70672.7 1 70167 1 69662.7 1 69160 1 68658.7 1 68158.9 1 67660.5 1 67163.7 1 66668.4 1 66174.6 1 65682.3 1 65191.6 1 64702.4 1 64214.8 1 63728.8 1 63244.3 1 62761.5 0 945 867 946 868 0 947 869 hcoeff 948 1 2 1 1699.37 1 1754.470870 1 20 1 1664.26 1 1658.97 1 1653.68 1 1648.38 1 1643.07 1 1637.75 1 1632.43 1 1627.1 1 1621.75 1 1616.4 1 1611.05 1 1605.68 1 1600.31 1 1594.93 1 1589.54 1 1584.14 1 1578.74 1 1573.33 1 1567.91 1 1562.49 0 949 871 950 872 0 951 873 fi 952 1 2 1 0.019072 1 0.01877760874 1 20 1 0.0192766 1 0.0193067 1 0.0193369 1 0.0193673 1 0.0193979 1 0.0194288 1 0.0194598 1 0.0194911 1 0.0195226 1 0.0195542 1 0.0195861 1 0.0196182 1 0.0196506 1 0.0196831 1 0.0197159 1 0.0197489 1 0.0197821 1 0.0198156 1 0.0198493 1 0.0198832 0 953 875 954 876 0 955 877 Nu 956 1 2 1 401.697 1 418.880878 1 20 1 390.444 1 388.839 1 387.233 1 385.629 1 384.025 1 382.422 1 380.819 1 379.217 1 377.616 1 376.016 1 374.416 1 372.817 1 371.219 1 369.621 1 368.025 1 366.429 1 364.834 1 363.241 1 361.648 1 360.056 0 957 879 958 880 0 959 881 PR 960 1 2 1 6.40195 1 6.114090882 1 20 1 6.60879 1 6.63958 1 6.6707 1 6.70215 1 6.73393 1 6.76604 1 6.7985 1 6.83131 1 6.86446 1 6.89797 1 6.93184 1 6.96607 1 7.00067 1 7.03564 1 7.07099 1 7.10673 1 7.14285 1 7.17937 1 7.21629 1 7.25361 0 961 883 962 884 0 963 885 Phi 964 1 2 1 1.02654 1 1.02506 0886 1 20 1 1.02859 1 1.02875 1 1.02891 1 1.02907 1 1.02923 1 1.0294 1 1.02957 1 1.02973 1 1.0299 1 1.03007 1 1.03024 1 1.03042 1 1.03059 1 1.03077 1 1.03095 1 1.03113 1 1.03131 1 1.03149 1 1.03167 1 1.03186 0 965 887 966 888 0 967 889 Vmean 968 1 2 1 1.46428 1 1.472370890 1 20 1 1.45906 1 1.45831 1 1.45758 1 1.45684 1 1.4561 1 1.45537 1 1.45463 1 1.4539 1 1.45317 1 1.45244 1 1.45171 1 1.45099 1 1.45026 1 1.44954 1 1.44882 1 1.4481 1 1.44738 1 1.44666 1 1.44595 1 1.44523 0 969 891 970 892 0 971 893 Enth 972 1 3 1 -32634.9 1 -31981.8 1 -31324.20894 1 21 1 -32707.8 1 -32768.9 1 -32830 1 -32891.1 1 -32952.2 1 -33013.2 1 -33074.2 1 -33135.1 1 -33196.1 1 -33256.9 1 -33317.8 1 -33378.6 1 -33439.4 1 -33500.1 1 -33560.8 1 -33621.4 1 -33682 1 -33742.6 1 -33803.1 1 -33863.6 1 -33924 0 973 895 974 896 0 … … 980 902 0 0 981 903 982 12 904 4 983 905 Dh 984 906 1 1 1 0.03505 0 … … 986 908 0 987 909 Plocal 988 1 3 1 413.685 1 413.685 1 413.685 0 989 990 0 991 Pdrop 992 1 1 1 0 0 993 994 0 995 Pd_fric 996 1 3 1 0 1 2.80084 1 5.57363 0 910 1 21 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 0 997 911 998 912 0 999 913 fi 1000 1 2 1 0.00585574 1 0.005786020914 1 20 1 0.00590449 1 0.00591166 1 0.00591888 1 0.00592615 1 0.00593348 1 0.00594086 1 0.0059483 1 0.00595579 1 0.00596334 1 0.00597094 1 0.00597861 1 0.00598632 1 0.0059941 1 0.00600193 1 0.00600983 1 0.00601778 1 0.00602579 1 0.00603386 1 0.006042 1 0.00605019 0 1001 915 1002 916 0 1003 917 Re 1004 1 2 1 75806.4 1 81427.2 0 1005 1006 0 1007 Pdnozzle_in 1008 1 1 1 0.879259 0 1009 1010 0 1011 Pdnozzle_out 1012 1 1 1 0.565731 0 1013 1014 0 1015 Vnozzle_in 1016 1 1 1 1.33705 0 1017 1018 0 1019 Vnozzle_out 1020 1 1 1 1.35187 0 1021 1022 0 1023 RVsquare_in 1024 1 1 1 1598.65 0 1025 1026 0 1027 RVsquare_out 1028 1 1 1 1616.38 0 918 1 20 1 72198.3 1 71688.3 1 71179.8 1 70672.7 1 70167 1 69662.7 1 69160 1 68658.7 1 68158.9 1 67660.5 1 67163.7 1 66668.4 1 66174.6 1 65682.3 1 65191.6 1 64702.4 1 64214.8 1 63728.8 1 63244.3 1 62761.5 0 1029 919 1030 920 0 … … 1048 938 0 1049 939 rho 1050 1 1 1 894.250940 1 1 1 903.804 0 1051 941 1052 942 0 … … 1064 954 0 1065 955 T 1066 1 2 1 302.503 1 307.93501067 1068 0 1069 P 1070 1 2 1 413.685 1 413.685 0956 1 20 1 298.9 1 298.383 1 297.865 1 297.347 1 296.828 1 296.308 1 295.788 1 295.267 1 294.745 1 294.224 1 293.701 1 293.178 1 292.654 1 292.13 1 291.605 1 291.08 1 290.554 1 290.028 1 289.501 1 288.974 0 957 958 0 959 P 960 1 20 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 0 1071 961 1072 962 0 1073 963 rho 1074 1 2 1 891.827 1 886.9250964 1 20 1 895.02 1 895.474 1 895.929 1 896.382 1 896.836 1 897.289 1 897.741 1 898.193 1 898.644 1 899.096 1 899.546 1 899.996 1 900.446 1 900.895 1 901.344 1 901.792 1 902.24 1 902.688 1 903.134 1 903.581 0 1075 965 1076 966 0 1077 967 Mu 1078 1 2 1 0.603791 1 0.5621120968 1 20 1 0.633966 1 0.638475 1 0.643037 1 0.647651 1 0.652319 1 0.65704 1 0.661817 1 0.666649 1 0.671537 1 0.676483 1 0.681488 1 0.686551 1 0.691674 1 0.696858 1 0.702103 1 0.707411 1 0.712783 1 0.718219 1 0.72372 1 0.729288 0 1079 969 1080 970 0 1081 971 Cp 1082 1 2 1 119.633 1 121.6830972 1 20 1 118.274 1 118.078 1 117.883 1 117.687 1 117.491 1 117.295 1 117.098 1 116.902 1 116.705 1 116.508 1 116.31 1 116.113 1 115.915 1 115.717 1 115.518 1 115.32 1 115.121 1 114.922 1 114.723 1 114.524 0 1083 973 1084 974 0 1085 975 K 1086 1 2 1 0.144445 1 0.1432170976 1 20 1 0.145247 1 0.145361 1 0.145475 1 0.14559 1 0.145704 1 0.145818 1 0.145932 1 0.146046 1 0.146159 1 0.146273 1 0.146387 1 0.1465 1 0.146614 1 0.146727 1 0.146841 1 0.146954 1 0.147067 1 0.14718 1 0.147293 1 0.147406 0 1087 977 1088 978 0 … … 1100 990 0 1101 991 rho 1102 1 1 1 8 84.4450992 1 1 1 894.792 0 1103 993 1104 994 0 … … 1112 1002 2 1113 1003 Mu 1114 1 2 1 0.500762 1 0.47102701004 1 20 1 0.518344 1 0.521456 1 0.524597 1 0.527769 1 0.530971 1 0.534204 1 0.537468 1 0.540764 1 0.544092 1 0.547452 1 0.550845 1 0.554272 1 0.557732 1 0.561225 1 0.564753 1 0.568316 1 0.571914 1 0.575548 1 0.579217 1 0.582924 0 1115 1005 1116 1006 0 1117 1007 Twall 1118 1 2 1 317.099 1 322.154 01008 1 20 1 314.312 1 313.833 1 313.354 1 312.874 1 312.394 1 311.914 1 311.433 1 310.952 1 310.471 1 309.989 1 309.507 1 309.025 1 308.542 1 308.059 1 307.575 1 307.092 1 306.608 1 306.123 1 305.639 1 305.154 0 1119 1009 1120 1010 0 … … 1146 1036 0 1147 1037 Tlocal 1148 1 3 1 329.352 1 334.037 1 338.7101038 1 21 1 329.944 1 329.503 1 329.063 1 328.622 1 328.181 1 327.741 1 327.299 1 326.858 1 326.417 1 325.975 1 325.534 1 325.092 1 324.65 1 324.208 1 323.766 1 323.324 1 322.882 1 322.44 1 321.997 1 321.555 1 321.112 0 1149 1039 1150 1040 0 1151 1041 Re 1152 1 2 1 22211.8 1 24478.4 01042 1 20 1 21289.6 1 21086.1 1 20883.4 1 20681.7 1 20480.9 1 20281 1 20082 1 19884 1 19686.9 1 19490.8 1 19295.6 1 19101.4 1 18908.2 1 18715.9 1 18524.7 1 18334.4 1 18145.1 1 17956.9 1 17769.6 1 17583.4 0 1153 1043 1154 1044 0 1155 1045 hcoeff 1156 1 2 1 1517.48 1 1593.7301046 1 20 1 1481.77 1 1474.54 1 1467.32 1 1460.09 1 1452.85 1 1445.61 1 1438.37 1 1431.12 1 1423.87 1 1416.61 1 1409.35 1 1402.09 1 1394.82 1 1387.56 1 1380.29 1 1373.01 1 1365.74 1 1358.46 1 1351.19 1 1343.91 0 1157 1047 1158 1048 0 1159 1049 fi 1160 1 2 1 0.0254306 1 0.024818901050 1 20 1 0.0257046 1 0.0257673 1 0.0258306 1 0.0258944 1 0.0259588 1 0.0260238 1 0.0260893 1 0.0261555 1 0.0262222 1 0.0262896 1 0.0263575 1 0.0264261 1 0.0264952 1 0.0265651 1 0.0266355 1 0.0267066 1 0.0267783 1 0.0268507 1 0.0269238 1 0.0269975 0 1161 1051 1162 1052 0 1163 1053 Nu 1164 1 2 1 209.869 1 220.61101054 1 20 1 205.36 1 204.353 1 203.346 1 202.339 1 201.332 1 200.326 1 199.32 1 198.314 1 197.308 1 196.303 1 195.298 1 194.293 1 193.289 1 192.285 1 191.282 1 190.279 1 189.277 1 188.275 1 187.274 1 186.274 0 1165 1055 1166 1056 0 1167 1057 PR 1168 1 2 1 17.3762 1 15.98501058 1 20 1 18.024 1 18.1743 1 18.3269 1 18.4816 1 18.6385 1 18.7977 1 18.9592 1 19.1231 1 19.2893 1 19.4579 1 19.629 1 19.8026 1 19.9788 1 20.1575 1 20.3389 1 20.523 1 20.7099 1 20.8995 1 21.0919 1 21.2872 0 1169 1059 1170 1060 0 1171 1061 Phi 1172 1 2 1 0.953896 1 0.95735301062 1 20 1 0.950108 1 0.949738 1 0.949364 1 0.948987 1 0.948607 1 0.948223 1 0.947835 1 0.947445 1 0.94705 1 0.946653 1 0.946251 1 0.945846 1 0.945437 1 0.945025 1 0.944609 1 0.944189 1 0.943766 1 0.943338 1 0.942907 1 0.942472 0 1173 1063 1174 1064 0 1175 1065 Vmean 1176 1 2 1 1.76856 1 1.7736901066 1 20 1 1.76643 1 1.76595 1 1.76548 1 1.76501 1 1.76454 1 1.76407 1 1.7636 1 1.76313 1 1.76266 1 1.76219 1 1.76173 1 1.76126 1 1.7608 1 1.76033 1 1.75987 1 1.75941 1 1.75895 1 1.75849 1 1.75803 1 1.75757 0 1177 1067 1178 1068 0 1179 1069 Enth 1180 1 3 1 -47734.7 1 -46931.3 1 -46122.301070 1 21 1 -47633.7 1 -47709 1 -47784.2 1 -47859.3 1 -47934.4 1 -48009.5 1 -48084.5 1 -48159.5 1 -48234.4 1 -48309.3 1 -48384.2 1 -48459 1 -48533.7 1 -48608.4 1 -48683.1 1 -48757.7 1 -48832.3 1 -48906.8 1 -48981.2 1 -49055.6 1 -49129.9 0 1181 1071 1182 1072 0 … … 1188 1078 0 0 1189 1079 1190 12 1080 4 1191 1081 Dh 1192 1082 1 1 1 0.01034 0 … … 1194 1084 0 1195 1085 Plocal 1196 1 3 1 413.685 1 413.685 1 413.685 0 1197 1198 0 1199 Pdrop 1200 1 1 1 0 0 1201 1202 0 1203 Pd_fric 1204 1 3 1 23.1752 1 0 1 0 0 1086 1 21 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 0 1205 1087 1206 1088 0 1207 1089 fi 1208 1 2 1 0.00904077 1 0.0088192101090 1 20 1 0.00914034 1 0.00916314 1 0.00918616 1 0.00920939 1 0.00923283 1 0.0092565 1 0.00928038 1 0.00930449 1 0.00932882 1 0.00935339 1 0.00937818 1 0.00940321 1 0.00942847 1 0.00945397 1 0.00947971 1 0.0095057 1 0.00953193 1 0.00955841 1 0.00958514 1 0.00961213 0 1209 1091 1210 1092 0 1211 1093 Re 1212 1 2 1 9892.77 1 10902.3 0 1213 1214 0 1215 Pdnozzle_in 1216 1 1 1 0.446382 0 1217 1218 0 1219 Pdnozzle_out 1220 1 1 1 0.282418 0 1221 1222 0 1223 Vnozzle_in 1224 1 1 1 0.952668 0 1225 1226 0 1227 Vnozzle_out 1228 1 1 1 0.947156 0 1229 1230 0 1231 RVsquare_in 1232 1 1 1 811.603 0 1233 1234 0 1235 RVsquare_out 1236 1 1 1 806.908 0 1094 1 20 1 9482.05 1 9391.4 1 9301.14 1 9211.29 1 9121.85 1 9032.82 1 8944.2 1 8856 1 8768.23 1 8680.88 1 8593.95 1 8507.46 1 8421.4 1 8335.77 1 8250.59 1 8165.85 1 8081.55 1 7997.7 1 7914.3 1 7831.36 0 1237 1095 1238 1096 0 … … 1256 1114 0 1257 1115 rho 1258 1 1 1 89 4.254 01116 1 1 1 899.134 0 1259 1117 1260 1118 0 … … 1272 1130 0 1273 1131 T 1274 1 2 1 331.694 1 336.37301275 1276 0 1277 P 1278 1 2 1 413.685 1 413.685 01132 1 20 1 329.724 1 329.283 1 328.843 1 328.402 1 327.961 1 327.52 1 327.079 1 326.638 1 326.196 1 325.755 1 325.313 1 324.871 1 324.429 1 323.987 1 323.545 1 323.103 1 322.661 1 322.219 1 321.776 1 321.334 0 1133 1134 0 1135 P 1136 1 20 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 1 413.685 0 1279 1137 1280 1138 0 1281 1139 rho 1282 1 2 1 898.171 1 895.56901140 1 20 1 899.254 1 899.496 1 899.736 1 899.977 1 900.217 1 900.457 1 900.697 1 900.936 1 901.176 1 901.414 1 901.653 1 901.891 1 902.129 1 902.367 1 902.604 1 902.841 1 903.078 1 903.315 1 903.551 1 903.786 0 1283 1141 1284 1142 0 1285 1143 Mu 1286 1 2 1 1.66028 1 1.5065401144 1 20 1 1.73219 1 1.74891 1 1.76588 1 1.78311 1 1.80059 1 1.81834 1 1.83636 1 1.85464 1 1.87321 1 1.89206 1 1.9112 1 1.93063 1 1.95036 1 1.97039 1 1.99074 1 2.01139 1 2.03237 1 2.05368 1 2.07532 1 2.0973 0 1287 1145 1288 1146 0 1289 1147 Cp 1290 1 2 1 171.519 1 173.106 01148 1 20 1 170.849 1 170.699 1 170.549 1 170.399 1 170.249 1 170.099 1 169.948 1 169.798 1 169.647 1 169.497 1 169.346 1 169.195 1 169.045 1 168.894 1 168.743 1 168.591 1 168.44 1 168.289 1 168.138 1 167.986 0 1291 1149 1292 1150 0 1293 1151 K 1294 1 2 1 0.175978 1 0.17518701152 1 20 1 0.17631 1 0.176385 1 0.176459 1 0.176533 1 0.176607 1 0.176681 1 0.176756 1 0.17683 1 0.176904 1 0.176978 1 0.177052 1 0.177127 1 0.177201 1 0.177275 1 0.177349 1 0.177423 1 0.177498 1 0.177572 1 0.177646 1 0.17772 0 1295 1153 1296 1154 0 … … 1308 1166 0 1309 1167 rho 1310 1 1 1 899.45801168 1 1 1 903.904 0 1311 1169 1312 1170 0 … … 1320 1178 2 1321 1179 Mu 1322 1 2 1 2.32595 1 2.0567401180 1 20 1 2.49667 1 2.5278 1 2.55951 1 2.59182 1 2.62474 1 2.65828 1 2.69246 1 2.7273 1 2.7628 1 2.79899 1 2.83588 1 2.87349 1 2.91183 1 2.95092 1 2.99078 1 3.03143 1 3.07288 1 3.11516 1 3.15828 1 3.20227 0 1323 1181 1324 1182 0 1325 1183 Twall 1326 1 2 1 317.099 1 322.154 01184 1 20 1 314.312 1 313.833 1 313.354 1 312.874 1 312.394 1 311.914 1 311.433 1 310.952 1 310.471 1 309.989 1 309.507 1 309.025 1 308.542 1 308.059 1 307.575 1 307.092 1 306.608 1 306.123 1 305.639 1 305.154 0 1327 1185 1328 1186 0 … … 1334 1192 0 1335 1193 Lincr 1336 1 3 1 0 1 4.5 1 9 0 1194 1 21 1 0 1 0.45 1 0.9 1 1.35 1 1.8 1 2.25 1 2.7 1 3.15 1 3.6 1 4.05 1 4.5 1 4.95 1 5.4 1 5.85 1 6.3 1 6.75 1 7.2 1 7.65 1 8.1 1 8.55 1 9 0 1195 1196 0 1197 1198 2 1199 Pi 1200 1 1 1 3.14159 0 1201 1202 0 1203 Npoints 1204 1 1 1 21 0 1337 1205 1338 1206 0 … … 1346 1214 0 0 1347 1215 1348 5 1216 8 1349 1217 Outlet 1350 1218 0 1 … … 1395 1263 1396 1264 0 1265 s 1266 1 1 1 -193.713 0 1267 1268 0 1269 sl 1270 1 1 1 -193.713 0 1271 1272 0 1273 sv 1274 1 1 1 -100.224 0 1275 1276 0 1397 1277 1398 1278 0 … … 1402 1282 0 0 1403 1283 1404 5 1284 8 1405 1285 Outlet 1406 1286 0 1 … … 1451 1331 1452 1332 0 1333 s 1334 1 1 1 -192.946 0 1335 1336 0 1337 sl 1338 1 1 1 -192.946 0 1339 1340 0 1341 sv 1342 1 1 1 -114.132 0 1343 1344 0 1453 1345 1454 1346 0 … … 1470 1362 0 1471 1363 T 1472 1 1 1 3 19.97601364 1 1 1 321.112 0 1473 1365 1474 1366 0 … … 1482 1374 0 1483 1375 h 1484 1 1 1 -49 320.501376 1 1 1 -49129.9 0 1485 1377 1486 1378 0 … … 1510 1402 0 1511 1403 T 1512 1 1 1 3 10.63701404 1 1 1 309.372 0 1513 1405 1514 1406 0 … … 1522 1414 0 1523 1415 h 1524 1 1 1 -31 324.201416 1 1 1 -31479.1 0 1525 1417 1526 1418 0 -
branches/tests/sample/heat_exchangers/Sample_HairpinInc.mso
r445 r447 43 43 CONNECTIONS 44 44 45 InletCold.Outlet to Pipe. UpperPipe.InletInner;46 InletHot.Outlet to Pipe. LowerPipe.InletOuter;45 InletCold.Outlet to Pipe.LowerPipe.InletInner; 46 InletHot.Outlet to Pipe.UpperPipe.InletOuter; 47 47 48 Pipe. UpperPipe.OutletOuter to OutletHot.Inlet;49 Pipe. LowerPipe.OutletInner to OutletCold.Inlet;48 Pipe.LowerPipe.OutletOuter to OutletHot.Inlet; 49 Pipe.UpperPipe.OutletInner to OutletCold.Inlet; 50 50 51 51 SET … … 53 53 NComp = PP.NumberOfComponents; 54 54 55 Pipe.N = 2 ;55 Pipe.N = 20; 56 56 57 57 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ … … 77 77 Pipe.Kwall = 0.057 *'kW/m/K'; 78 78 Pipe.Lpipe = 9*'m'; 79 Pipe.Donozzle_Inner = 36.63*'mm';80 Pipe.Dinozzle_Inner = 36.63*'mm';81 Pipe.Donozzle_Outer = 42.72*'mm';82 Pipe.Dinozzle_Outer = 42.72*'mm';79 #Pipe.Donozzle_Inner = 36.63*'mm'; 80 #Pipe.Dinozzle_Inner = 36.63*'mm'; 81 #Pipe.Donozzle_Outer = 42.72*'mm'; 82 #Pipe.Dinozzle_Outer = 42.72*'mm'; 83 83 Pipe.Rfi = 0.00018*'m^2*K/W'; 84 Pipe.Rfo = 0 *'m^2*K/W';84 Pipe.Rfo = 0.00018*'m^2*K/W'; 85 85 86 86 SPECIFY … … 88 88 # Hot Stream 89 89 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 90 #InletHot.Fw = 4396 * 'kg/h';91 90 InletHot.Outlet.F = 47.2038 * 'kmol/h'; 92 91 InletHot.Outlet.T = 338.71 * 'K'; … … 97 96 # Cold Stream 98 97 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 99 # InletCold.Fw = 4536 * 'kg/h';100 98 InletCold.Outlet.F = 58.0694 * 'kmol/h'; 101 99 InletCold.Outlet.T = 288.71 * 'K'; … … 106 104 107 105 Dynamic = false; 108 GuessFile = "GuessHairpin_ incremental";106 GuessFile = "GuessHairpin_Incremental"; 109 107 110 108 end 111 109 110
Note: See TracChangeset
for help on using the changeset viewer.
