Mathematica函数绘图问题

MiNime

求助： 3 ~  b* D5 r  V5 v, r; h3 \( Nf[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] 7 W# H3 R, S3 u) k/ u* D Plot[Evaluate@f[y],{y,0,4}] 5 Z" G2 a3 O: f, I/ G可正常画出曲线图 但运行下面代码就没有反应，求问是什么原因 4 ^( b. N+ ]( x. [" Pf[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] 2 f, T$ h1 J7 |  m+ t1 t" H1 Y4 _Plot[Evaluate@f[y],{y,0,4}] 4 {( t* z! u) t! I4 h3 A, l! ~

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

7 j9 z$ Z( B' C; w4 q

运行无反应

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

可绘图

; A4 y) U: B1 g* C" B2 {9 i2 ^& R
% m0 B" l5 g. L" |& r1 }