Mathematica函数绘图问题

MiNime

求助： 6 `& z. n3 L+ Q; \+ A2 A# N4 k: `f[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] $ y6 P% H7 v/ t# A! d& }: f4 L. c Plot[Evaluate@f[y],{y,0,4}] , K( R. L5 \1 c- `) o9 V/ ~. |可正常画出曲线图 但运行下面代码就没有反应，求问是什么原因 9 R5 K! O: l1 D8 Uf[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] Plot[Evaluate@f[y],{y,0,4}] 0 K' @* `4 n: {1 A+ F $ ]1 A6 E" K! `. d* e( @( t9 Z

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

# u: \5 A5 s& j' V

运行无反应

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

可绘图

$ J- ~) N/ d% l3 f- B
5 |% o" y: [7 q, _& X# l

# u) }9 b8 ?9 q9 }