Mathematica函数绘图问题

MiNime

求助： * d4 Q# y2 y2 h3 Hf[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] ; \9 u0 q( b# y" W + ?; x  z% W2 }: U7 R, \! o+ ~Plot[Evaluate@f[y],{y,0,4}] 可正常画出曲线图 8 ]% x  M; E0 a# K3 {3 ?5 O但运行下面代码就没有反应，求问是什么原因 f[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] Plot[Evaluate@f[y],{y,0,4}] * O1 @" [7 {/ z, y8 j7 p

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

运行无反应

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

可绘图

# |" H" Q6 v5 ]* v
; V3 D6 t+ G4 y+ i
: t/ f% P3 W, y/ X9 `
+ J( X$ @4 Q: v* C# Q# y& O