0001 0002 function psi=psit(zet) 0003 x=(1-15*zet).^.5; 0004 psik=2*log((1+x)/2); 0005 x=(1-12.83*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 0013 psi(ii)=-4.7*zet(ii); 0014 %c(ii)=min(50,.35*zet(ii)); 0015 %psi(ii)=-((1+2/3*zet(ii)).^1.5+.6667*(zet(ii)-14.28)./exp(c(ii))+8.525); 0016 end;