Mathematica函数绘图问题

MiNime

求助： f[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x]   b$ \) y7 ?8 J: s7 t3 @  g' T4 \( X Plot[Evaluate@f[y],{y,0,4}] 3 _) z+ q' m5 t9 |' d' A$ i可正常画出曲线图 但运行下面代码就没有反应，求问是什么原因 2 B, I0 S' v. a% {' R9 M9 f  F: s" ]* Yf[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] 4 ]% i7 c% |4 H7 o5 X ' h) K& e2 P- oPlot[Evaluate@f[y],{y,0,4}] 4 M% t" S# v1 O: n& b" E% S " ~* f- W1 ?  f9 c, g8 Y

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

" n& k# j" ?1 d: L# c7 I

运行无反应

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

# t# l- F6 i% V# D6 w1 e

可绘图

" Q7 z+ u# z3 B1 n4 s" M; x
3 F5 |# j, D2 B8 e

5 Y' C2 Y. j8 @; h3 Y