text(Square Cavity; Various Fluids/Properties
title
libref=761
DISPLAY
This In-Form case illustrates the setting of properties by
way of case 089.
First, case 249 (moving-wall cavity) is loaded. Then, the
wall temperatures are changed.to absolute values
The variable TEM1 is created as equal to H1, which case 249
treats as temperature rather than enthalpy.
Thereafter case 089, which contains fluid properties as
functions of TEM1, is loaded for fluid_name = saturated_water.
The following In-Form statement calculates the enthalpy
(STORED var ENT1 is TEM1*CP1)
The Q1 contains PHOTON USE commands
ENDDIS
Load($249)
GROUP 1. Run title and other preliminaries
TEXT(Square Cavity; Various Fluids
GROUP 7. Variables stored, solved , named
STORE(ENT1,CP1,RHO1,CP1,ENUL,COND)
FIINIT(H1)=300.0
GROUP 13. Boundary conditions and special sources
** South wall, at rest
COVAL(SOUTH,H1,1.0,273.0)
** North wall, moving
COVAL(MOVE,H1,1.0,350.0)
** West wall, at rest
COVAL(WEST,H1,1.0,273.0)
** East wall, at rest
COVAL(EAST,H1,1.0,273.0)
In-Form statemnts
INFORM7BEGIN
(STORED var TEM1 is H1) ! h1 is temperature in case 249
! but case 089 needs the name tem1
(STORED var ENT1 is H1*CP1) ! enthalpy is temperature times sp.ht.
INFORM7END
INFORM9BEGIN
char(fluid_name) ! now declared in 014.htm
Choose a name
fluid_name=saturated_water ! the chosen fluid
fluid_name=SAE_5W-30_engine_oil ! chose one of the following by
fluid_name=SAE_10W-30_engine_oil ! moving its line two spaces to
fluid_name=SAE_20W-20_engine_oil ! the left
fluid_name=Ethylene_Glycol
fluid_name=Ethylene_Glycol_50%_by_volume_aqueous_solution
fluid_name=Gasoline
fluid_name=Glycerin
fluid_name=Refrigerant-12
fluid_name=Refrigerant-134a
fluid_name=Therminol_59
-------------
fluid_name=Therminol_66
------------
fluid_name=Dowtherm_A
fluid_name=Syltherm_800
fluid_name=FC-72
fluid_name=HFE-7100
-------------
fluid_name=Mercury
------------------
fluid_name=Air
fluid_name=Ammonia
fluid_name=Argon
fluid_name=Carbon_Dioxide
fluid_name=Carbon_Monoxide
fluid_name=Helium
fluid_name=Hydrogen
fluid_name=Methane
fluid_name=Nitrogen
fluid_name=Oxygen
fluid_name=superheated_water_vapor
fluid_name=saturated_water_vapor
fluid_name=saturated_vapor_Refrigerant-12
fluid_name=saturated_vapor_Refrigerant-134a
load fluid-property file, case 089
l($089)
text(:fluid_name:
INFORM9END
LSWEEP=500;resfac=1.e-6;ISWC1=1
tstswp=-1;LIBREF = 761
distil=t
EX(P1)=7.005E-01; EX(U1)=2.769E-02; EX(V1)=2.540E-02
EX(TEM1)=2.909E+02;EX(H1)=2.919E+02; EX(COND)=5.950E-01
EX(RHO1)=9.965E+02; EX(ENUL)=1.054E-06; EX(CP1)=4.147E+03
EX(ENT1)=1.207E+06; EX(HCOR)=3.453E-05; EX(HRES)=1.924E-06
PHOTON USE
p;;;;;
con TEM1 z 1 fi;0.001
pause
con cp1 z 1 fi;0.001
pause
con enul z 1 fi;0.001
pause
con rho1 z 1 fi;0.001
pause
con ent1 z 1 fi;0.001
ENDUSE
STOP