Mathematica函数绘图问题

MiNime

求助： 1 a+ W/ W1 x0 o/ @& U, z$ r- tf[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] 5 l: G6 \* k  K; }3 }Plot[Evaluate@f[y],{y,0,4}] ! @- z6 @# L, w, D4 M$ {! a可正常画出曲线图 7 N$ j: L, _+ ~5 Y3 r* O0 g) L" o但运行下面代码就没有反应，求问是什么原因 f[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] 1 I+ Z9 L  \' m) G" fPlot[Evaluate@f[y],{y,0,4}] ( P7 V! C& Q- ]! v9 c6 c/ A2 _6 P* u 0 n6 `& W+ N. e9 }3 T( x # p  h: K; b6 ]; p" [

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

2 Q9 A8 p6 _- v$ k# f; V; m5 r

运行无反应

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

* S) W' }1 b1 Z) g& E

可绘图

* [' I4 a0 G( O# x' ^