| 
注册时间2009-2-12最后登录1970-1-1威望 星金币 枚贡献 分经验 点鲜花 朵魅力 点上传 次下载 次积分27490在线时间 小时 
 | 
 
 发表于 2020-6-6 10:55:15
|
显示全部楼层 
| 原题太单调了,不好玩,为了增加曲折性,稍微修改了下,大家来验证一下: 将函数$|\cosx + a| + |\sin(2x) + b|$在$x\in\left[0,\frac{\pi}{2}\right]$的最大值记为$M(a,b)$,求$M(a,b)$的最小值($a,b$是任意实数)。
 
   
 ===========================================
 以下是我的计算,用代码代替了,求验证。
 
 算出四条边的直线方程,然后得到长宽分别是0.96803535636509565397(3364 - 33014 x^2 + 97377 x^4 - 85760 x^6 + 16384 x^8的根), 1.2446299766015973460(27 - 414 x^2 + 256 x^4的根),
 所以 $M(a,b)$的最小值 就是$r_{min} = \frac{d}{\sqrt{2}}= 1.2446299766015973460/\sqrt{2} =\sqrt{\frac{33 \sqrt{33}}{512}+\frac{207}{512}} =  0.88008629652304345970$
 
 
 复制代码t1 = t /. First@Solve[-2 Cos[2 t] == Sin[t] && 0 < t < Pi/2, t];
tm1 = t /. First@Solve[2 Cos[2 t] == Sin[t] && 0 < t < Pi/2, t];
lines = {y == x + 1, y == -x, y + Sin[2 t1] == x + Cos[t1], 
   y + Sin[2 tm1] == -(x + Cos[tm1])};
polys = {Solve[lines[[{1, 2}]], {x, y}][[1, All, 2]], 
   Solve[lines[[{2, 3}]], {x, y}][[1, All, 2]], 
   Solve[lines[[{3, -1}]], {x, y}][[1, All, 2]], 
   Solve[lines[[{1, -1}]], {x, y}][[1, All, 2]]};
m = 3/2; ParametricPlot[{-Cos[x], -Sin[2 x]}, {x, 0, Pi/2}, 
 Axes -> True, PlotRange -> {{-m, m}, {-m, m}}, PlotStyle -> Red, 
 Prolog -> {ColorData["SouthwestColors"][1], 
   Polygon[{{-1, 0}, {0, -1}, {1, 0}, {0, 1}}], 
   RGBColor[1, 0, 1, .25], Polygon[polys]}]
 | 
 |