求助：Mathematica函数绘图问题

MiNime

求助： 8 u. h  ?5 l% h0 u. Mf[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] Plot[Evaluate@f[y],{y,0,4}] 可正常画出曲线图 但运行下面代码就没有反应，求问是什么原因 5 N  y& i' P9 if[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] : h: t( {9 \, ?2 B6 `- @$ y$ E. l% ^Plot[Evaluate@f[y],{y,0,4}] , l+ }/ ]$ ]9 w  l& ~ ( w" q/ d( G0 q. k7 ] : x) w; a& `7 g

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

运行无反应

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

5 ?8 c' O/ d2 L

可绘图

6 {& ^, Y* k% O# g4 T4 }
/ r& ?$ T: A1 ]* U0 _