%
% CONDVSC  Inf-condition of scaled Vandermonde
%   matrix V_r(x) of order n with
%      0<x(1)<x(2)< ... <x(n)
%
function c=condVsc(n,R,x)
for i=1:n
  s(i)=sum((x/R).^(i-1));
  x0=x(find(x-x(i)));
  p(i)=prod((R+x0)./abs(x(i)-x0));
end
c=max(s)*max(p);
