- 注册时间
- 2021-11-19
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 9340
- 在线时间
- 小时
|
发表于 2025-1-26 10:27:44
|
显示全部楼层
本帖最后由 nyy 于 2025-1-26 10:29 编辑
假设是两个内切圆,那么结果是:
- Clear["Global`*"];(*mathematica11.2,win7(64bit)Clear all variables*)
- (*子函数,利用三边计算角的余弦值,角是c边所对的角*)
- cs[a_,b_,c_]:=((a^2+b^2-c^2)/(2*a*b))
- (*子函数,海伦公式,利用海伦公式计算三角形的面积*)
- heron[a_,b_,c_]:=Module[{p=(a+b+c)/2},Sqrt[p*(p-a)*(p-b)*(p-c)]]
- (*子函数,用来计算内切圆半径的平方*)
- rr[a_,b_,c_]:=((2*heron[a,b,c]/(a+b+c))^2)
- (*子函数,用来计算平角两侧的余弦值的和,最后同分得到分子*)
- pj[a_,b_,c_,d_,e_]:=(Numerator@Together[cs[a,c,d]+cs[b,c,e]]==0)
- ans=FullSimplify@Solve[{
- rr[9,a,b]==rr[a,6,c],
- pj[b,c,a,9,6],
- b+c==13
- },{a,b,c}](*先求出数值解*)
- Grid[ans,Alignment->Left](*列表显示*)
- Grid[N@ans,Alignment->Left](*列表显示*)
- ccc=RootReduce[2*heron[9,a,b]/(9+a+b)/.ans](*找到内切圆的半径的根*)
- ddd=ToRadicals[ccc](*转化为根式*)
复制代码
求解结果
\[\begin{array}{lll}
a\to -\sqrt{14} & b\to \frac{1}{13} \left(3 \sqrt{14}+107\right) & c\to \frac{1}{13} \left(62-3 \sqrt{14}\right) \\
a\to \sqrt{14} & b\to \frac{1}{13} \left(107-3 \sqrt{14}\right) & c\to \frac{1}{13} \left(3 \sqrt{14}+62\right) \\
a\to 14-3 \sqrt{\frac{14}{13}} & b\to \sqrt{182}+5 & c\to 8-\sqrt{182} \\
a\to 3 \sqrt{\frac{14}{13}}+14 & b\to 5-\sqrt{182} & c\to \sqrt{182}+8 \\
\end{array}\]
数值化
\[\begin{array}{lll}
a\to -3.74166 & b\to 9.09423 & c\to 3.90577 \\
a\to 3.74166 & b\to 7.36731 & c\to 5.63269 \\
a\to 10.8868 & b\to 18.4907 & c\to -5.49074 \\
a\to 17.1132 & b\to -8.49074 & c\to 21.4907 \\
\end{array}\]
半径对应方程
\[\left\{\text{Root}\left[169 \text{$\#$1}^4-1200 \text{$\#$1}^2+1600\&,4\right],\text{Root}\left[169 \text{$\#$1}^4-1200 \text{$\#$1}^2+1600\&,3\right],2 \sqrt{\frac{10}{13}},2 \sqrt{\frac{10}{13}}\right\}\]
半径根式为
\[\left\{\sqrt{\frac{80 \sqrt{14}}{169}+\frac{600}{169}},\frac{2}{13} \sqrt{10 \left(15-2 \sqrt{14}\right)},2 \sqrt{\frac{10}{13}},2 \sqrt{\frac{10}{13}}\right\}\]
数值化
{2.30684, 1.33383, 1.75412, 1.75412} |
|