function ab=sr_radtrans_cheb(dig,nofdig,N,c)
%SR_RADTRANS Recurrence coefficients for polynomials orthogonal
%with respect to a radiative transfer weight function.
%   AB=SR_RADTRANS_CHEB(DIG,NOFDIG,N,C) generates in DIG-digit
%   arithmetic, using moments, the first N recurrence coefficients 
%   for the weight function w(x)=exp(-1/x) on [0,C], C>0 and 
%   places them to NOFDIG digits into the Nx2 array AB.

mom=smom_radtrans(dig,N,c);
ab=schebyshev(dig,N,mom');
ab=vpa(ab,nofdig);
