Вольфрам Математика - Экстремум функции

Question

Я делаю проект в Wolfram Mathematica.Я хочу найти экстремумы функции, но она не работает.Я не знаю почему.Пожалуйста, помогите мне.Это работает для некоторых функций, но для функции Abs[x^2-5x+6] это не работает.Я действительно не знаю почему.Это проблема:

введите описание изображения здесь

   Clear[f, der1]
Manipulate[Grid
  [{{Column
     [{Row[{Framed[Style["Extrema of function", Bold, Red, 25],
          Background -> LightBlue, RoundingRadius -> 20]}]}]},        
   {Column
     [{
      InputField[Dynamic[f], Background -> LightYellow],    
      der1 = Simplify[D[f, x]],   (*the first derivative*)
      dom = Simplify[FunctionDomain[f, x, Reals]],     (*domain*)
      Reduce[der1 == y, y, Reals],   
      zeroder = Solve[der1 == 0, x ],     (*first derivative = 0*)
      discontin = 
       Solve[Denominator[Together[f]] == 0, 
        Reals], (*points of discontinuity*)
      noder = 
       Solve[Denominator[Together[der1]] == 0, 
        Reals],  (*points where the first derivative does not exist*)


      extr = 
       Union[Sort[
         Join[{axxfr}, {axxto}, {zeroder}, {noder}, {discontin}]]],  \
(*list of extrema*)
      Maximize[{f, axxfr <= x <= axxto}, x],        (*axxfr = 
      axis x from....,     axxto = axis x to....*)
      Minimize[{f, axxfr <= x <= axxto}, x], 
      Plot[f, {x, axxfr, axxto}, PlotRange -> {axyfr, axyto}, 
       Background -> LightGreen]    (*axyfr = axis y from....,    
      axyto =  axis y to....*)
      }]}}],
 {axxfr, -5}, {axxto, 5}, {axyfr, -2}, {axyto, 2}]