% SR_LAGUERRE Symbolic counterpart of r_laguerre
% 
function ab=sr_laguerre(dig,N,a)
digits(dig);
if nargin<3, a=0; end
if((N<=0)|(a<=-1)) error('parameter(s) out of range'), end
nu=vpa(a+1); mu=gamma(vpa(a+1));
if N==1, ab=[nu mu]; return, end
N=N-1; n=1:N; na=2*n+nu; nb=n.*vpa(n+a);
A=[nu na]; B=[mu nb];
ab=[A' B'];