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-

使用到的函式