Find a local minimum

Esempio 4 passi, eseguiti in ordine in una sola sessione. Ogni passo è stato eseguito sul motore e l'output qui sotto è ciò che ha prodotto.

Passo 1

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

Output

-Graphics-

Passo 2

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

Output

{-3.2883713955908966, {x -> 3.4256184594817283}}

Passo 3

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

Output

{3.4256184594817283, -3.2883713955908966}

Passo 4

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

Output

-Graphics-

Funzioni usate