function ab=sr_u1sf(dig,nofdig,N,c,mu,nu)
%SR_U1SF Recurrence coefficients for the upper 1-sided Freud 
%weight function. 
%   SR_U1SF(DIG,NOFDIG,N,C,MU,NU) generates the first N 
%   recurrence coefficients in DIG-digit arithmetic for the 
%   weight function W(X)=X^MU*EXP(-X^NU) on [C,INF] and 
%   places them to NOFDIG digits into the Nx2 array AB.

digits(dig);
mom=smom_u1sf(dig,N,c,mu,nu);
ab=schebyshev(dig,N,mom');
ab=vpa(ab,nofdig);
