Mathematica函数绘图问题

MiNime

求助： f[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] ) @& m; b# P- J3 @ Plot[Evaluate@f[y],{y,0,4}] 可正常画出曲线图 - L! _8 m) l9 D: }/ V: d但运行下面代码就没有反应，求问是什么原因 7 L6 D7 a' i7 J. gf[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] ! Y  d" q8 s" W8 P 0 N9 j# H2 \) }- d  NPlot[Evaluate@f[y],{y,0,4}] 3 ?% U" f* J8 P , \- ?7 \" r2 @) N; p; @8 j8 M

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

2 f5 D  K. `6 M' N: f$ K5 E9 H7 ~% T

运行无反应

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

可绘图

* g' z+ b% j/ |  k) ]2 G' E