% SR_JACLOG  Symbolic counterpart of r_jaclog
%
%    ab=R_JACLOG(n,a) generates the first n recurrence coefficients
%    for monic polynomials orthogonal with respect to the weight
%    function w(t)=t^a*log(1/t) on [0,1]. The call ab=R_JACLOG(n) 
%    is the same as ab=R_JACLOG(n,0).
%
function ab=sr_jaclog(dig,N,a)
if nargin<3, a=0; end;  
if((N<=0)|(a<=-1)) error('parameter(s) out of range'), end
abj=sr_jacobi01(dig,2*N);
mom=smm_log(dig,2*N,a);
ab=schebyshev(dig,N,mom,abj);
ab=vpa(ab,25);
