

clear
valg=3; %1=exp(x)   2=exp(x)*.sqrt(1-x.^2)   3=log(x)

%vi tar tiden!
t=cputime;

n=100000000;

% Gitteret
x=linspace(-1,1,n);
h=2/n;

if valg==1
    f=exp(x);
end

if valg==2
    f=exp(x).*sqrt(1-x.^2);
end

if valg==3
    x=linspace(1/n,1,n-1);
    h=1/n;
    f=log(x);
    f(n)=f(1);
end

int=h/2*f(1)+h*sum(f(2:end-1))+h/2*f(end);

if valg==1 
    disp(abs(int-exp(1)+exp(-1)))
end
if valg==2   
    disp(abs(int-1.7754996892121809469))
end
if valg==3   
    disp(abs(int+1))
end

%cputime-t
