Find a local minimum

Ví dụ 4 bước, chạy theo thứ tự trong một phiên. Từng bước đều được thực thi trên bộ máy và đầu ra bên dưới là những gì nó tạo ra.

Bước 1

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

Đầu ra

-Graphics-

Bước 2

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

Đầu ra

{-3.2883713955908966, {x -> 3.4256184594817283}}

Bước 3

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

Đầu ra

{3.4256184594817283, -3.2883713955908966}

Bước 4

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

Đầu ra

-Graphics-

Các hàm được dùng