% FFIG2B
%
function y=fFig2b(R)
n=50; 
x=linspace(4/n,4,n)';
c=condVsc(n,R,x);
y=log10(c);
