- 注册时间
- 2008-11-26
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 149507
- 在线时间
- 小时
|
发表于 2020-4-21 16:07:42
|
显示全部楼层
本帖最后由 mathematica 于 2020-4-21 16:09 编辑
- Clear["Global`*"];
- ans=Maximize[
- {Cos[B]^2+Cos[c]^2,
- Sin[A]==2*Cos[B]*Cos[c]&&
- 0<A<Pi&&
- 0<B<Pi&&
- 0<c<Pi&&
- A+B+c==Pi
- },{A,B,c}
- ]
- aaa=FullSimplify[ans]
复制代码
计算结果
\[\left\{\cos ^2\left(2 \tan ^{-1}\left(\text{Root}\left[\left\{\text{$\#$1}^4+4 \text{$\#$1}^3-6 \text{$\#$1}^2-4 \text{$\#$1}+1\&,\text{$\#$1}^2 \text{$\#$2}^4-2 \text{$\#$1}^2 \text{$\#$2}^2+\text{$\#$1}^2-\text{$\#$1} \text{$\#$2}^4-4 \text{$\#$1} \text{$\#$2}^3-2 \text{$\#$1} \text{$\#$2}^2+4 \text{$\#$1} \text{$\#$2}-\text{$\#$1}-\text{$\#$2}^4+2 \text{$\#$2}^2-1\&\right\},\{4,3\}\right]\right)+2 \tan ^{-1}\left(\text{Root}\left[\text{$\#$1}^4+4 \text{$\#$1}^3-6 \text{$\#$1}^2-4 \text{$\#$1}+1\&,4\right]\right)\right)+\cos ^2\left(2 \tan ^{-1}\left(\text{Root}\left[\left\{\text{$\#$1}^4+4 \text{$\#$1}^3-6 \text{$\#$1}^2-4 \text{$\#$1}+1\&,\text{$\#$1}^2 \text{$\#$2}^4-2 \text{$\#$1}^2 \text{$\#$2}^2+\text{$\#$1}^2-\text{$\#$1} \text{$\#$2}^4-4 \text{$\#$1} \text{$\#$2}^3-2 \text{$\#$1} \text{$\#$2}^2+4 \text{$\#$1} \text{$\#$2}-\text{$\#$1}-\text{$\#$2}^4+2 \text{$\#$2}^2-1\&\right\},\{4,3\}\right]\right)\right),\left\{A\to 2 \tan ^{-1}\left(\text{Root}\left[\text{$\#$1}^4+4 \text{$\#$1}^3-6 \text{$\#$1}^2-4 \text{$\#$1}+1\&,4\right]\right),B\to 2 \tan ^{-1}\left(\text{Root}\left[\left\{\text{$\#$1}^4+4 \text{$\#$1}^3-6 \text{$\#$1}^2-4 \text{$\#$1}+1\&,\text{$\#$1}^2 \text{$\#$2}^4-2 \text{$\#$1}^2 \text{$\#$2}^2+\text{$\#$1}^2-\text{$\#$1} \text{$\#$2}^4-4 \text{$\#$1} \text{$\#$2}^3-2 \text{$\#$1} \text{$\#$2}^2+4 \text{$\#$1} \text{$\#$2}-\text{$\#$1}-\text{$\#$2}^4+2 \text{$\#$2}^2-1\&\right\},\{4,3\}\right]\right),c\to -2 \tan ^{-1}\left(\text{Root}\left[\left\{\text{$\#$1}^4+4 \text{$\#$1}^3-6 \text{$\#$1}^2-4 \text{$\#$1}+1\&,\text{$\#$1}^2 \text{$\#$2}^4-2 \text{$\#$1}^2 \text{$\#$2}^2+\text{$\#$1}^2-\text{$\#$1} \text{$\#$2}^4-4 \text{$\#$1} \text{$\#$2}^3-2 \text{$\#$1} \text{$\#$2}^2+4 \text{$\#$1} \text{$\#$2}-\text{$\#$1}-\text{$\#$2}^4+2 \text{$\#$2}^2-1\&\right\},\{4,3\}\right]\right)-2 \tan ^{-1}\left(\text{Root}\left[\text{$\#$1}^4+4 \text{$\#$1}^3-6 \text{$\#$1}^2-4 \text{$\#$1}+1\&,4\right]\right)+\pi \right\}\right\}\]
化简结果
\[\left\{\sin ^2\left(2 \tan ^{-1}\left(\text{Root}\left[\left\{\text{$\#$1}^4+4 \text{$\#$1}^3-6 \text{$\#$1}^2-4 \text{$\#$1}+1\&,\text{$\#$1}^2 \text{$\#$2}^4-2 \text{$\#$1}^2 \text{$\#$2}^2+\text{$\#$1}^2-\text{$\#$1} \text{$\#$2}^4-4 \text{$\#$1} \text{$\#$2}^3-2 \text{$\#$1} \text{$\#$2}^2+4 \text{$\#$1} \text{$\#$2}-\text{$\#$1}-\text{$\#$2}^4+2 \text{$\#$2}^2-1\&\right\},\{4,3\}\right]\right)+\frac{\pi }{8}\right)+\cos ^2\left(2 \tan ^{-1}\left(\text{Root}\left[\left\{\text{$\#$1}^4+4 \text{$\#$1}^3-6 \text{$\#$1}^2-4 \text{$\#$1}+1\&,\text{$\#$1}^2 \text{$\#$2}^4-2 \text{$\#$1}^2 \text{$\#$2}^2+\text{$\#$1}^2-\text{$\#$1} \text{$\#$2}^4-4 \text{$\#$1} \text{$\#$2}^3-2 \text{$\#$1} \text{$\#$2}^2+4 \text{$\#$1} \text{$\#$2}-\text{$\#$1}-\text{$\#$2}^4+2 \text{$\#$2}^2-1\&\right\},\{4,3\}\right]\right)\right),\left\{A\to \frac{5 \pi }{8},B\to 2 \tan ^{-1}\left(\text{Root}\left[\left\{\text{$\#$1}^4+4 \text{$\#$1}^3-6 \text{$\#$1}^2-4 \text{$\#$1}+1\&,\text{$\#$1}^2 \text{$\#$2}^4-2 \text{$\#$1}^2 \text{$\#$2}^2+\text{$\#$1}^2-\text{$\#$1} \text{$\#$2}^4-4 \text{$\#$1} \text{$\#$2}^3-2 \text{$\#$1} \text{$\#$2}^2+4 \text{$\#$1} \text{$\#$2}-\text{$\#$1}-\text{$\#$2}^4+2 \text{$\#$2}^2-1\&\right\},\{4,3\}\right]\right),c\to \frac{3 \pi }{8}-2 \tan ^{-1}\left(\text{Root}\left[\left\{\text{$\#$1}^4+4 \text{$\#$1}^3-6 \text{$\#$1}^2-4 \text{$\#$1}+1\&,\text{$\#$1}^2 \text{$\#$2}^4-2 \text{$\#$1}^2 \text{$\#$2}^2+\text{$\#$1}^2-\text{$\#$1} \text{$\#$2}^4-4 \text{$\#$1} \text{$\#$2}^3-2 \text{$\#$1} \text{$\#$2}^2+4 \text{$\#$1} \text{$\#$2}-\text{$\#$1}-\text{$\#$2}^4+2 \text{$\#$2}^2-1\&\right\},\{4,3\}\right]\right)\right\}\right\}\]
数值解的结果
{1.2071067811865475244008443621048490392848359376884740365883398689953\
66239231053519425193767163820786,
{A ->
1.96349540849362077403915211454968930262323087460944113810934037019\
2385253928880624142521765838823167,
B -> 0.0895798942512430460337534906252297154364890497406960087899781\
9792170824985017997107414335071478519798,
c -> 1.0885173508449294183897377781045838661374494750249686740756260\
24193722902507148403411369708788508703}}
|
|