function ab=sr_jaclog1(dig,nofdig,N,a,b)
%SR_JACLOG1 Recurrence coefficients for orthogonal polynomials
%with algebraically/logarithmically singular weight function.
%   AB=SR_JACLOG1(DIG,NOFDIG,N,A,B) generates in DIG-digit
%   arithmetic the first N recurrence coefficients for the weight 
%   function W(T)=(1-T)^A*T^B*LOG(1/T) on [0,1], A>-1, B>-1, and
%   places them to NOFDIG digits into the Nx2 array AB.

digits(dig);
mom=mmomjaclog(dig,N,a,b);
abm=sr_jacobi(dig,2*N-1,a,b);
abm(:,1)=(abm(:,1)+1)/2; abm(:,2)=abm(:,2)/4;
ab=schebyshev(dig,N,mom,abm);
ab=vpa(ab,nofdig);
