- 注册时间
- 2009-2-12
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 22688
- 在线时间
- 小时
|
发表于 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]}]
复制代码 |
|