kill(all)$
fpprintprec:5$

van=facebook.com/LearningCalculus$

f(x):=(x+1)^2/(%e^x-x)$

''(diff(f(x),x))=0;

solve(%,x);

areaOfRectangle:float(2*f(1));

integrate(f(x),x) = (areaOfB : 2.17448);

areaOfA: areaOfRectangle-areaOfB;

is(areaOfA > areaOfB);