Artifact d6639e6e67a434d3920b811f731faa5a21d5b529bbed9584482bc617e070deac:

• Executable file mtt/lib/comp/compound/Thermal/CompressibleFlow/NozzleFlow/NozzleFlow_cr.r — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 679) [annotate] [blame] [check-ins using] [more...]
• Executable file mttroot/mtt/lib/comp/compound/Thermal/CompressibleFlow/NozzleFlow/NozzleFlow_cr.r — part of check-in [eaeee17e5e] at 1998-09-24 10:50:11 on branch origin/master — Initial revision (user: gawthrop@users.sourceforge.net, size: 679) [annotate] [blame] [check-ins using]

% Constitutive relation file for NozzleFlow (NozzleFlow_cr.r)
% Generated by PJG at Wed Apr 8 09:30 GMT 1998


% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % $Id$
% % $Log$
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



OPERATOR NozzleFlow;
% Ideal gas - but polytropic expansion
FOR ALL R, n, p1, p2, T1, A, Nothing
LET NozzleFlow(R,n,flow,5,
	p1,effort,1,
	p2,effort,2,
	T1,effort,3,
	A,effort,4,
	Nothing,effort,5
	) = A*p1*( (2*n/(n-1)) * (1/(R*T1)) * 
                ((p2/p1)^(2/n)) * (1 - (p2/p1)^(n-1/n) ) ^(1/2)
                );

END;