Mathematica函数绘图问题

MiNime

求助： f[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] 7 H4 y+ F1 ^; [2 A0 J 2 O6 e7 }3 M9 g: ]Plot[Evaluate@f[y],{y,0,4}] ) e; k9 N! S4 a8 N" P可正常画出曲线图 但运行下面代码就没有反应，求问是什么原因 9 B. z  ^' o. A1 n$ C8 ~- m2 pf[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] Plot[Evaluate@f[y],{y,0,4}] , H6 H2 @0 [0 E) \+ x9 W 1 b9 Q& |: k1 t8 N9 u $ [! c, Q+ K+ W/ @5 M8 D+ W4 t$ T2 j. T

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

运行无反应

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

可绘图

& L3 m/ _; d4 Y9 P5 e1 o

/ E0 ]9 z3 S% Q1 z+ {+ M1 r