fh = inline('exp(-2.*x)');
gh = inline('log10(1-x)');
ergf = 7.1615284390502566;
ergg = -0.9457136228881306;
nvondef = [2 3 4];
nvondeg = [10 100 1000];
for i = 1:3
    unsergf(i) = GaussQuad(fh,nvondef(i),1);
    unsergg(i) = GaussQuad(gh,nvondeg(i),1);
    hans(i)= abs(ergf-unsergf(i));
    franz(i) = abs(ergg-unsergg(i));
end
disp('1. Fkt.  1.Fkt-Abwe    2. Fkt    2.Fkt-Abwe');
schorsch = [unsergf' hans' unsergg' franz'];
disp(num2str(schorsch));


































































%copyright phx ltd