Предлагаем Вам анимацию процесса сходимости сумм площадей прямоугольников к площади фигуры, ограниченной графиком функции, осью абсцисс и граничными вертикалями:

> animateRiemann := proc (f, a, b)
local i, Lb;
for i from 2 to 33 do
Lb[i]:=student[rightbox](f, x=a..b, 3*i):
end do:
plots[display]([seq(Lb[i], i=2..33)],insequence=true);
end proc:

> animateRiemann(f, -1, 4);