求助：Mathematica函数绘图问题

MiNime

求助： f[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] & G1 O* h7 o1 Q Plot[Evaluate@f[y],{y,0,4}] 4 {( _% V( K+ Y' ~可正常画出曲线图 但运行下面代码就没有反应，求问是什么原因 2 \9 f4 o: o3 b& i( D/ {! V# }' j8 Xf[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] : C$ x! A% p% c: S- O # j$ ?' C0 K" _4 TPlot[Evaluate@f[y],{y,0,4}] 2 ?1 l/ s( h; o, R ' p- \( q2 s7 p+ O7 L. f5 F: i; K * ~% W7 x3 {" B, h9 Z: b5 E7 ?5 L* \

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

1 d( Z5 p& V8 H# B

运行无反应

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

$ h  \/ I# G1 r) F2 E4 {

可绘图

! V7 E: j# O3 D- q1 J1 M

$ r' y( t7 m" A; C+ X( m