/* -----------------------------------------------------
   Это файл critpoints.max: 
   (комментарии в  maxima аналогичны комментариям в C)
   -------------------------------------------------- */

critpts():=(
   print("Программа нахождения критических точек"),

/*   Запрос на ввод функции                                  
   -------------------------------------------------- */
   print("Введите функцию f(x):"),

   f:read(),

/*    Печать введенной функции (для контроля)                
   -------------------------------------------------- */

   print("f = ",f),

/*    В переменную eq помещаем значение производной
   -------------------------------------------------- */
   eq:diff(f,x),

/*    Решаем уравнение
   -------------------------------------------------- */
   solve(eq, x)   
)$