function ab=sr_alglog_dis0(nofdig,N)
%SR_ALGLOG_DIS0 Recurrence coefficients for a weight function 
%on [0,1] with an algebraic/extended-logarithmic singularity.
%   AB=SR_ALGLOG_DIS0(NOFDIG,N) generates in DIG-digit arithmetic
%   the Nx2 array AB of the first N recurrence coefficients for
%   for the weight function w(x)=x^A*exp(-x)*log(1+1/x) on [0,1]
%   using a 2-component discretization procedure. The variables 
%   DIG, A must be netered when prompted.

global mc mp iq idelta irout eps0 dig a abjac ablog
dig=input('enter the value of dig');
a=input('enter the value of a');
Mmax=200; 
abjac=sr_jacobi01(dig,Mmax,0,a);
ablog=loadvpa('coeff_lalg0log1.txt',9,32,200,2);
mc=2; mp=0; iq=1; idelta=2; irout=1; eps0=.5*10^(-nofdig);
[ab,Mcap,kount]=smcdis(dig,N,eps0,@squad_alglog0,Mmax); 
ab=vpa(ab,nofdig)
