gammat.m

来自「WTP主要是calculate basic thermodynamic prop」· M 代码 · 共 11 行

function result = gammaT(dimless_P,dimless_T)
% -----------------------------------------------------------------
% Author: Philippe Daigle
% Date: 10 mai 2002
% gammaT value for a adimensionnal pressure and a adimensionnal 
% temperature
% -----------------------------------------------------------------
[I,J,n] = gibbstablePT;
cnt = 1:34;
result = sum( n(cnt) .* (7.1 - dimless_P).^I(cnt) .* J(cnt) .* (dimless_T - 1.222).^(J(cnt) - 1) );