function ab=sr_midpoint(dig,nofdig,N)
%SR_MIDPOINT  Recurrence coefficients for the midpoint 
%weight function.
%   AB=SR_MIDPOINT(DIG,NOFDIG,N) generates in DIG-digit
%   arithmetic the first N recurrence coefficients for the
%   weight function w(x)=|x|/(exp(2*pi*|x|)+1) on [-Inf,Inf] 
%   and places them to NOFDIG digits into the Nx2 array AB.

digits(dig);
mom=mommidpoint(dig,N);
ab=schebyshev(dig,N,mom);
ab=vpa(ab,nofdig);
