Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (9 sloc) 437 Bytes
function taoRep = TaoParticipatesWithFluentR(specimen,w,R)
dD = UnitConverter.FromDensityGramCmtoKgMeter(specimen.DensityDelta);
D= UnitConverter.FromDensityGramCmtoKgMeter(specimen.Density);
Vp = specimen.ParticipatesDensity;
v = specimen.PolarizationSoundVelocity;
sigmaS = 2*pi*R.^2;
sigmaL = pi.*R.^2.*(4/9).*(dD/D)^2.*(w.*R./v).^4;
taoRep = Vp.*v.*(sigmaS.^-1+sigmaL.^-1).^-1;
end