求助：Mathematica函数绘图问题

MiNime

求助： / L* M+ _$ ]  Rf[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] Plot[Evaluate@f[y],{y,0,4}] 可正常画出曲线图 1 M9 K# \. g! a6 A但运行下面代码就没有反应，求问是什么原因 ( F9 e, |5 W7 m$ @, p, R* W% O& Rf[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] $ I& ~! n: j% g$ h2 Y  C / ?* S) b" T3 T. s1 w* kPlot[Evaluate@f[y],{y,0,4}] - g7 }" u$ V- j2 F7 \ / P+ {- V2 j: f- ?, K 8 L: r3 I) w' o  Z% j8 e

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

运行无反应

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

可绘图