求助：Mathematica函数绘图问题

MiNime

求助： f[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] 3 p) s7 E- |2 m 9 A, l8 X7 b3 Q* Y, f. _/ ~9 B$ ~. UPlot[Evaluate@f[y],{y,0,4}] . l+ }/ s* ?% g6 Z7 _可正常画出曲线图 但运行下面代码就没有反应，求问是什么原因 * e* v7 b; C6 x  F$ s* B* ^f[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] ( b" F  t6 b& S3 V! c Plot[Evaluate@f[y],{y,0,4}] - i  C! s- V5 P0 } 4 n3 }1 C2 I; W/ U$ r* p

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

2 c/ T1 C9 q& B5 ^! j/ {" H9 L6 X

运行无反应

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

可绘图

; U' R& p  o7 Q
! s3 D6 }' B8 [0 g! |( W% p$ l! z
8 z; y) P% r: O2 J) ^; l