Mathematica函数绘图问题

MiNime

求助： ; Q. Q, d2 q3 a  tf[y_]:=Maximize[{x+x Cos[y],0<=x<=2},x] / `5 _4 Y8 |, P3 j3 N4 ^* n * b9 j/ c! ]8 j. ZPlot[Evaluate@f[y],{y,0,4}] # B, J9 `0 @# ~2 C6 u& Q可正常画出曲线图 - x5 Y# i4 d3 F. @3 z( A但运行下面代码就没有反应，求问是什么原因 " _  l; H) s. [5 I, of[y_]:=Maximize[{x+Cos[y],0<=x<=2},x] 7 O3 T; O% m  ?: e! HPlot[Evaluate@f[y],{y,0,4}] 3 k, A. E! a* o) Q( r, F! c5 Z & L3 M3 X! K, b

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

" A1 }- q+ z4 l9 F% l( U6 c0 j

运行无反应

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

  |' Q* F( \, t: f* [

可绘图

; ?$ W. `  O7 Y* h6 Q" r# t

: B; k6 [- h! F; z0 h