求助：Mathematica函数绘图问题

MiNime

求助： 6 a) o* A# w* U# f6 K4 G) O, L# If[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] 0 j; p* l3 v4 l2 B  O* @ Plot[Evaluate@f[y],{y,0,4}] ; H, s+ K7 \2 u( @" o. i1 V可正常画出曲线图 ; ~% P0 b: E6 R3 Q  o但运行下面代码就没有反应，求问是什么原因 ' a7 z! q2 }; o  ^. M+ x4 ?6 uf[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] / h  `$ h; a# }' Z* p% v) v# x9 h " _! w1 x# I; _3 B. ~  W! `/ o8 TPlot[Evaluate@f[y],{y,0,4}] % S% ~2 N+ l- r: E$ H  [  g% e 1 A' r  w  r/ R( n, ^. w# N" r3 k

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

运行无反应

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

可绘图

9 N, x7 c, O* j! h; |