function [V,d]=Vconj_log1(dig,n)
%VCONJ_LOG1 The Stenger conjecture.
%   Tests the validity of the Stenger V-conjecture for
%   a logarithmic weight function

global a ab0 ab1
m=ceil(n/2);
C=zeros(n);
ab1n=ab1(1:n,:);
ab0m=ab0(1:m,:); ab1m=ab1(1:m,:); 
xw1n=gauss(n,ab1n); x1n=xw1n(:,1); 
xw0m=gauss(m,ab0m); x0m=xw0m(:,1); w0m=xw0m(:,2);
xw1m=gauss(m,ab1m); x1m=xw1m(:,1); w1m=xw1m(:,2);
for j=1:n
  for k=1:n
    s0=0;
    for i=1:m
      lag=lagrange(n,x1n,x1m(i));
      s0=s0+w1m(i)*lag(k);
    end
    s1=0;
    for i=1:m
      lag=lagrange(n,x1n,x1n(j)*x0m(i));
      s1=s1+w0m(i)*lag(k);
    end
    s2=0;
    for i=1:m
      lag=lagrange(n,x1n,x1n(j)*x1m(i));
      s2=s2+w1m(i)*lag(k);
    end
    C(j,k)=s0-x1n(j)^(a+1)*(s1*log(1/x1n(j))+s2);  
  end
end
digits(dig);
V=vpa(C);
d=eig(V);
d=double(d);
V=double(V);
