Changeset 139 for branches/newlanguage


Ignore:
Timestamp:
Jan 29, 2007, 1:50:41 PM (17 years ago)
Author:
gerson bicca
Message:

updated models for the new language

Location:
branches/newlanguage
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • branches/newlanguage/eml/heat_exchangers/DoublePipe.mso

    r110 r139  
    2424
    2525Model DoublePipe_Basic
     26
     27ATTRIBUTES
     28        Pallete         = false;
     29        Brief           = "Double Pipe Basic Equations";
     30        Info            =
     31        "write some information";
    2632       
    2733PARAMETERS
    28 ext PP          as CalcObject   (Brief="External Physical Properties");
    29 ext NComp       as Integer      (Brief="Number of Components");
    30         M(NComp)        as molweight    (Brief="Component Mol Weight");
     34outer PP                        as Plugin               (Brief="External Physical Properties");
     35outer NComp             as Integer      (Brief="Number of Components");
     36                M(NComp)        as molweight    (Brief="Component Mol Weight");
    3137       
    3238VARIABLES
    3339
    34 in  Inlet               as Inlet_Main_Stream;   # Hot and Cold Inlets
    35 out Outlet              as Outlet_Main_Stream;  # Hot and Cold Outlets
    36         Properties      as Main_Properties;             # Hot and Cold Properties
    37         Details         as Details_Main;
    38         Inner                   as Main_DoublePipe;
    39         Outer                   as Main_DoublePipe;
    40         Resistances     as Main_Resistances;
     40in      Inlet                   as Inlet_Main_Stream    (Brief="Hot and Cold Inlets");   
     41out     Outlet                  as Outlet_Main_Stream   (Brief="Hot and Cold Outlets"); 
     42                Properties              as Main_Properties              (Brief="Hot and Cold Properties");       
     43                Details                 as Details_Main                 (Brief="Details");
     44                Inner                   as Main_DoublePipe              (Brief="Inner Side");
     45                Outer                   as Main_DoublePipe              (Brief="Outer Side");
     46                Resistances     as Main_Resistances             (Brief="Resistances");
    4147
    4248SET
    … …  
    299305
    300306Model DoublePipe                                        as DoublePipe_Basic
     307
     308ATTRIBUTES
     309        Pallete         = false;
     310        Brief           = "Double Pipe";
     311        Info            =
     312        "write some information";
    301313       
    302314PARAMETERS
    303315
    304         HE              as CalcObject   (Brief="STHE Calculations",File="heatex");
    305         Pi                      as constant     (Brief="Pi Number",Default=3.14159265);
    306         Hside       as Integer          (Brief="Fluid Alocation Flag-Default:Outer",Lower=0,Upper=1);
    307         Side            as Integer              (Brief="Flow Direction",Lower=0,Upper=1);
    308         DoInner         as length               (Brief="Outside Diameter of Inner Pipe",Lower=1e-6);
    309         DiInner         as length               (Brief="Inside Diameter of Inner Pipe",Lower=1e-10);
    310         DiOuter         as length               (Brief="Inside Diameter of Outer pipe",Lower=1e-10);
    311         Lpipe           as length               (Brief="Effective Tube Length",Lower=0.1);
    312         Kwall           as conductivity (Brief="Tube Wall Material Thermal Conductivity",Default=1.0);
    313        
     316        HE                      as Plugin                       (Brief="STHE Calculations",File="heatex");
     317        Pi                              as constant             (Brief="Pi Number",Default=3.14159265);
     318        Hside       as Integer                  (Brief="Fluid Alocation Flag-Default:Outer",Lower=0,Upper=1);
     319        Side                    as Integer                      (Brief="Flow Direction",Lower=0,Upper=1);
     320        DoInner         as length                       (Brief="Outside Diameter of Inner Pipe",Lower=1e-6);
     321        DiInner         as length                       (Brief="Inside Diameter of Inner Pipe",Lower=1e-10);
     322        DiOuter         as length                       (Brief="Inside Diameter of Outer pipe",Lower=1e-10);
     323        Lpipe                   as length                       (Brief="Effective Tube Length",Lower=0.1);
     324        Kwall                   as conductivity         (Brief="Tube Wall Material Thermal Conductivity",Default=1.0);
     325       
     326SET
     327
     328        Pi      = 3.14159265;
     329        Hside   = HE.FluidAlocation();
     330        Side    = HE.FlowDir();
     331
     332#"Inner Pipe Cross Sectional Area for Flow"
     333        Inner.HeatTransfer.As=Pi*DiInner*DiInner/4;
     334       
     335#"Outer Pipe Cross Sectional Area for Flow"
     336        Outer.HeatTransfer.As=Pi*(DiOuter*DiOuter - DoInner*DoInner)/4;
     337       
     338#"Inner Pipe Hydraulic Diameter for Heat Transfer"
     339        Inner.HeatTransfer.Dh=DiInner;
     340       
     341#"Outer Pipe Hydraulic Diameter for Heat Transfer"
     342        Outer.HeatTransfer.Dh=(DiOuter*DiOuter-DoInner*DoInner)/DoInner;
     343
     344#"Inner Pipe Hydraulic Diameter for Pressure Drop"
     345        Inner.PressureDrop.Dh=DiInner;
     346       
     347#"Outer Pipe Hydraulic Diameter for Pressure Drop"
     348        Outer.PressureDrop.Dh=DiOuter-DoInner;
     349
     350EQUATIONS
     351
     352"Exchange Surface Area"
     353        Details.A=Pi*DoInner*Lpipe;
     354
     355if Hside equal 1
     356       
     357        then
     358       
     359"Pressure Drop Hot Stream"
     360        Outlet.Hot.P  = Inlet.Hot.P - Outer.PressureDrop.Pdrop;
     361
     362"Pressure Drop Cold Stream"
     363        Outlet.Cold.P  = Inlet.Cold.P - Inner.PressureDrop.Pdrop;
     364       
     365"Outer Pipe Film Coefficient"
     366        Outer.HeatTransfer.hcoeff= HE.PipeFilmCoeff(Outer.HeatTransfer.Re,Outer.HeatTransfer.PR,Properties.Hot.Average.K,Outer.HeatTransfer.Dh,Lpipe)*Outer.HeatTransfer.Phi;
     367
     368"Inner Pipe Film Coefficient"
     369        Inner.HeatTransfer.hcoeff= HE.PipeFilmCoeff(Inner.HeatTransfer.Re,Inner.HeatTransfer.PR,Properties.Cold.Average.K,DiInner,Lpipe)*Inner.HeatTransfer.Phi;
     370
     371"Outer Pipe Pressure Drop"
     372        Outer.PressureDrop.Pdrop = (2*Outer.PressureDrop.fi*Lpipe*Properties.Hot.Average.rho*Outer.HeatTransfer.Vmean^2)/(Outer.PressureDrop.Dh*Outer.HeatTransfer.Phi);
     373       
     374"Inner Pipe Pressure Drop"
     375        Inner.PressureDrop.Pdrop = (2*Inner.PressureDrop.fi*Lpipe*Properties.Cold.Average.rho*Inner.HeatTransfer.Vmean^2)/(DiInner*Inner.HeatTransfer.Phi);
     376
     377"Outer Pipe Phi correction"
     378        Outer.HeatTransfer.Phi = HE.PhiCorrection(Properties.Hot.Average.Mu,Properties.Hot.Wall.Mu);
     379       
     380"Inner Pipe Phi correction"
     381        Inner.HeatTransfer.Phi  = HE.PhiCorrection(Properties.Cold.Average.Mu,Properties.Cold.Wall.Mu);
     382
     383"Outer Pipe Prandtl Number"
     384        Outer.HeatTransfer.PR = ((Properties.Hot.Average.Cp/Properties.Hot.Average.Mw)*Properties.Hot.Average.Mu)/Properties.Hot.Average.K;
     385
     386"Inner Pipe Prandtl Number"
     387        Inner.HeatTransfer.PR = ((Properties.Cold.Average.Cp/Properties.Cold.Average.Mw)*Properties.Cold.Average.Mu)/Properties.Cold.Average.K;
     388
     389"Outer Pipe Reynolds Number for Heat Transfer"
     390        Outer.HeatTransfer.Re = (Properties.Hot.Average.rho*Outer.HeatTransfer.Vmean*Outer.HeatTransfer.Dh)/Properties.Hot.Average.Mu;
     391
     392"Outer Pipe Reynolds Number for Pressure Drop"
     393        Outer.PressureDrop.Re = (Properties.Hot.Average.rho*Outer.HeatTransfer.Vmean*Outer.PressureDrop.Dh)/Properties.Hot.Average.Mu;
     394
     395"Inner Pipe Reynolds Number for Heat Transfer"
     396        Inner.HeatTransfer.Re = (Properties.Cold.Average.rho*Inner.HeatTransfer.Vmean*Inner.HeatTransfer.Dh)/Properties.Cold.Average.Mu;
     397
     398"Inner Pipe Reynolds Number for Pressure Drop"
     399        Inner.PressureDrop.Re = Inner.HeatTransfer.Re;
     400
     401"Outer Pipe Velocity"
     402        Outer.HeatTransfer.Vmean*(Outer.HeatTransfer.As*Properties.Hot.Average.rho)  = Properties.Hot.Inlet.Fw;
     403
     404"Inner Pipe Velocity"
     405        Inner.HeatTransfer.Vmean*(Inner.HeatTransfer.As*Properties.Cold.Average.rho)  = Properties.Cold.Inlet.Fw;
     406
     407        else
     408       
     409"Pressure Drop Hot Stream"
     410        Outlet.Hot.P  = Inlet.Hot.P - Inner.PressureDrop.Pdrop;
     411
     412"Pressure Drop Cold Stream"
     413        Outlet.Cold.P  = Inlet.Cold.P - Outer.PressureDrop.Pdrop;
     414       
     415"Inner Pipe Film Coefficient"
     416        Inner.HeatTransfer.hcoeff= HE.PipeFilmCoeff(Inner.HeatTransfer.Re,Inner.HeatTransfer.PR,Properties.Hot.Average.K,DiInner,Lpipe)*Inner.HeatTransfer.Phi;
     417
     418"Outer Pipe Film Coefficient"
     419        Outer.HeatTransfer.hcoeff= HE.PipeFilmCoeff(Outer.HeatTransfer.Re,Outer.HeatTransfer.PR,Properties.Cold.Average.K,Outer.HeatTransfer.Dh,Lpipe)*Outer.HeatTransfer.Phi;
     420
     421"Outer Pipe Pressure Drop"
     422        Outer.PressureDrop.Pdrop = (2*Outer.PressureDrop.fi*Lpipe*Properties.Cold.Average.rho*Outer.HeatTransfer.Vmean^2)/(Outer.PressureDrop.Dh*Outer.HeatTransfer.Phi);
     423       
     424"Inner Pipe Pressure Drop"
     425        Inner.PressureDrop.Pdrop        = (2*Inner.PressureDrop.fi*Lpipe*Properties.Hot.Average.rho*Inner.HeatTransfer.Vmean^2)/(DiInner*Inner.HeatTransfer.Phi);
     426
     427"Outer Pipe Phi correction"
     428        Outer.HeatTransfer.Phi          = HE.PhiCorrection(Properties.Cold.Average.Mu,Properties.Cold.Wall.Mu);
     429       
     430"Inner Pipe Phi correction"
     431        Inner.HeatTransfer.Phi          = HE.PhiCorrection(Properties.Hot.Average.Mu,Properties.Hot.Wall.Mu);
     432       
     433"Outer Pipe Prandtl Number"
     434        Outer.HeatTransfer.PR           = ((Properties.Cold.Average.Cp/Properties.Cold.Average.Mw)*Properties.Cold.Average.Mu)/Properties.Cold.Average.K;
     435
     436"Inner Pipe Prandtl Number"
     437        Inner.HeatTransfer.PR           = ((Properties.Hot.Average.Cp/Properties.Hot.Average.Mw)*Properties.Hot.Average.Mu)/Properties.Hot.Average.K;
     438
     439"Outer Pipe Reynolds Number for Heat Transfer"
     440        Outer.HeatTransfer.Re           = (Properties.Cold.Average.rho*Outer.HeatTransfer.Vmean*Outer.HeatTransfer.Dh)/Properties.Cold.Average.Mu;
     441
     442"Outer Pipe Reynolds Number for Pressure Drop"
     443        Outer.PressureDrop.Re           = (Properties.Cold.Average.rho*Outer.HeatTransfer.Vmean*Outer.PressureDrop.Dh)/Properties.Cold.Average.Mu;
     444
     445"Inner Pipe Reynolds Number for Pressure Drop"
     446        Inner.PressureDrop.Re           = Inner.HeatTransfer.Re;
     447
     448"Inner Pipe Reynolds Number for Heat Transfer"
     449        Inner.HeatTransfer.Re           = (Properties.Hot.Average.rho*Inner.HeatTransfer.Vmean*Inner.HeatTransfer.Dh)/Properties.Hot.Average.Mu;
     450
     451"Outer Pipe Velocity"
     452        Outer.HeatTransfer.Vmean*(Outer.HeatTransfer.As*Properties.Cold.Average.rho)= Properties.Cold.Inlet.Fw;
     453       
     454"Inner Pipe Velocity"
     455        Inner.HeatTransfer.Vmean*(Inner.HeatTransfer.As*Properties.Hot.Average.rho)     = Properties.Hot.Inlet.Fw;
     456
     457end
     458
     459"Inner Pipe Resistance"
     460        Resistances.Rtube*(Inner.HeatTransfer.hcoeff*DiInner) = DoInner;
     461       
     462"Wall Resistance"
     463        Resistances.Rwall*(2*Kwall) = DoInner*ln(DoInner/DiInner);
     464
     465"Outer Pipe Resistance"
     466        Resistances.Rshell*(Outer.HeatTransfer.hcoeff)=1;
     467
     468"Overall Heat Transfer Coefficient Clean"
     469        Details.Uc*(Resistances.Rtube+Resistances.Rwall+Resistances.Rshell)=1;
     470
     471"Overall Heat Transfer Coefficient Dirty"
     472        Details.Ud*(Resistances.Rfi*(DoInner/DiInner) + Resistances.Rfo + Resistances.Rtube + Resistances.Rwall + Resistances.Rshell)=1;
     473       
     474end
     475
     476Model DoublePipe_Basic_NTU                      as DoublePipe
     477
     478ATTRIBUTES
     479        Pallete         = false;
     480        Brief           = "Basic Model Double Pipe Heat Exchanger - NTU Method";
     481        Info            =
     482        "write some information";
     483       
     484VARIABLES
     485
     486Eft       as positive (Brief="Effectiveness",Default=0.5,Lower=1e-12);
     487
     488EQUATIONS       
     489
     490"Energy Balance"
     491        Details.Q       = Eft*Details.Cmin*(Inlet.Hot.T-Inlet.Cold.T); 
     492
     493
     494end
     495
     496Model DoublePipe_Basic_LMTD                     as DoublePipe
     497
     498ATTRIBUTES
     499        Pallete         = false;
     500        Brief           = "Basic Model Double Pipe Heat Exchanger - LMTD Method";
     501        Info            =
     502        "write some information";
     503       
     504VARIABLES
     505
     506DT0             as temp_delta   (Brief="Temperature Difference at Inlet",Lower=1);
     507DTL             as temp_delta   (Brief="Temperature Difference at Outlet",Lower=1);
     508LMTD            as temp_delta   (Brief="Logarithmic Mean Temperature Difference",Lower=1);
     509
     510EQUATIONS
     511#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     512#                       Log Mean Temperature Difference
     513#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     514
     515if abs(DT0 - DTL) > 0.05*max(abs([DT0,DTL]))
     516       
     517        then
     518"Log Mean Temperature Difference"
     519        LMTD*ln(DT0/DTL) = (DT0-DTL);
     520
     521        else
     522       
     523if DT0*DTL equal 0
     524       
     525        then
     526"Log Mean Temperature Difference"
     527        LMTD = 0.5*(DT0+DTL);
     528
     529        else
     530"Log Mean Temperature Difference"
     531        LMTD = 0.5*(DT0+DTL)*(1-(DT0-DTL)^2/(DT0*DTL)*(1+(DT0-DTL)^2/(DT0*DTL)/2)/12);
     532       
     533end
     534       
     535end
     536
     537"Exchange Surface Area"
     538        Details.Q = Details.Ud*Pi*DoInner*Lpipe*LMTD;
     539
     540end
     541
     542Model DoublePipe_LMTD                           as DoublePipe_Basic_LMTD
     543
     544ATTRIBUTES
     545        Pallete         = true;
     546        Brief           = "Double Pipe Heat Exchanger - LMTD Method";
     547        Info            =
     548        "write some information";
     549       
     550EQUATIONS
     551
     552if Side equal 0
     553
     554        then
     555"Temperature Difference at Inlet - Cocurrent Flow"
     556        DT0 = Inlet.Hot.T - Inlet.Cold.T;
     557
     558"Temperature Difference at Outlet - Cocurrent Flow"
     559        DTL = Outlet.Hot.T - Outlet.Cold.T;
     560
     561        else
     562"Temperature Difference at Inlet - Counter Flow"
     563        DT0 = Inlet.Hot.T - Outlet.Cold.T;
     564
     565"Temperature Difference at Outlet - Counter Flow"
     566        DTL = Outlet.Hot.T - Inlet.Cold.T;
     567end
     568       
     569end
     570
     571Model DoublePipe_NTU                            as DoublePipe_Basic_NTU
     572
     573ATTRIBUTES
     574        Pallete         = true;
     575        Brief           = "Basic Model Double Pipe Heat Exchanger - NTU Method";
     576        Info            =
     577        "write some information";
     578       
     579EQUATIONS
     580
     581if Details.Cr equal 0
     582       
     583        then   
     584"Effectiveness"
     585        Eft = 1-exp(-Details.NTU);
     586       
     587        else
     588
     589if Side equal 0
     590
     591then
     592"Effectiveness in Cocurrent Flow"
     593        Eft*(1+Details.Cr) = (1-exp(-Details.NTU*(1+Details.Cr)));
     594       
     595        else
     596
     597if Details.Cr equal 1
     598       
     599        then
     600"Effectiveness in Counter Flow"
     601        Eft*(1+Details.NTU) = Details.NTU;
     602       
     603        else
     604"Effectiveness in Counter Flow"
     605        Eft*(1-Details.Cr*exp(-Details.NTU*(1-Details.Cr))) = (1-exp(-Details.NTU*(1-Details.Cr)));
     606       
     607end
     608
     609end
     610
     611
     612end
     613
     614end
     615
     616Model Multitubular_Basic
     617
     618ATTRIBUTES
     619        Pallete         = false;
     620        Brief           = "Basic Model Multitubular Double Pipe Heat Exchanger";
     621        Info            =
     622        "write some information";
     623       
     624PARAMETERS
     625
     626                Npipe           as Integer                      (Brief="N Pipe in Series",Default=2);
     627outer PP                        as Plugin                       (Brief="External Physical Properties");
     628                HE                      as Plugin                       (Brief="STHE Calculations",File="heatex");
     629                Pi                              as constant             (Brief="Pi Number",Default=3.14159265);
     630                Hside       as Integer                  (Brief="Fluid Alocation Flag-Default:Outer",Lower=0,Upper=1);
     631                DoInner         as length                       (Brief="Outside Diameter of Inner Pipe",Lower=1e-6);
     632                DiInner         as length                       (Brief="Inside Diameter of Inner Pipe",Lower=1e-10);
     633                DiOuter         as length                       (Brief="Inside Diameter of Outer pipe",Lower=1e-10);
     634                Lpipe                   as length                       (Brief="Effective Tube Length",Lower=0.1);
     635                Kwall                   as conductivity         (Brief="Tube Wall Material Thermal Conductivity",Default=1.0);
     636
     637VARIABLES
     638
     639Unity(Npipe)  as DoublePipe_Basic;
     640
    314641SET
    315642        Pi      = 3.14159265;
    316643        Hside   = HE.FluidAlocation();
    317         Side    = HE.FlowDir();
    318 
    319 #"Inner Pipe Cross Sectional Area for Flow"
    320         Inner.HeatTransfer.As=Pi*DiInner*DiInner/4;
    321        
    322 #"Outer Pipe Cross Sectional Area for Flow"
    323         Outer.HeatTransfer.As=Pi*(DiOuter*DiOuter-DoInner*DoInner)/4;
    324        
    325 #"Inner Pipe Hydraulic Diameter for Heat Transfer"
    326         Inner.HeatTransfer.Dh=DiInner;
    327        
    328 #"Outer Pipe Hydraulic Diameter for Heat Transfer"
    329         Outer.HeatTransfer.Dh=(DiOuter*DiOuter-DoInner*DoInner)/DoInner;
    330 
    331 #"Inner Pipe Hydraulic Diameter for Pressure Drop"
    332         Inner.PressureDrop.Dh=DiInner;
    333        
    334 #"Outer Pipe Hydraulic Diameter for Pressure Drop"
    335         Outer.PressureDrop.Dh=DiOuter-DoInner;
    336 
    337 EQUATIONS
    338 
    339 "Exchange Surface Area"
    340         Details.A=Pi*DoInner*Lpipe;
    341 
    342 if Hside equal 1
    343        
    344         then
    345        
    346 "Pressure Drop Hot Stream"
    347         Outlet.Hot.P  = Inlet.Hot.P - Outer.PressureDrop.Pdrop;
    348 
    349 "Pressure Drop Cold Stream"
    350         Outlet.Cold.P  = Inlet.Cold.P - Inner.PressureDrop.Pdrop;
    351        
    352 "Outer Pipe Film Coefficient"
    353         Outer.HeatTransfer.hcoeff= HE.PipeFilmCoeff(Outer.HeatTransfer.Re,Outer.HeatTransfer.PR,Properties.Hot.Average.K,Outer.HeatTransfer.Dh,Lpipe)*Outer.HeatTransfer.Phi;
    354 
    355 "Inner Pipe Film Coefficient"
    356         Inner.HeatTransfer.hcoeff= HE.PipeFilmCoeff(Inner.HeatTransfer.Re,Inner.HeatTransfer.PR,Properties.Cold.Average.K,DiInner,Lpipe)*Inner.HeatTransfer.Phi;
    357 
    358 "Outer Pipe Pressure Drop"
    359         Outer.PressureDrop.Pdrop = (2*Outer.PressureDrop.fi*Lpipe*Properties.Hot.Average.rho*Outer.HeatTransfer.Vmean^2)/(Outer.PressureDrop.Dh*Outer.HeatTransfer.Phi);
    360        
    361 "Inner Pipe Pressure Drop"
    362         Inner.PressureDrop.Pdrop = (2*Inner.PressureDrop.fi*Lpipe*Properties.Cold.Average.rho*Inner.HeatTransfer.Vmean^2)/(DiInner*Inner.HeatTransfer.Phi);
    363 
    364 "Outer Pipe Phi correction"
    365         Outer.HeatTransfer.Phi = HE.PhiCorrection(Properties.Hot.Average.Mu,Properties.Hot.Wall.Mu);
    366        
    367 "Inner Pipe Phi correction"
    368         Inner.HeatTransfer.Phi  = HE.PhiCorrection(Properties.Cold.Average.Mu,Properties.Cold.Wall.Mu);
    369 
    370 "Outer Pipe Prandtl Number"
    371         Outer.HeatTransfer.PR = ((Properties.Hot.Average.Cp/Properties.Hot.Average.Mw)*Properties.Hot.Average.Mu)/Properties.Hot.Average.K;
    372 
    373 "Inner Pipe Prandtl Number"
    374         Inner.HeatTransfer.PR = ((Properties.Cold.Average.Cp/Properties.Cold.Average.Mw)*Properties.Cold.Average.Mu)/Properties.Cold.Average.K;
    375 
    376 "Outer Pipe Reynolds Number for Heat Transfer"
    377         Outer.HeatTransfer.Re = (Properties.Hot.Average.rho*Outer.HeatTransfer.Vmean*Outer.HeatTransfer.Dh)/Properties.Hot.Average.Mu;
    378 
    379 "Outer Pipe Reynolds Number for Pressure Drop"
    380         Outer.PressureDrop.Re = (Properties.Hot.Average.rho*Outer.HeatTransfer.Vmean*Outer.PressureDrop.Dh)/Properties.Hot.Average.Mu;
    381 
    382 "Inner Pipe Reynolds Number for Heat Transfer"
    383         Inner.HeatTransfer.Re = (Properties.Cold.Average.rho*Inner.HeatTransfer.Vmean*Inner.HeatTransfer.Dh)/Properties.Cold.Average.Mu;
    384 
    385 "Inner Pipe Reynolds Number for Pressure Drop"
    386         Inner.PressureDrop.Re = Inner.HeatTransfer.Re;
    387 
    388 "Outer Pipe Velocity"
    389         Outer.HeatTransfer.Vmean*(Outer.HeatTransfer.As*Properties.Hot.Average.rho)  = Properties.Hot.Inlet.Fw;
    390 
    391 "Inner Pipe Velocity"
    392         Inner.HeatTransfer.Vmean*(Inner.HeatTransfer.As*Properties.Cold.Average.rho)  = Properties.Cold.Inlet.Fw;
    393 
    394         else
    395        
    396 "Pressure Drop Hot Stream"
    397         Outlet.Hot.P  = Inlet.Hot.P - Inner.PressureDrop.Pdrop;
    398 
    399 "Pressure Drop Cold Stream"
    400         Outlet.Cold.P  = Inlet.Cold.P - Outer.PressureDrop.Pdrop;
    401        
    402 "Inner Pipe Film Coefficient"
    403         Inner.HeatTransfer.hcoeff= HE.PipeFilmCoeff(Inner.HeatTransfer.Re,Inner.HeatTransfer.PR,Properties.Hot.Average.K,DiInner,Lpipe)*Inner.HeatTransfer.Phi;
    404 
    405 "Outer Pipe Film Coefficient"
    406         Outer.HeatTransfer.hcoeff= HE.PipeFilmCoeff(Outer.HeatTransfer.Re,Outer.HeatTransfer.PR,Properties.Cold.Average.K,Outer.HeatTransfer.Dh,Lpipe)*Outer.HeatTransfer.Phi;
    407 
    408 "Outer Pipe Pressure Drop"
    409         Outer.PressureDrop.Pdrop = (2*Outer.PressureDrop.fi*Lpipe*Properties.Cold.Average.rho*Outer.HeatTransfer.Vmean^2)/(Outer.PressureDrop.Dh*Outer.HeatTransfer.Phi);
    410        
    411 "Inner Pipe Pressure Drop"
    412         Inner.PressureDrop.Pdrop        = (2*Inner.PressureDrop.fi*Lpipe*Properties.Hot.Average.rho*Inner.HeatTransfer.Vmean^2)/(DiInner*Inner.HeatTransfer.Phi);
    413 
    414 "Outer Pipe Phi correction"
    415         Outer.HeatTransfer.Phi          = HE.PhiCorrection(Properties.Cold.Average.Mu,Properties.Cold.Wall.Mu);
    416        
    417 "Inner Pipe Phi correction"
    418         Inner.HeatTransfer.Phi          = HE.PhiCorrection(Properties.Hot.Average.Mu,Properties.Hot.Wall.Mu);
    419        
    420 "Outer Pipe Prandtl Number"
    421         Outer.HeatTransfer.PR           = ((Properties.Cold.Average.Cp/Properties.Cold.Average.Mw)*Properties.Cold.Average.Mu)/Properties.Cold.Average.K;
    422 
    423 "Inner Pipe Prandtl Number"
    424         Inner.HeatTransfer.PR           = ((Properties.Hot.Average.Cp/Properties.Hot.Average.Mw)*Properties.Hot.Average.Mu)/Properties.Hot.Average.K;
    425 
    426 "Outer Pipe Reynolds Number for Heat Transfer"
    427         Outer.HeatTransfer.Re           = (Properties.Cold.Average.rho*Outer.HeatTransfer.Vmean*Outer.HeatTransfer.Dh)/Properties.Cold.Average.Mu;
    428 
    429 "Outer Pipe Reynolds Number for Pressure Drop"
    430         Outer.PressureDrop.Re           = (Properties.Cold.Average.rho*Outer.HeatTransfer.Vmean*Outer.PressureDrop.Dh)/Properties.Cold.Average.Mu;
    431 
    432 "Inner Pipe Reynolds Number for Pressure Drop"
    433         Inner.PressureDrop.Re           = Inner.HeatTransfer.Re;
    434 
    435 "Inner Pipe Reynolds Number for Heat Transfer"
    436         Inner.HeatTransfer.Re           = (Properties.Hot.Average.rho*Inner.HeatTransfer.Vmean*Inner.HeatTransfer.Dh)/Properties.Hot.Average.Mu;
    437 
    438 "Outer Pipe Velocity"
    439         Outer.HeatTransfer.Vmean*(Outer.HeatTransfer.As*Properties.Cold.Average.rho)= Properties.Cold.Inlet.Fw;
    440        
    441 "Inner Pipe Velocity"
    442         Inner.HeatTransfer.Vmean*(Inner.HeatTransfer.As*Properties.Hot.Average.rho)     = Properties.Hot.Inlet.Fw;
    443 
    444 end
    445 
    446 "Inner Pipe Resistance"
    447         Resistances.Rtube*(Inner.HeatTransfer.hcoeff*DiInner) = DoInner;
    448        
    449 "Wall Resistance"
    450         Resistances.Rwall*(2*Kwall) = DoInner*ln(DoInner/DiInner);
    451 
    452 "Outer Pipe Resistance"
    453         Resistances.Rshell*(Outer.HeatTransfer.hcoeff)=1;
    454 
    455 "Overall Heat Transfer Coefficient Clean"
    456         Details.Uc*(Resistances.Rtube+Resistances.Rwall+Resistances.Rshell)=1;
    457 
    458 "Overall Heat Transfer Coefficient Dirty"
    459         Details.Ud*(Resistances.Rfi*(DoInner/DiInner) + Resistances.Rfo + Resistances.Rtube + Resistances.Rwall + Resistances.Rshell)=1;
    460        
    461 end
    462 
    463 Model DoublePipe_Basic_NTU                      as DoublePipe
    464 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    465 #       Basic Model Double Pipe Heat Exchanger - NTU Method
    466 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    467 VARIABLES
    468 
    469 Eft       as positive (Brief="Effectiveness",Default=0.5,Lower=1e-12);
    470 
    471 EQUATIONS       
    472 
    473 "Energy Balance"
    474         Details.Q       = Eft*Details.Cmin*(Inlet.Hot.T-Inlet.Cold.T); 
    475 
    476 
    477 end
    478 
    479 Model DoublePipe_Basic_LMTD                     as DoublePipe
    480 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    481 #       Basic Model for Double Pipe Heat Exchanger- LMTD Method
    482 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    483 VARIABLES
    484 
    485 DT0     as temp_delta   (Brief="Temperature Difference at Inlet",Lower=1);
    486 DTL             as temp_delta   (Brief="Temperature Difference at Outlet",Lower=1);
    487 LMTD    as temp_delta   (Brief="Logarithmic Mean Temperature Difference",Lower=1);
    488 
    489 EQUATIONS
    490 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    491 #                       Log Mean Temperature Difference
    492 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    493 
    494 if abs(DT0 - DTL) > 0.05*max(abs([DT0,DTL]))
    495        
    496         then
    497 "Log Mean Temperature Difference"
    498         LMTD*ln(DT0/DTL) = (DT0-DTL);
    499 
    500         else
    501        
    502 if DT0*DTL equal 0
    503        
    504         then
    505 "Log Mean Temperature Difference"
    506         LMTD = 0.5*(DT0+DTL);
    507 
    508         else
    509 "Log Mean Temperature Difference"
    510         LMTD = 0.5*(DT0+DTL)*(1-(DT0-DTL)^2/(DT0*DTL)*(1+(DT0-DTL)^2/(DT0*DTL)/2)/12);
    511        
    512 end
    513        
    514 end
    515 
    516 "Exchange Surface Area"
    517         Details.Q = Details.Ud*Pi*DoInner*Lpipe*LMTD;
    518 
    519 end
    520 
    521 Model DoublePipe_LMTD                           as DoublePipe_Basic_LMTD
    522 
    523 EQUATIONS
    524 
    525 if Side equal 0
    526 
    527         then
    528 "Temperature Difference at Inlet - Cocurrent Flow"
    529         DT0 = Inlet.Hot.T - Inlet.Cold.T;
    530 
    531 "Temperature Difference at Outlet - Cocurrent Flow"
    532         DTL = Outlet.Hot.T - Outlet.Cold.T;
    533 
    534         else
    535 "Temperature Difference at Inlet - Counter Flow"
    536         DT0 = Inlet.Hot.T - Outlet.Cold.T;
    537 
    538 "Temperature Difference at Outlet - Counter Flow"
    539         DTL = Outlet.Hot.T - Inlet.Cold.T;
    540 end
    541        
    542 end
    543 
    544 Model DoublePipe_NTU                            as DoublePipe_Basic_NTU
    545 
    546 EQUATIONS
    547 
    548 if Details.Cr equal 0
    549        
    550         then   
    551 "Effectiveness"
    552         Eft = 1-exp(-Details.NTU);
    553        
    554         else
    555 
    556 if Side equal 0
    557 
    558 then
    559 "Effectiveness in Cocurrent Flow"
    560         Eft*(1+Details.Cr) = (1-exp(-Details.NTU*(1+Details.Cr)));
    561        
    562         else
    563 
    564 if Details.Cr equal 1
    565        
    566         then
    567 "Effectiveness in Counter Flow"
    568         Eft*(1+Details.NTU) = Details.NTU;
    569        
    570         else
    571 "Effectiveness in Counter Flow"
    572         Eft*(1-Details.Cr*exp(-Details.NTU*(1-Details.Cr))) = (1-exp(-Details.NTU*(1-Details.Cr)));
    573        
    574 end
    575 
    576 end
    577 
    578 
    579 end
    580 
    581 end
    582 
    583 Model Multitubular_Basic
    584        
    585 PARAMETERS
    586 
    587         Npipe           as Integer              (Brief="N Pipe in Series",Default=2);
    588 ext PP                  as CalcObject   (Brief="External Physical Properties");
    589         HE              as CalcObject   (Brief="STHE Calculations",File="heatex");
    590         Pi                      as constant     (Brief="Pi Number",Default=3.14159265);
    591         Hside       as Integer          (Brief="Fluid Alocation Flag-Default:Outer",Lower=0,Upper=1);
    592         DoInner         as length               (Brief="Outside Diameter of Inner Pipe",Lower=1e-6);
    593         DiInner         as length               (Brief="Inside Diameter of Inner Pipe",Lower=1e-10);
    594         DiOuter         as length               (Brief="Inside Diameter of Outer pipe",Lower=1e-10);
    595         Lpipe           as length               (Brief="Effective Tube Length",Lower=0.1);
    596         Kwall           as conductivity (Brief="Tube Wall Material Thermal Conductivity",Default=1.0);
    597 
    598 VARIABLES
    599 
    600 Unity(Npipe)  as DoublePipe_Basic;
    601 
    602 SET
    603         Pi      = 3.14159265;
    604         Hside   = HE.FluidAlocation();
    605644       
    606645#"Inner Pipe Cross Sectional Area for Flow"
    … …  
    754793
    755794Model Multitubular_Basic_LMTD           as Multitubular_Basic
    756 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    757 #       Basic Model for Double Pipe Heat Exchanger- LMTD Method
    758 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     795
     796ATTRIBUTES
     797        Pallete         = false;
     798        Brief           = "Basic Model for Multitubular Double Pipe Heat Exchanger- LMTD Method";
     799        Info            =
     800        "write some information";
     801
    759802VARIABLES
    760803
    761804DT0(Npipe)      as temp_delta   (Brief="Temperature Difference at Inlet",Lower=1);
    762 DTL(Npipe)              as temp_delta   (Brief="Temperature Difference at Outlet",Lower=1);
     805DTL(Npipe)                      as temp_delta   (Brief="Temperature Difference at Outlet",Lower=1);
    763806LMTD(Npipe)             as temp_delta   (Brief="Logarithmic Mean Temperature Difference",Lower=1);
    764807
    … …  
    800843Model Multitubular_Counter_NTU          as Multitubular_Basic
    801844
     845ATTRIBUTES
     846        Pallete         = true;
     847        Brief           = "Multitubular Double Pipe Heat Exchanger in counter flow - NTU Method";
     848        Info            =
     849        "write some information";
     850       
    802851VARIABLES
    803852
    … …  
    845894Model Multitubular_Cocurrent_NTU        as Multitubular_Basic
    846895
     896ATTRIBUTES
     897        Pallete         = true;
     898        Brief           = "Multitubular Double Pipe Heat Exchanger in cocurrent flow - NTU Method";
     899        Info            =
     900        "write some information";
     901       
    847902VARIABLES
    848903
    … …  
    879934Model Multitubular_Counter_LMTD         as Multitubular_Basic_LMTD
    880935
     936ATTRIBUTES
     937        Pallete         = true;
     938        Brief           = "Multitubular Double Pipe Heat Exchanger in counter flow - LMTDMethod";
     939        Info            =
     940        "write some information";
     941       
    881942CONNECTIONS
    882943
    … …  
    899960Model Multitubular_Cocurrent_LMTD       as Multitubular_Basic_LMTD
    900961
     962ATTRIBUTES
     963        Pallete         = true;
     964        Brief           = "Multitubular Double Pipe Heat Exchanger in cocurrent flow - NTU Method";
     965        Info            =
     966        "write some information";
     967       
    901968CONNECTIONS
    902969

  • branches/newlanguage/eml/heat_exchangers/HeatExchangerDiscretized.mso

    r110 r139  
    2020using "HEX_Engine";
    2121
    22 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    23 #       Basic Model for Discretized Heat Exchangers
    24 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    25 
    2622Model HeatExchangerDiscretized_Basic
    2723
     24ATTRIBUTES
     25        Pallete         = false;
     26        Brief           = "Basic Model for Discretized Heat Exchangers";
     27        Info            =
     28        "write some information";
     29       
    2830PARAMETERS
    2931
    30 ext PP      as CalcObject(Brief="External Physical Properties");
    31         HE          as CalcObject(Brief="STHE Calculations",File="heatex");
    32 ext NComp   as Integer   (Brief="Number of Components");
     32outer PP            as Plugin(Brief="External Physical Properties");
     33        HE          as Plugin(Brief="STHE Calculations",File="heatex");
     34outer NComp   as Integer   (Brief="Number of Components");
    3335  M(NComp)  as molweight (Brief="Component Mol Weight");
    3436       
    … …  
    339341
    340342Model Heatex_Discretized_NTU            as HeatExchangerDiscretized_Basic
     343
     344ATTRIBUTES
     345        Pallete         = false;
     346        Brief           = "write some information";
     347        Info            =
     348        "write some information";
    341349       
    342350VARIABLES
    … …  
    355363
    356364Model Heatex_Discretized_LMTD           as HeatExchangerDiscretized_Basic
     365
     366ATTRIBUTES
     367        Pallete         = false;
     368        Brief           = "write some information";
     369        Info            =
     370        "write some information";
    357371       
    358372VARIABLES
    … …  
    408422Model Profiles
    409423
     424ATTRIBUTES
     425        Pallete         = false;
     426        Brief           = "write some information";
     427        Info            =
     428        "write some information";
     429       
    410430PARAMETERS
    411431
    … …  
    436456
    437457Model E_Shell_NTU_Disc           
    438 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    439 #       Shell and Tubes Heat Exchanger with 1 shell pass - NTU Method
    440 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     458
     459ATTRIBUTES
     460        Pallete         = false;
     461        Brief           = "Shell and Tubes Heat Exchanger with 1 shell pass - NTU Method";
     462        Info            =
     463        "write some information";
     464       
    441465PARAMETERS
    442466
    443         HE      as CalcObject   (Brief="STHE Calculations",File="heatex");
    444 ext PP  as CalcObject   (Brief="External Physical Properties");
     467        HE      as Plugin       (Brief="STHE Calculations",File="heatex");
     468outer PP        as Plugin       (Brief="External Physical Properties");
    445469side    as Integer              (Brief="Fluid Alocation",Lower=0,Upper=1);
    446470Pi              as constant     (Brief="Pi Number",Default=3.14159265);
    … …  
    958982end
    959983
    960 Model E_Shell_LMTD_Disc         
    961 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    962 #       Shell and Tubes Heat Exchanger with 1 shell pass - LMTD Method
    963 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     984Model E_Shell_LMTD_Disc 
     985       
     986ATTRIBUTES
     987        Pallete         = false;
     988        Brief           = "Shell and Tubes Heat Exchanger with 1 shell pass - LMTD Method";
     989        Info            =
     990        "write some information";
     991       
    964992PARAMETERS
    965993
    966         HE      as CalcObject   (Brief="STHE Calculations",File="heatex");
    967 ext PP  as CalcObject   (Brief="External Physical Properties");
     994        HE      as Plugin       (Brief="STHE Calculations",File="heatex");
     995outer PP        as Plugin       (Brief="External Physical Properties");
    968996side    as Integer              (Brief="Fluid Alocation",Lower=0,Upper=1);
    969997Pi              as constant     (Brief="Pi Number",Default=3.14159265);

  • branches/newlanguage/eml/heat_exchangers/HeatExchangerSimplified.mso

    r100 r139  
    1919
    2020using "HEX_Engine";
    21 #=====================================================================
    22 #       Basic Models for Simplified Heat Exchangers
    23 #=====================================================================
     21
    2422Model HeatExchangerSimplified_Basic
     23       
     24ATTRIBUTES
     25        Pallete         = false;
     26        Brief           = "Basic Models for Simplified Heat Exchangers";
     27        Info            =
     28        "write some information";
     29       
    2530PARAMETERS
    26 ext PP          as CalcObject   (Brief="External Physical Properties");
    27         HE              as CalcObject   (Brief="STHE Calculations",File="heatex");
    28 ext NComp       as Integer      (Brief="Number of Components");
    29         M(NComp)        as molweight    (Brief="Component Mol Weight");
     31outer PP                as Plugin               (Brief="External Physical Properties");
     32                HE              as Plugin               (Brief="STHE Calculations",File="heatex");
     33outer NComp     as Integer      (Brief="Number of Components");
     34                M(NComp)  as molweight  (Brief="Component Mol Weight");
    3035       
    3136VARIABLES
    3237
    33 in  Inlet               as Inlet_Main_Stream;   # Hot and Cold Inlets
    34 out Outlet              as Outlet_Main_Stream;  # Hot and Cold Outlets
    35         Properties      as Main_Properties;             # Hot and Cold Properties
    36         Details         as Details_Main;
    37         PressureDrop    as Main_Pdrop;
     38in      Inlet                   as Inlet_Main_Stream    (Brief="Hot and Cold Inlets");
     39out     Outlet                  as Outlet_Main_Stream (Brief="Hot and Cold Outlets");
     40                Properties              as Main_Properties              (Brief="Hot and Cold Properties");
     41                Details                 as Details_Main                         (Brief="Heat Exchanger Details");
     42                PressureDrop    as Main_Pdrop                   (Brief="Heat Exchanger Pressure Drop");
    3843
    3944SET
    … …  
    352357
    353358Model Heatex_Basic_NTU   as HeatExchangerSimplified_Basic
    354 #=====================================================================
    355 #       Basic Model for Heat Exchangers - NTU Method
    356 #=====================================================================
     359
     360ATTRIBUTES
     361        Pallete         = false;
     362        Brief           = "Basic Model for Heat Exchangers - NTU Method";
     363        Info            =
     364        "write some information";
     365
    357366VARIABLES
    358367
    … …  
    368377
    369378Model Heatex_Basic_LMTD  as HeatExchangerSimplified_Basic
    370 #=====================================================================
    371 #       Basic Model for Heat Exchangers - LMTD Method
    372 #=====================================================================
     379
     380ATTRIBUTES
     381        Pallete         = false;
     382        Brief           = "Basic Model for Heat Exchangers - LMTD Method";
     383        Info            =
     384        "write some information";
     385
    373386VARIABLES
    374387
    375 DT0     as temp_delta   (Brief="Temperature Difference at Inlet",Lower=1);
     388DT0             as temp_delta   (Brief="Temperature Difference at Inlet",Lower=1);
    376389DTL             as temp_delta   (Brief="Temperature Difference at Outlet",Lower=1);
    377 LMTD    as temp_delta   (Brief="Logarithmic Mean Temperature Difference",Lower=1);
    378 Fc              as positive             (Brief="LMTD Correction Factor",Lower=0.5);
     390LMTD            as temp_delta   (Brief="Logarithmic Mean Temperature Difference",Lower=1);
     391Fc                      as positive             (Brief="LMTD Correction Factor",Lower=0.5);
    379392MTD             as temp_delta   (Brief="Mean Temperature Difference",Lower=1);
    380393
    … …  
    424437Model HeatExchanger_LMTD        as Heatex_Basic_LMTD
    425438
     439ATTRIBUTES
     440        Pallete         = true;
     441        Brief           = "Heat Exchanger Block - LMTD Method";
     442        Info            =
     443        "write some information";
     444       
    426445PARAMETERS
    427446
    … …  
    430449SET
    431450
    432 Side = HE.FlowDir(); # Return Flow Direction
     451# Return Flow Direction
     452        Side = HE.FlowDir();
    433453
    434454EQUATIONS
    … …  
    461481
    462482Model E_Shell_LMTD                      as Heatex_Basic_LMTD       
    463 #=====================================================================
    464 #       Shell and Tubes Heat Exchanger with 1 shell pass - LMTD Method
    465 #===================================================================== 
     483
     484ATTRIBUTES
     485        Pallete         = true;
     486        Brief           = "Shell and Tubes Heat Exchanger with 1 shell pass - LMTD Method";
     487        Info            =
     488        "write some information";
     489       
    466490EQUATIONS
    467491"Temperature Difference at Inlet"
    … …  
    477501
    478502Model F_Shell_LMTD              as Heatex_Basic_LMTD
    479 #=====================================================================
    480 #       Shell and Tubes Heat Exchanger with 2 shell passes - LMTD Method
    481 #=====================================================================
     503       
     504ATTRIBUTES
     505        Pallete         = true;
     506        Brief           = "Shell and Tubes Heat Exchanger with 2 shell pass - LMTD Method";
     507        Info            =
     508        "write some information";
     509       
    482510EQUATIONS
    483511"Temperature Difference at Inlet"
    … …  
    497525
    498526Model HeatExchanger_NTU         as Heatex_Basic_NTU
     527
     528ATTRIBUTES
     529        Pallete         = true;
     530        Brief           = "Heat Exchanger Block - NTU Method";
     531        Info            =
     532        "write some information";
    499533       
    500534PARAMETERS
    … …  
    545579
    546580Model E_Shell_NTU                       as Heatex_Basic_NTU
    547 #=====================================================================
    548 #       Shell and Tubes Heat Exchanger with 1 shell pass - NTU Method
    549 #=====================================================================
     581       
     582ATTRIBUTES
     583        Pallete         = true;
     584        Brief           = "Shell and Tubes Heat Exchanger with 1 shell pass - NTU Method";
     585        Info            =
     586        "write some information";
     587
    550588EQUATIONS
    551589"TEMA E Shell Effectiveness"
    … …  
    554592end
    555593
    556 Model F_Shell_NTU               as Heatex_Basic_NTU
    557 #=====================================================================
    558 #       Shell and Tubes Heat Exchanger with 2 shell passes - NTU Method
    559 #===================================================================== 
     594Model F_Shell_NTU               as Heatex_Basic_NTU
     595
     596ATTRIBUTES
     597        Pallete         = true;
     598        Brief           = "Shell and Tubes Heat Exchanger with 2 shell pass - NTU Method";
     599        Info            =
     600        "write some information";
     601       
    560602VARIABLES
    561603

  • branches/newlanguage/eml/heat_exchangers/Mheatex.mso

    r135 r139  
    7676       
    7777ATTRIBUTES
    78         Pallete = false;
     78        Pallete = true;
    7979        Brief = "Multistream heat exchangers";
    8080        Info =
    … …  
    105105# Flow Direction
    106106        Side = HE.FlowDir();
    107 
    108 # Inlet Ncold Parameters
    109         Inlet.Ncold  = Ncold;
    110        
    111 # Outlet Ncold Parameters
    112         Outlet.Ncold = Ncold;
    113 
    114 # Inlet Nhot Parameters
    115         Inlet.Nhot  = Nhot;
    116        
    117 # Outlet Nhot Parameters
    118         Outlet.Nhot = Nhot ;
    119107
    120108EQUATIONS

  • branches/newlanguage/eml/heat_exchangers/heater.mso

    r135 r139  
    3131
    3232Model Heater_Cooler_Basic
     33
     34ATTRIBUTES
     35        Pallete         = false;
     36        Brief           = "Heater or Cooler Basic Equations";
     37        Info            =
     38        "write some information";
    3339       
    34 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    35 #       Heater or Cooler Basic Equations
    36 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#   
    3740PARAMETERS
    3841        outer PP                as Plugin               (Brief="Physical Properties");
    … …  
    6871
    6972Model Heater            as Heater_Cooler_Basic
    70 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    71 #       Heater
    72 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#   
     73
     74ATTRIBUTES
     75        Pallete         = true;
     76        Brief           = "Heater";
     77        Info            =
     78        "write some information";
     79       
    7380EQUATIONS
    7481
    … …  
    7986
    8087Model Cooler            as Heater_Cooler_Basic
    81 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
    82 #       Cooler
    83 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#   
     88       
     89ATTRIBUTES
     90        Pallete         = true;
     91        Brief           = "Cooler";
     92        Info            =
     93        "write some information";
     94       
    8495EQUATIONS
    8596

  • branches/newlanguage/sample/heat_exchangers/Sample_DoublePipe.mso

    r110 r139  
    2727
    2828FlowSheet Double_Pipe
     29
     30PARAMETERS
     31
     32        PP                      as Plugin (File="vrpp");
     33        NComp           as Integer;
    2934       
    3035DEVICES
    3136
    3237        exchanger       as DoublePipe_LMTD;
    33         streamhot       as streamTP;
    34         streamcold      as streamTP;
     38        streamhot       as source;
     39        streamcold      as source;
    3540
    3641CONNECTIONS
    3742
    38         streamhot       to exchanger.Inlet.Hot;
    39         streamcold      to exchanger.Inlet.Cold;
     43        streamhot.Outlet        to exchanger.Inlet.Hot;
     44        streamcold.Outlet       to exchanger.Inlet.Cold;
    4045       
    41 PARAMETERS
    42 
    43         PP                      as CalcObject (File="vrpp");
    44         NComp           as Integer;
    45 
    4646SET
    4747
    … …  
    4949PP.VapourModel          = "PR";
    5050PP.Components           = ["n-hexane","water"];
    51 NComp                           = PP.NumberOfComponents;
     51NComp                               = PP.NumberOfComponents;
    5252
    5353#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    … …  
    7373#               Hot Stream
    7474#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    75         streamhot.F = 10                        * "kmol/h";
    76         streamhot.T = (68+273.15)   * "K";
    77         streamhot.P = 5.4                       * "bar";
    78         streamhot.z = [1,0];
     75        streamhot.Outlet.F = 10                         * "kmol/h";
     76        streamhot.Outlet.T = (68+273.15)   * "K";
     77        streamhot.Outlet.P = 5.4                        * "bar";
     78        streamhot.Outlet.z = [1,0];
    7979       
    8080#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    8181#       Cold Stream
    8282#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    83         streamcold.F = 5                        * "kmol/h";
    84         streamcold.P = 5.1              * "bar";
    85         streamcold.T = (23+273.15)      * "K";
    86     streamcold.z = [0,1];
     83        streamcold.Outlet.F = 5                         * "kmol/h";
     84        streamcold.Outlet.P = 5.1               * "bar";
     85        streamcold.Outlet.T = (23+273.15)       * "K";
     86    streamcold.Outlet.z = [0,1];
    8787#=====================================================================
    8888#       Fouling
    … …  
    9393OPTIONS
    9494
    95 mode = "steady";
     95Dynamic = false;
    9696
    9797end

  • branches/newlanguage/sample/heat_exchangers/Sample_DoublePipe_Series.mso

    r100 r139  
    88DEVICES
    99
    10         Pipe(2)         as DoublePipe_LMTD;
    11         streamhot       as streamTP;
    12         streamcold      as streamTP;
     10        Pipe(2)                 as DoublePipe_LMTD;
     11        streamhot       as source;
     12        streamcold      as source;
    1313
    1414CONNECTIONS
    1515
    16         streamhot                       to Pipe(1).Inlet.Hot;
     16        streamhotOutlet.        to Pipe(1).Inlet.Hot;
    1717        Pipe(1).Outlet.Hot      to Pipe(2).Inlet.Hot;
    1818       
    19         streamcold                      to Pipe(1).Inlet.Cold;
    20         Pipe(1).Outlet.Cold to Pipe(2).Inlet.Cold;
     19        streamcoldOutlet.       to Pipe(1).Inlet.Cold;
     20        Pipe(1).Outlet.Cold   to Pipe(2).Inlet.Cold;
    2121       
    2222PARAMETERS
    … …  
    5555#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    5656
    57         streamhot.F = 100               * "kmol/h";
    58         streamhot.T = (70+273.15)   * "K";
    59         streamhot.P = 5                         * "bar";
    60         streamhot.z = [1,0];
     57        streamhot.Outlet.F = 100                * "kmol/h";
     58        streamhot.Outlet.T = (70+273.15)   * "K";
     59        streamhot.Outlet.P = 5                  * "bar";
     60        streamhot.Outlet.z = [1,0];
    6161       
    6262#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    … …  
    6464#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    6565
    66         streamcold.F = 5                        * "kmol/h";
    67         streamcold.P = 5                * "bar";
    68         streamcold.T = (25+273.15)      * "K";
    69     streamcold.z = [0,1];
     66        streamcold.Outlet.F = 5                         * "kmol/h";
     67        streamcold.Outlet.P = 5                 * "bar";
     68        streamcold.Outlet.T = (25+273.15)       * "K";
     69    streamcold.Outlet.z = [0,1];
    7070#=====================================================================
    7171#       Fouling
    … …  
    7575       
    7676OPTIONS
    77 mode            = "steady";
     77
     78Dynamic = false;
    7879
    7980end
Note: See TracChangeset for help on using the changeset viewer.