Mathematica函数绘图问题

MiNime

求助： 4 J9 B, v) ~3 C# [6 L4 |- if[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] # |0 V5 d$ k& d Plot[Evaluate@f[y],{y,0,4}] 8 s. g* @6 k# @; l: K+ F可正常画出曲线图 但运行下面代码就没有反应，求问是什么原因 / h7 ~: U: L! j2 K- b% B, S- df[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] : h; w6 `; o, S% f: G3 @ ; ?3 ]& h% X' rPlot[Evaluate@f[y],{y,0,4}] ! P$ V( ?5 x  R) ^( F% @3 V4 y

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

运行无反应

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

9 P7 L& ^. g2 l% t

可绘图

2 x" _) E7 U' E/ Q! \5 w

8 S7 |! D$ R6 N: d+ ]  @) j8 i2 O