function vi=virhe(app,m)
x=linspace(0,1,m);
ap=exp(sin(7*x))-polyval(app,x);
vi=max(abs(ap));