0001 0002 function psi=psit(zet) 0003 x=(1-15*zet).^.5; 0004 psik=2*log((1+x)/2); 0005 x=(1-34.15*zet).^.3333; 0006 psic=1.5*log((1+x+x.*x)/3)-sqrt(3)*atan((1+2*x)/sqrt(3))+4*atan(1)/sqrt(3); 0007 f=zet.*zet./(1+zet.*zet); 0008 psi=(1-f).*psik+f.*psic; 0009 0010 ii=find(zet>0); 0011 if ~isempty(ii); 0012 %psi=-4.7*zet; 0013 c=min(50,.35*zet); 0014 psi(ii)=-((1+2/3*zet(ii)).^1.5+.6667*(zet(ii)-14.28)./exp(c(ii))+8.525); 0015 end; 0016