function ab=sr_logist(dig,N)
%SR_LOGIST Recurrence coefficients for the logistic weight
%function.
%   AB=SR_LOGIST(DIG,N) generates in DIG-digit arithmetic 
%   the first N recurrence coefficients for the logistic
%   weight function w(x)=exp(-x)/(1+exp(-x)^2 on [-Inf,Inf] 
%   to an accuracy of 12 decimal digita.
%   

global mc mp iq idelta irout
mc=2; mp=0; iq=1; idelta=2; irout=1; Mmax=200;
eps0=.5e-12;
[ab,Mcap,kount]=smcdis(dig,N,eps0,@squad_logist,Mmax);
[Mcap,kount]
