求助：Mathematica函数绘图问题

MiNime

求助： f[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] Plot[Evaluate@f[y],{y,0,4}] 7 r. _. [/ G, L可正常画出曲线图 但运行下面代码就没有反应，求问是什么原因 f[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] Plot[Evaluate@f[y],{y,0,4}] . C6 Q. R* }  G) @ & J* }: \# `( k% T. S5 y( r! H 2 Y/ L+ k) V8 q) F1 _2 h6 H' L

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

运行无反应

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

$ p/ N9 c. F0 _  d4 S

可绘图

$ k2 s" u$ N1 U: w5 B" q2 Q