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

  • A+

 

第二十题--求极小值点

 

 

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}]

 

 

  • 微信公众号
  • 关注微信公众号
  • weinxin
  • QQ群
  • 我们的QQ群号
  • weinxin
王 茂南

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: