function R = trapz_int(f, a, b, n)
  R = ((b-a)/(2*n)) * (f(a)+f(b)+2*sum(f(a+([1:n-1])*((b-a)/n))));

 end;