求助：Mathematica函数绘图问题

MiNime

求助： f[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] Plot[Evaluate@f[y],{y,0,4}] : [5 m. M$ n. m$ F9 r5 E$ ]可正常画出曲线图 但运行下面代码就没有反应，求问是什么原因 1 M( |/ n6 C" x2 U7 t2 b6 Lf[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] + F6 \8 S( C6 A- F* M Plot[Evaluate@f[y],{y,0,4}] ) T) ?6 B: _6 d! ]0 [ 3 u. z( R$ H2 s  ^1 h, ~

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

  a% ^7 B0 m$ k* L! R  _6 j

运行无反应

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

可绘图

% R+ M" @5 g* D& x* M3 r