% K0F Alternate evaluation of the third integral
%
function y=K0f(x,nu,g1,g2)
global a lambda
nur=real(nu); nui=imag(nu);
%
% DP #11.290
%
c=2^(lambda-1)/(lambda+1-nur);
y=c*(exp(nui*i*x/(lambda+1-nur))*g1+exp(-(2*nur ...
  +nui*i)*x/(lambda+1-nur))*g2);
%
% DP #11.296 and LS #2
%
%y=c*(exp(nui*i*x/(lambda+1-nur))*g1+exp(-(2*nur ...
%  +nui*i)*x/(lambda+1-nur))*g2).*exp(-2*exp(-x/(lambda+1-nur)));
%
% DP #11.298
%
%K0=.5*(exp(nu*x)*g1+exp(-nu*x)*g2);
%y=K0.*exp(-2*exp(-x))./(sqrt(2)*exp(-x/2));
%
% DP #11.299
%
%y=K0.*exp(-2*exp(-x)*cosh(a))./(sqrt(2)*exp(-x/2));
%
% DP #11.300
%
%y=K0.*exp(-2*exp(-x)-a)./(sqrt(2)*(2*exp(-x)+a) ...
%  .*exp(-x/2));
%
% DP #11.301
%
%y=.25*K0.*exp(-2*exp(-x)-.25*a^2*exp(x)+x);