function y=G(x)
y=exp(x)-x;
end
%format long
%quad('Simpson',-1,0,1.0e-05)