ADLib

dc51bf9c-5d91-4483-895d-2b2e06c4b607 64 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

ADLib

Wrappers __________________________________________________________________________________________

Numerical Int f a b NInt f a b MaxIters NIntTrap :

Cool Prop Wrapper Π Prop Π Fluid Prop : Π F Prop F strtoupper Π strtoupper CoolProp_Props1 : Π a b Prop U K Pa kg m 3^/ J kg / J kg K * / mol m 3^/ J mol / J mol K * / 1 T P d h s dmolar hmolar smolar q 29 mat transpose : A U a UnitsOf 1 findrows 12 el : B U b UnitsOf 1 findrows 12 el : Π A a B b Fluid Prop 41 line : Π P1 V1 P2 V2 F Prop Π strtoupper P1 strtoupper V1 P2 strtoupper V2 F strtoupper CoolProp_Props : 41 line

Symbolic Toolbox Wrapper x Μ x maple eval :

1+1 Μ 2

Small Utilities

x Δ x 2 el x 1 el - :

x t f If x t f if 11 line :

x a OnError ge :

Utilities __________________________________________________________________________________________

Check if  a var is an array x IsArray x GetType matrix ≡ 11 line :

Unnary Application f x Α f num2str (x eval num2str) concat str2num 11 line :

Numerical Derivatives f a NDiff a IsArray ε a rows identity ε.o * a UnitsOf * : φ f a Α : m 1 φ rows range n 1 a rows range J m n el f a ε n col + Α m el φ m el - : 11 line for 11 line for J ε.o / 41 line f a ε.o a UnitsOf * + Α f a Α - ε.o / if 11 line :

f a k IsRoot φ f a Α : k MaxIters < φ IsArray φ norme δ.o φ UnitsOf * < φ abs δ.o φ UnitsOf * < if 11 line MaxIters Rached error if 21 line :

Numerical Root by Newton-Raphson method f a Root k 0 : a IsArray f a k IsRoot ¬ J f a NDiff : a a J invert f a Α * a UnitsOf * - : k k 1 + : 31 line while f a k IsRoot ¬ a a f a Α f a NDiff / a UnitsOf * - : k k 1 + : 21 line while 11 line if a 31 line :

Numerical Root by bisection method f a b Root k 0 : a IsArray Not Implemented Yet error f a Α f b Α * 0 > Bad Interval error c a b + 2 / : f c k IsRoot ¬ k k 1 + : c a b + 2 / : f a Α f c Α * 0 < b c : a c : if 31 line while 21 line if if c 31 line :

Numerical Int - Trap Method f a b N NIntTrap h b a - N / : h 2 / f a Α f b Α + 2 f a k h * + Α k 1 N 1 - sum * + (* 21 line :

Constants __________________________________________________________________________________________

e 1 exp :

π π :

i 1 - sqrt :

j i :

NaN NaN :

true 1 :

false 0 :

MaxIters 100 :

ε.o 105 -^:

δ.o 107 -^:

ADLib Test

ξ T X F X 1 el X 2 el * X 1 el X 3 el (2^+ 4 X 2 el * 31 mat : F 12331 mat NDiff 21 line :

0 T 21010604033 mat

ξ T x φ x 2^3 - : φ 2 Root φ 2 - Root 12 mat 21 line :

0 T 1.7321 1.7321 - 12 mat

ξ T X F X 1 el (2^X 2 el (2^- 64 - X 1 el 3 X 2 el * + 7 - 21 mat : F 0021 mat Root F 5 - 021 mat Root 12 mat 21 line :

0 T 8.007 0.3357 - 21 mat 9.757 - 5.5857 21 mat 12 mat

ξ T x φ x 2^3 - : φ 20 Root φ 2 - 0 Root 12 mat 21 line :

0 T 1.7321 1.7321 - 12 mat

T Clear 1

CoolProps

params parameter_list CoolProp_get_global_param_string, strsplit :

params length 162

desc.l params long CoolProp_get_parameter_information_string vectorize :

desc.s params short CoolProp_get_parameter_information_string vectorize :

desc.io params IO CoolProp_get_parameter_information_string vectorize :

desc.u params units CoolProp_get_parameter_information_string vectorize :

vals.std #ix.~w 42627303134383940444546648798104110115130136137138139140141157126 mat : #ix.w #ix params length 1 matrix : #j #ix.~w #ix #j el 1 : for #M 01 matrix (: #j 1 params length range #ix #j el 0 ≡ #M #M #j 11 mat stack : if for #M 51 line : #M params length 1 matrix (: #j #ix.w #M #j el params #j el T 20 °C * P 1 atm * Water CoolProp_Props : for #j #ix.~w #M #j el ERROR : for #M 61 line :

result params desc.io desc.u desc.s desc.l vals.std augment :

result A O m/s speed_of_sound Speed of sound 1482.34617484564 m s / * ACENTRIC O - acentric Acentric factor 0.3442920843 ALPHA0 O - alpha0 Ideal Helmholtz energy 9.94269815083388 ALPHAR O - alphar Residual Helmholtz energy ERROR BVIRIAL O - Bvirial Second virial coefficient 0.001357832070615 - Bvirial O - Bvirial Second virial coefficient 0.001357832070615 - C O J/kg/K Cpmass Mass specific constant pressure specific heat 4184.05092453907 m 2^K s 2^* / * CONDUCTIVITY O W/m/K conductivity Thermal conductivity 0.598012355523147 kg m * K s 3^* / * CP0MASS O J/kg/K Cp0mass Ideal gas mass specific constant pressure specific heat 1863.18070035154 m 2^K s 2^* / * CP0MOLAR O J/mol/K Cp0molar Ideal gas molar specific constant pressure specific heat 33.5656996492606 kg m 2^* mol K * s 2^* / * CPMASS O J/kg/K Cpmass Mass specific constant pressure specific heat 4184.05092453907 m 2^K s 2^* / * CPMOLAR O J/mol/K Cpmolar Molar specific constant pressure specific heat 75.3767987312191 kg m 2^* mol K * s 2^* / * CVIRIAL O - Cvirial Third virial coefficient 5.326204727 106 -^* - CVMASS O J/kg/K Cvmass Mass specific constant volume specific heat 4156.6814728791 m 2^K s 2^* / * CVMOLAR O J/mol/K Cvmolar Molar specific constant volume specific heat 74.8837307245516 kg m 2^* mol K * s 2^* / * Cp0mass O J/kg/K Cp0mass Ideal gas mass specific constant pressure specific heat 1863.18070035154 m 2^K s 2^* / * Cp0molar O J/mol/K Cp0molar Ideal gas molar specific constant pressure specific heat 33.5656996492606 kg m 2^* mol K * s 2^* / * Cpmass O J/kg/K Cpmass Mass specific constant pressure specific heat 4184.05092453907 m 2^K s 2^* / * Cpmolar O J/mol/K Cpmolar Molar specific constant pressure specific heat 75.3767987312191 kg m 2^* mol K * s 2^* / * Cvirial O - Cvirial Third virial coefficient 5.326204727 106 -^* - Cvmass O J/kg/K Cvmass Mass specific constant volume specific heat 4156.6814728791 m 2^K s 2^* / * Cvmolar O J/mol/K Cvmolar Molar specific constant volume specific heat 74.8837307245516 kg m 2^* mol K * s 2^* / * D IO kg/m^3 Dmass Mass density 998.207150467702 kg m 3^/ * DALPHA0_DDELTA_CONSTTAU O - dalpha0_ddelta_consttau Derivative of ideal Helmholtz energy with delta 0.322578334415987 DALPHA0_DTAU_CONSTDELTA O - dalpha0_dtau_constdelta Derivative of ideal Helmholtz energy with tau 8.04753705112608 DALPHAR_DDELTA_CONSTTAU O - dalphar_ddelta_consttau Derivative of residual Helmholtz energy with delta ERROR DALPHAR_DTAU_CONSTDELTA O - dalphar_dtau_constdelta Derivative of residual Helmholtz energy with tau ERROR DBVIRIAL_DT O - dBvirial_dT Derivative of second virial coefficient with respect to T 2.4963984884 105 -^* DCVIRIAL_DT O - dCvirial_dT Derivative of third virial coefficient with respect to T 1.86036153 107 -^* DELTA IO - Delta Reduced density (rho/rhoc) ERROR DIPOLE_MOMENT O C-m dipole_moment Dipole moment ERROR DMASS IO kg/m^3 Dmass Mass density 998.207150467702 kg m 3^/ * DMOLAR IO mol/m^3 Dmolar Molar density 55408.9536979246 mol m 3^/ * Delta IO - Delta Reduced density (rho/rhoc) ERROR Dmass IO kg/m^3 Dmass Mass density 998.207150467702 kg m 3^/ * Dmolar IO mol/m^3 Dmolar Molar density 55408.9536979246 mol m 3^/ * FH O - FH Flammability hazard 0 FRACTION_MAX O - fraction_max Fraction (mole, mass, volume) maximum value for incompressible solutions ERROR FRACTION_MIN O - fraction_min Fraction (mole, mass, volume) minimum value for incompressible solutions ERROR FUNDAMENTAL_DERIVATIVE_OF_GAS_DYNAMICS O - fundamental_derivative_of_gas_dynamics Fundamental derivative of gas dynamics ERROR GAS_CONSTANT O J/mol/K gas_constant Molar gas constant 8.314371357587 kg m 2^* mol K * s 2^* / * GMASS O J/kg Gmass Mass specific Gibbs energy 2900.7795888598 m 2^s 2^/ * - GMOLAR O J/mol Gmolar Molar specific Gibbs energy 52.2583217022391 kg m 2^* mol s 2^* / * - GWP100 O - GWP100 100-year global warming potential ERROR GWP20 O - GWP20 20-year global warming potential ERROR GWP500 O - GWP500 500-year global warming potential ERROR Gmass O J/kg Gmass Mass specific Gibbs energy 2900.7795888598 m 2^s 2^/ * - Gmolar O J/mol Gmolar Molar specific Gibbs energy 52.2583217022391 kg m 2^* mol s 2^* / * - H IO J/kg Hmass Mass specific enthalpy 84007.3008500507 m 2^s 2^/ * HH O - HH Health hazard 0 HMASS IO J/kg Hmass Mass specific enthalpy 84007.3008500507 m 2^s 2^/ * HMOLAR IO J/mol Hmolar Molar specific enthalpy 1513.41403877029 kg m 2^* mol s 2^* / * Hmass IO J/kg Hmass Mass specific enthalpy 84007.3008500507 m 2^s 2^/ * Hmolar IO J/mol Hmolar Molar specific enthalpy 1513.41403877029 kg m 2^* mol s 2^* / * I O N/m surface_tension Surface tension 0.072816755694912 kg s 2^/ * ISOBARIC_EXPANSION_COEFFICIENT O 1/K isobaric_expansion_coefficient Isobaric expansion coefficient 0.000206806207294 1 K / * ISOTHERMAL_COMPRESSIBILITY O 1/Pa isothermal_compressibility Isothermal compressibility 4.58913 1010 -^* m s 2^* kg / * L O W/m/K conductivity Thermal conductivity 0.598012355523147 kg m * K s 3^* / * M O kg/mol molar_mass Molar mass 0.018015268 kg mol / * MOLARMASS O kg/mol molar_mass Molar mass 0.018015268 kg mol / * MOLAR_MASS O kg/mol molar_mass Molar mass 0.018015268 kg mol / * MOLEMASS O kg/mol molar_mass Molar mass 0.018015268 kg mol / * O O J/kg/K Cvmass Mass specific constant volume specific heat 4156.6814728791 m 2^K s 2^* / * ODP O - ODP Ozone depletion potential ERROR P IO Pa P Pressure 1.01325 105^* kg m s 2^* / * PCRIT O Pa p_critical Pressure at the critical point 2.2064 107^* kg m s 2^* / * PH O - PH Physical hazard 0 PHASE O - Phase Phase index as a float 0 PIP O - PIP Phase identification parameter 14.5515413903069 - PMAX O Pa P_max Maximum pressure limit 1109^* kg m s 2^* / * PMIN O Pa P_min Minimum pressure limit 611.654667047677 kg m s 2^* / * PRANDTL O - Prandtl Prandtl number 7.00776368570683 PTRIPLE O Pa p_triple Pressure at the triple point (pure only) 611.654667047677 kg m s 2^* / * P_CRITICAL O Pa p_critical Pressure at the critical point 2.2064 107^* kg m s 2^* / * P_MAX O Pa P_max Maximum pressure limit 1109^* kg m s 2^* / * P_MIN O Pa P_min Minimum pressure limit 611.654667047677 kg m s 2^* / * P_REDUCING O Pa p_reducing Pressure at the reducing point 2.2064 107^* kg m s 2^* / * P_TRIPLE O Pa p_triple Pressure at the triple point (pure only) 611.654667047677 kg m s 2^* / * P_max O Pa P_max Maximum pressure limit 1109^* kg m s 2^* / * P_min O Pa P_min Minimum pressure limit 611.654667047677 kg m s 2^* / * Pcrit O Pa p_critical Pressure at the critical point 2.2064 107^* kg m s 2^* / * Phase O - Phase Phase index as a float 0 Prandtl O - Prandtl Prandtl number 7.00776368570683 Q IO mol/mol Q Mass vapor quality 1 - RHOCRIT O kg/m^3 rhomass_critical Mass density at critical point 322 kg m 3^/ * RHOMASS_CRITICAL O kg/m^3 rhomass_critical Mass density at critical point 322 kg m 3^/ * RHOMASS_REDUCING O kg/m^3 rhomass_reducing Mass density at reducing point ERROR RHOMOLAR_CRITICAL O mol/m^3 rhomolar_critical Molar density at critical point 17873.7279956091 mol m 3^/ * RHOMOLAR_REDUCING O mol/m^3 rhomolar_reducing Molar density at reducing point 17873.7279956091 mol m 3^/ * S IO J/kg/K Smass Mass specific entropy 296.462836223471 m 2^K s 2^* / * SMASS IO J/kg/K Smass Mass specific entropy 296.462836223471 m 2^K s 2^* / * SMOLAR IO J/mol/K Smolar Molar specific entropy 5.34085744660593 kg m 2^* mol K * s 2^* / * SPEED_OF_SOUND O m/s speed_of_sound Speed of sound 1482.34617484564 m s / * SURFACE_TENSION O N/m surface_tension Surface tension 0.072816755694912 kg s 2^/ * Smass IO J/kg/K Smass Mass specific entropy 296.462836223471 m 2^K s 2^* / * Smolar IO J/mol/K Smolar Molar specific entropy 5.34085744660593 kg m 2^* mol K * s 2^* / * T IO K T Temperature 293.15 K * TAU IO - Tau Reciprocal reduced temperature (Tc/T) ERROR TCRIT O K T_critical Temperature at the critical point 647.096 K * TMAX O K T_max Maximum temperature limit 1273 K * TMIN O K T_min Minimum temperature limit 273.16 K * TTRIPLE O K T_triple Temperature at the triple point 273.16 K * T_CRITICAL O K T_critical Temperature at the critical point 647.096 K * T_FREEZE O K T_freeze Freezing temperature for incompressible solutions ERROR T_MAX O K T_max Maximum temperature limit 1273 K * T_MIN O K T_min Minimum temperature limit 273.16 K * T_REDUCING O K T_reducing Temperature at the reducing point 647.096 K * T_TRIPLE O K T_triple Temperature at the triple point 273.16 K * T_critical O K T_critical Temperature at the critical point 647.096 K * T_freeze O K T_freeze Freezing temperature for incompressible solutions ERROR T_max O K T_max Maximum temperature limit 1273 K * T_min O K T_min Minimum temperature limit 273.16 K * T_reducing O K T_reducing Temperature at the reducing point 647.096 K * T_triple O K T_triple Temperature at the triple point 273.16 K * Tau IO - Tau Reciprocal reduced temperature (Tc/T) ERROR Tcrit O K T_critical Temperature at the critical point 647.096 K * Tmax O K T_max Maximum temperature limit 1273 K * Tmin O K T_min Minimum temperature limit 273.16 K * Ttriple O K T_triple Temperature at the triple point 273.16 K * U IO J/kg Umass Mass specific internal energy 83905.7938633016 m 2^s 2^/ * UMASS IO J/kg Umass Mass specific internal energy 83905.7938633016 m 2^s 2^/ * UMOLAR IO J/mol Umolar Molar specific internal energy 1511.58536320013 kg m 2^* mol s 2^* / * Umass IO J/kg Umass Mass specific internal energy 83905.7938633016 m 2^s 2^/ * Umolar IO J/mol Umolar Molar specific internal energy 1511.58536320013 kg m 2^* mol s 2^* / * V O Pa-s viscosity Viscosity 0.001001596143121 kg m s * / * VISCOSITY O Pa-s viscosity Viscosity 0.001001596143121 kg m s * / * Z O - Z Compressibility factor 0.000750269594192 acentric O - acentric Acentric factor 0.3442920843 alpha0 O - alpha0 Ideal Helmholtz energy 9.94269815083388 alphar O - alphar Residual Helmholtz energy ERROR conductivity O W/m/K conductivity Thermal conductivity 0.598012355523147 kg m * K s 3^* / * dBvirial_dT O - dBvirial_dT Derivative of second virial coefficient with respect to T 2.4963984884 105 -^* dCvirial_dT O - dCvirial_dT Derivative of third virial coefficient with respect to T 1.86036153 107 -^* dalpha0_ddelta_consttau O - dalpha0_ddelta_consttau Derivative of ideal Helmholtz energy with delta 0.322578334415987 dalpha0_dtau_constdelta O - dalpha0_dtau_constdelta Derivative of ideal Helmholtz energy with tau 8.04753705112608 dalphar_ddelta_consttau O - dalphar_ddelta_consttau Derivative of residual Helmholtz energy with delta ERROR dalphar_dtau_constdelta O - dalphar_dtau_constdelta Derivative of residual Helmholtz energy with tau ERROR dipole_moment O C-m dipole_moment Dipole moment ERROR fraction_max O - fraction_max Fraction (mole, mass, volume) maximum value for incompressible solutions ERROR fraction_min O - fraction_min Fraction (mole, mass, volume) minimum value for incompressible solutions ERROR fundamental_derivative_of_gas_dynamics O - fundamental_derivative_of_gas_dynamics Fundamental derivative of gas dynamics ERROR gas_constant O J/mol/K gas_constant Molar gas constant 8.314371357587 kg m 2^* mol K * s 2^* / * isobaric_expansion_coefficient O 1/K isobaric_expansion_coefficient Isobaric expansion coefficient 0.000206806207294 1 K / * isothermal_compressibility O 1/Pa isothermal_compressibility Isothermal compressibility 4.58913 1010 -^* m s 2^* kg / * molar_mass O kg/mol molar_mass Molar mass 0.018015268 kg mol / * molarmass O kg/mol molar_mass Molar mass 0.018015268 kg mol / * molemass O kg/mol molar_mass Molar mass 0.018015268 kg mol / * p_critical O Pa p_critical Pressure at the critical point 2.2064 107^* kg m s 2^* / * p_reducing O Pa p_reducing Pressure at the reducing point 2.2064 107^* kg m s 2^* / * p_triple O Pa p_triple Pressure at the triple point (pure only) 611.654667047677 kg m s 2^* / * pcrit O Pa p_critical Pressure at the critical point 2.2064 107^* kg m s 2^* / * pmax O Pa P_max Maximum pressure limit 1109^* kg m s 2^* / * pmin O Pa P_min Minimum pressure limit 611.654667047677 kg m s 2^* / * ptriple O Pa p_triple Pressure at the triple point (pure only) 611.654667047677 kg m s 2^* / * rhocrit O kg/m^3 rhomass_critical Mass density at critical point 322 kg m 3^/ * rhomass_critical O kg/m^3 rhomass_critical Mass density at critical point 322 kg m 3^/ * rhomass_reducing O kg/m^3 rhomass_reducing Mass density at reducing point ERROR rhomolar_critical O mol/m^3 rhomolar_critical Molar density at critical point 17873.7279956091 mol m 3^/ * rhomolar_reducing O mol/m^3 rhomolar_reducing Molar density at reducing point 17873.7279956091 mol m 3^/ * speed_of_sound O m/s speed_of_sound Speed of sound 1482.34617484564 m s / * surface_tension O N/m surface_tension Surface tension 0.072816755694912 kg s 2^/ * viscosity O Pa-s viscosity Viscosity 0.001001596143121 kg m s * / * 1626 mat

fluids_list CoolProp_get_global_param_string, strsplit 1-Butene Acetone Air Ammonia Argon Benzene CarbonDioxide CarbonMonoxide CarbonylSulfide cis-2-Butene CycloHexane Cyclopentane CycloPropane D4 D5 D6 Deuterium DiethylEther DimethylCarbonate DimethylEther Ethane Ethanol EthylBenzene Ethylene Fluorine HeavyWater Helium HFE143m Hydrogen HydrogenSulfide IsoButane IsoButene Isohexane Isopentane Krypton m-Xylene MD2M MD3M MD4M MDM Methane Methanol MethylLinoleate MethylLinolenate MethylOleate MethylPalmitate MethylStearate MM n-Butane n-Decane n-Dodecane n-Heptane n-Hexane n-Nonane n-Octane n-Pentane n-Propane n-Undecane Neon Neopentane Nitrogen NitrousOxide Novec649 o-Xylene OrthoDeuterium OrthoHydrogen Oxygen p-Xylene ParaDeuterium ParaHydrogen Propylene Propyne R11 R113 R114 R115 R116 R12 R123 R1233zd(E) R1234yf R1234ze(E) R1234ze(Z) R124 R125 R13 R134a R13I1 R14 R141b R142b R143a R152A R161 R21 R218 R22 R227EA R23 R236EA R236FA R245fa R32 R365MFC R40 R404A R407C R41 R410A R507A RC318 SES36 SulfurDioxide SulfurHexafluoride Toluene trans-2-Butene Water Xenon 1181 mat

predefined_mixtures CoolProp_get_global_param_string, strsplit Air.mix Amarillo.mix Ekofisk.mix GulfCoast.mix HighCO2.mix HighN2.mix NaturalGasSample.mix R401A.mix R401B.mix R401C.mix R402A.mix R402B.mix R403A.mix R403B.mix R404A.mix R405A.mix R406A.mix R407A.mix R407B.mix R407C.mix R407D.mix R407E.mix R407F.mix R408A.mix R409A.mix R409B.mix R410A.mix R410B.mix R411A.mix R411B.mix R412A.mix R413A.mix R414A.mix R414B.mix R415A.mix R415B.mix R416A.mix R417A.mix R418A.mix R419A.mix R420A.mix R421A.mix R421B.mix R422A.mix R422B.mix R422C.mix R422D.mix R423A.mix R424A.mix R425A.mix R426A.mix R427A.mix R428A.mix R429A.mix R430A.mix R431A.mix R432A.mix R433A.mix R434A.mix R435A.mix R436A.mix R436B.mix R437A.mix R438A.mix R441A.mix R442A.mix R443A.mix R444A.mix R500.mix R501.mix R502.mix R503.mix R504.mix R507A.mix R508A.mix R508B.mix R509A.mix R510A.mix R512A.mix 791 mat

errstring CoolProp_get_global_param_string p is not a valid number : PropsSI("T","P",400000,"D",1.161367841,"AIR")

warnstring CoolProp_get_global_param_string

version CoolProp_get_global_param_string 5.1.2

gitrevision CoolProp_get_global_param_string d9132da24b171e11a9cf1a59322d6b10075238d6

Ethane aliases CoolProp_get_fluid_param_string ethane, ETHANE, R170

Water CAS CoolProp_get_fluid_param_string 7732-18-5

T 20 °C * P 1 atm * Benzene CoolProp_Phase liquid

T 120 °C * P 1 atm * Ammonia CoolProp_Phase gas

Oxygen Tcrit CoolProp_Props1 154.581 K *

Tcrit Oxygen CoolProp_Props1 154.581

An adiabatic nozzle

An adiabatic nozzle

Steam at 3 MPa and 400 C enters an adiabatic nozzle steadily with a velocity of 40 m/s and leaves at 2.5 MPa and 300 m/s. Determine

(a) the exit temperature and

(b) the ratio of the inlet to exit area A1/A2.

]]>

T 0 :

h 0 :

Data

P 3 2.5 21 mat MPa * :

T 1 el 400 °C * :

w 4030021 mat m s / * :

m.dot 0.05 kg s / * :

Fluid Water :

Equations

Δh Δw 2^2 / - ≡

Conservation of Energy SSSF energy balance

Nozzle

m.dot A 1 el w 1 el v 1 el / * ≡ A 2 el w 2 el v 2 el / * ≡

Solver

h 1 el h P 1 el T 1 el Prop :

h 2 el h 1 el w 1 el (2^2 / + w 2 el (2^2 / - : kJ kg / 3231.6863 3187.4863 21 mat

T 2 el T P 2 el h 2 el Prop : °C 400 376.6052 21 mat

ρ d T P Prop vectorize : kg m 3^/ 10.0625 8.6707 21 mat

A m.dot ρ w * / vectorize : mm 2^124.2239 19.2218 21 mat

A 1 el A 2 el / 6.4626

Throttling of a refrigerant

Throttling of a refrigerant

Refrigerant-134a at 800 kPa and 25 C is throttled to a temperature of -20 C. Determine the pressure and internal energy of the refrigerant at the final state.

]]>

T 0 :

h 0 :

P 0 :

Data

P 1 el 800 kPa * :

T 2520 - 21 mat °C * :

Fluid R134A :

Equations

Q.in Wout - ΔE ≡ m Δh * ≡

Adiabatic throttle: Q.in≡0 Not changes iv V: W.out≡0

then

Δh 0 ≡

Solver

h 1 el h P 1 el T 1 el Prop :

h 2 el h 1 el : kJ kg / 234.55 234.55 21 mat

P 2 el P T 2 el h 2 el Prop : #

P 2 el 150.8 kPa * :

FAILS

Z Z P T Prop vectorize : 0.0273 0.0054 21 mat

V 1 dmolar P T Prop / vectorize : m 3^mol / 8.4497 105 -^* 7.5116 105 -^* 21 mat

u P 2 el T 2 el Prop kJ kg / 173.5304

P 2 el Z 2 el R.m * T 2 el V 2 el / * : kPa 800 150.8 21 mat

h P 2 el T 2 el Prop kJ kg / 173.6414

rho T 1 el 59.8 kJ kg / * Prop #

Steam-to-air heat exchanger

Steam to air heat exchanger

In a steam heating system, air is heated by being passed over some tubes through which steam flows steadily. Steam enters the heat exchanger at 30 psia and 400 F at a rate of 15 lbm/min and leaves at 25 psia, 212 F. Air enters at 14.7 psia and 80 F and leaves at 130 F. Determine the volume flow rate of air at the inlet.

]]>

T 0 :

h 0 :

P 0 :

Data

P.air 2520 - 21 mat psi * :

T.air 2520 - 21 mat °F * :

Fluid Air :

P.air 2520 - 21 mat psi * :

T.air 2520 - 21 mat °F * :

Fluid Air :

Equations

Q.in Wout - ΔE ≡ m Δh * ≡

Adiabatic throttle: Q.in≡0 Not changes iv V: W.out≡0

then

Δh 0 ≡

Solver

h 1 el h P 1 el T 1 el Prop :

h 2 el h 1 el : kJ kg / #

P 2 el P T 2 el h 2 el Prop : #

P 2 el 150.8 kPa * :

FAILS

Z Z P T Prop vectorize : #

V 1 dmolar P T Prop / vectorize : m 3^mol / #

u P 2 el T 2 el Prop kJ kg / #

P 2 el Z 2 el R.m * T 2 el V 2 el / * : kPa #

h P 2 el T 2 el Prop kJ kg / #

rho T 1 el 59.8 kJ kg / * Prop #