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-

Используемые функции