Mathematica函数绘图问题

MiNime

求助： f[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] / D$ |; N# }( B8 H. A" | % ?7 w! `' [" X5 f; VPlot[Evaluate@f[y],{y,0,4}] 9 @' j: L) t. g, h- S6 ]可正常画出曲线图 2 ]7 s" T- x, x" T% v/ U5 k; L但运行下面代码就没有反应，求问是什么原因 4 {( H) B3 Y' l  M* \# Lf[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] Plot[Evaluate@f[y],{y,0,4}] # d  G  Y1 I7 g7 k/ V# i , Q# |$ ^) P  r6 w: z$ ]6 g; c4 ~

2.jpg (46.23 KB, 下载次数: 0)

  X! k7 `& Y1 x3 e* e

运行无反应

1.jpg (52.71 KB, 下载次数: 0)

可绘图

: G0 P6 E3 e/ W
3 a) P3 c/ ^& e" }2 \  p