求助：Mathematica函数绘图问题

MiNime

求助： 8 v0 Y( m: t5 B* k- r" \! _% f: Of[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] ; J5 }2 V, K8 c$ _ 8 f* [4 B+ i# @1 L7 f9 `Plot[Evaluate@f[y],{y,0,4}] 可正常画出曲线图 6 x6 d2 A9 }; O1 i, z3 m但运行下面代码就没有反应，求问是什么原因 - e: R7 D4 o  p  [1 E  If[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] Plot[Evaluate@f[y],{y,0,4}] $ v( z; S% V6 K+ }# F+ ? ; l( c) W8 Q' W* g3 c % w: s; X6 P/ G3 |8 R

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

运行无反应

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

0 Z: z, [) \1 m. _" b

可绘图

8 R4 n3 O5 ]: y- q$ J! n