% F1BERN The function f' needed in Bernstein's inequality
%        for Jacobi polynomials 
%
function y=f1bern(t,a,b,x)
y=-(a+b+1)-2*sum((t^2-2*t*x+1)./(t-x).^2);