function ab=sr_mbinet(a)
%SR_MBINET Recurrence coefficients for the modified 
%Binet weight function  
%   AB=SR_MBINET(A) generates the first 100 recurrence
%   coefficients to 32 digits for the weight function
%   w(x)=-log(1-exp(-A*|x|) on [-Inf,Inf], A>0, from
%   the first 100 recurrence coefficients for the Binet
%   weight function.  

digits(32); a=vpa(a);
ab_binet=loadvpa('coeff_binet.txt',9,32,100,2);
ab(:,1)=ab_binet(:,1)/a; ab(:,2)=ab_binet(:,2)/a^2;
ab(1,2)=a*ab(1,2);
