function ker=kerroin(k)
le=lege01(k,0);
fu=@(x) exp(sin(7*x)).*polyval(le,x);
ker=(2*k+1)*quadl(fu,0,1);