求助：Mathematica函数绘图问题

MiNime

求助： # t+ T3 q+ r) i* a$ l7 Ff[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] 7 n' A6 G' a* n/ m Plot[Evaluate@f[y],{y,0,4}] 可正常画出曲线图 但运行下面代码就没有反应，求问是什么原因 ' e! a3 z/ a3 U% u9 f: [3 ]. _f[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] Plot[Evaluate@f[y],{y,0,4}] 7 m% U* B3 C- r5 e) y5 [; r4 t, x3 _ 3 _. g4 U9 ?2 M2 u- G! C2 ? 2 d' |+ d/ w5 _! M9 |- Z

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

- ~6 r8 K& q( t. i$ [' N7 E* F

运行无反应

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

% j" u9 f) ^; H

可绘图

% \0 x! e1 X. \, B2 Y1 u, ^
9 |' @0 u" t9 a, e7 a) O' N! h! h* \