Artifact 79aee20085180398d37c3867db5739dc97f5a07cee05c89c2ba3dd863901867c:

• Executable file mttroot/mtt/lib/comp/compound/Thermal/IncompressibleFlow/Tank/Tank_cr.r — part of check-in [9de8b4080d] at 2000-12-28 10:41:34 on branch origin/master — Put under RCS (user: gawthrop@users.sourceforge.net, size: 387) [annotate] [blame] [check-ins using] [more...]

% Constitutive relation file for Tank (Tank_cr.r)
% Generated by MTT at Thu Mar  5 10:30:23 GMT 1998

OPERATOR tank;

%Pressure
FOR ALL rho,c_p,c,Volume,Energy
LET tank(rho,c_p,c,effort,1,
	Volume,state,1,
	Energy,state,2
	) = (Volume*rho)/c;

%Temperature
FOR ALL rho,c_p,c,Volume,Energy
LET tank(rho,c_p,c,effort,2,
	Volume,state,1,
	Energy,state,2
	) = Energy/(Volume*rho*c_p);

END;