function mom=smom_lssrbinet(dig,N,c)
%SMOM_LSSRBINET Moments of a lower symmetric subrange 
%Binet weight function.
%   MOM=SMOM_LSSRBINET(DIG,N,C) generates in DIG-digit
%   arithmetic the 1x(2*N) array MOM of the first 2N moments
%   of the weight function w(x)=-log(1-exp(-x)) on [-C,C],
%   0<C<Inf.

digits(dig); mom=vpa(zeros(1,2*N));
mom1=smom_hrbinet(dig,N); mom2=smom_usrbinet(dig,N,c);
s2=vpa(2);
for k=1:2:2*N-1
  mom(k)=s2*(mom1(k)-mom2(k));
end
