%
% SFIG2A
%
syms x R cr
dig=112; digits(dig);
c=zeros(5,1); 
logc=zeros(5,1);
n=50;
for i=1:n
  x(i)=vpa(4*i/n);
end
for k=1:5
  R=vpa(1+(k-1)/5);
  subs(R)
  cr=sVdMsc(dig,R,n,x);
  c(k)=subs(cr);
end
c
