Mathematica入门习题[20]–求极小值点

第二十题--求极小值点

y[x_] := (x^3 + Cos[x] + x*Log[x])/E^x;
Show[
Plot[y[x], {x, 0, 1}, AxesOrigin -> {0, 0}],
Graphics[{
{PointSize[.03], Black, Point[{0.522, 0.397}]},
{Line[{{.522, 0}, {.522, .397}}]},
{Line[{{0, .397}, {.522, .397}}]}
}]
]
NMinimize[{y[x], 0 <= x <= 1}, {x}]