load c:\dataccvi\wirescan\analysis\scanplt.r25;
bln=scanplt(:,4);
x=-1.1:.01:1.1;
bl=0.;
for n=3:1:10
  bl=bl+bln(n)*x.^(n-1);
end;
plot(x, bl)