求助：Mathematica函数绘图问题

MiNime

求助：   G3 D: J* L' l# {) ]* Qf[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] ! L3 x8 O7 E" n+ h% P8 i# Y! C) m Plot[Evaluate@f[y],{y,0,4}] 7 a/ ~& m, F; ~+ v( h可正常画出曲线图 ( h, R$ r0 i0 n' ?但运行下面代码就没有反应，求问是什么原因 9 I& Z( ~' x3 qf[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] ) l9 P7 b9 i3 x0 t. ^/ Q6 b 6 [& x4 ?6 S/ MPlot[Evaluate@f[y],{y,0,4}] , q) Y- E& Y- Z& Q) t+ @# @8 I8 M3 F , c4 ]2 W5 A( M 5 K' O0 {! w, a' \

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

运行无反应

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

可绘图

& x& }4 t5 g6 T% w( j