code for 1(c)

> f:=x->.25*x^4-2*x^3+4.5*x^2:

> p4:=plot(f(x) ,x=-.5..5,thickness=2):
dotlines:=plot(
{[[1,0],[1,f(1)]],[[2,0],[2,f(2)]]},thickness=2,linestyle=3,color=blue):
txt:=plots[textplot]({[1.5,3,`concave`],[1.5,2,`down`] },font=[TIMES,BOLD,10]):
plots[display]({p4,dotlines,txt},title=`Problem 1(c)`,titlefont=[TIMES,BOLD,16]);