Find a local minimum

示例 4 步，在同一个会话中按顺序运行。每一步都在引擎上执行过，下面的输出就是它实际产生的。

第 1 步

Plot[x Cos[x], {x, 0, 20}]

输出

-Graphics-

第 2 步

min = FindMinimum[x Cos[x], {x, 2}]

输出

{-3.2883713955908966, {x -> 3.4256184594817283}}

第 3 步

pt = Reverse[Cases[min, _ ? NumberQ, Infinity]]

输出

{3.4256184594817283, -3.2883713955908966}

第 4 步

Plot[x Cos[x], {x, 0, 20}, Epilog -> {PointSize[Medium], Point[pt]}]

输出

-Graphics-

用到的函数