Az utolsó eljárás vizsgálja lokális szélsõértékeket és a végpontokat is. De a végén az abszolút minimumot és maximumot jeleníti meg.
(Az ExtremePoints egyszerre vizsgálja a lokális szélsõérétkeket és a megadott tartomány végpontjait is. Lásd a súgóban a parancsot.
Átírtam az eljárást, hogy ne csak az abszolút maximumot és minimumot jelenítse meg,és az ábrázolást is kiegészítettem. (Ez már csak Maple 12-ben mükszik).
restart; with(plots):with(Student[Calculus1]):
xa := -1; xf := 2; # tartomány határok megadása
fkif := (x-1)^2*(x+2)^2*x; # f függvény megadása
f := unapply(fkif, x):
szelsoertekhelyek := ExtremePoints(f(x), x = xa .. xf);
yok := map(f, szelsoertekhelyek):
xyok := zip((a, b) -> [a, b] , szelsoertekhelyek, yok):
fder := diff(f(x), x);
mx := max(yok):
mn := min(yok):
mxxy := select(t-> t[2] = mx , xyok)[]:
mnxy := select(t-> t[2] = mn , xyok)[]:
'Összesszelsoertekhelyésérték' = xyok;
'abszolútmaxminhelyeésértéke' = mxxy, mnxy;
fgorbe := plot(f(x), x = xa .. xf, color = red, title = typeset("Az f(x)=", fkif, " függvény \nlokális és abszolút szélsõértékei a(z) [", xa, "..", xf, "] tartományon."), legend = "f(x)"):
fdergorbe := plot(fder, x = xa .. xf, color = blue, legend = "derivált"):
szelsoertekpont := pointplot(xyok, color = magenta, symbol = circle, symbolsize = 15):