使用Hessian矩阵寻找并判断临界点 by Roman Chijner (2)

GeoGebra 命令及参数

1. Simplify(Derivative[f, y, 1]) → fy
2. Simplify(Derivative[fy, x, 1]) → fyx
3. Simplify(Derivative[fy, y, 1]) → fyy
4. Simplify(Derivative[f, x, 1]) → fx
5. Simplify(Derivative[fx, y, 1]) → fxy
6. Simplify(Derivative[fx, x, 1]) → fxx
7. Intersect(ax, ay) → A, B
8. Zip({{fxx(a), fxy(a)}, {fyx(a), fyy(a)}}, a, l1) → M
9. Zip(Determinant[a], a, M) → D
10. Zip(fxx(a), a, l1) → f_{xx}
11. Sequence(If[D(i) > 0, If[f_{xx}(i) > 0, "local minimum", "local maximum"], "saddle point"], i, 1, Length[l1]) → l4
12. Zip((x(a), y(a), f(a)), a, l1) → l5
13. Zip(fx(a), a, l1) → lfx
14. Zip(fy(a), a, l1) → lfy
15. TableText(Append["i", 1…Length[l1]], Append["critical points", l5], Append["f_{x}", lfx], Append["f_{y}", lfy], Append["f_{xx}", f_{xx}], Append["Det", D], Append["", l4], "v") → text1
16. LaTeX(f, true) → text3
17. RotateText(text5, 90°) → text6