#Maple file numint
#Written by Richard Bernatz
#Luther College Spring 1994
with(student):
nright := proc(f,interval,n)
  evalf(value(rightsum(f,interval,n)));
  end:

nleft := proc(f,interval,n)
  evalf(value(leftsum(f,interval,n)));
  end:

nmiddlesum := proc(f,interval,n)
  evalf(value(middlesum(f,interval,n)));
  end:

ntrapezoid := proc(f,interval,n)
  evalf(value(trapezoid(f,interval,n)));
  end:

nsimpson := proc(f,interval,n)
  evalf(value(simpson(f,interval,n)));
  end: