function ker=kerroin(k)
le=lege01(k,0);
fu=@(x) (cos(x)+abs(x).^0.5).*polyval(le,x);
ker=(2*k+1)*quadl(fu,0,1);