Egyik probléma lehet, ha nem írod ki a szorzásjeleket a f(x)-ben, azaz 2x helyett 2*x-et kell írni.
Továbbá, átírtam rutint, hogy általánosabb esetben is mûködjön, ha több szélsõérték van a tartományban, és a határokat is vizsgálja. Remélem 11-ben mûködik így:
restart; with(plots): with(Student[Calculus1]):
xa := -1; xf := 5;# határok
f := 2*x^3+3*x^2-12*x+1;
f := unapply(f, x):
szelsoertekhelyek := ExtremePoints(f(x), x = xa .. xf):