function ab=sr_prudnikov_type_symm(dig,nofdig,N,nu,type)
%SR_PRUDNIKOV_TYPE_SYMM Recurrence coefficients for a symmetric
%extension of the Prudnikov_type weight function
%   AB=SR_PRUDNIKOV_TYPE_SYMM(DIG,NOFDIG,N,NU,TYPE) generates in 
%   DIG-digit arithmetic the first N recurrence coefficients 
%   for the weight function W(X), where W(X)=exp(-X)*RHO_NU(X)
%   when TYPE=1, W(X)=EXP(-1/X)*(1/X)*RHO_NU(X) when TYPE=2, where 
%
%          RHO_NU(X)=2*X^(NU/2)*K_NU(2*sqrt(X))  on [0,INF],
%
%   and K_NU is the second-kind modified Bessel function of real
%   order NU. They are placed to NOFDIG digits into the Nx2 
%   array AB.

digits(dig);
mom=smom_prudnikov_type_symm(dig,N,nu,type);
ab=schebyshev(dig,N,mom');
ab=vpa(ab,nofdig);
