- 注册时间
- 2021-11-19
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 9343
- 在线时间
- 小时
|
楼主 |
发表于 2025-4-7 08:44:29
|
显示全部楼层
- Clear["Global`*"];(*mathematica11.2,win7(64bit)Clear all variables*)
- deg=Pi/180;(*角度制下1°所对应的弧度*)
- (*子函数,利用三边计算角的余弦值,角是c边所对的角*)
- cs[a_,b_,c_]:=((a^2+b^2-c^2)/(2*a*b))
- ans=Solve[{
- (*∠BDE+∠CDE=180°,因此余弦值相加等于零*)
- Numerator@Together[cs[4,2*y,Sqrt[3]*x]+cs[2*x-4,2y,x]],
- (*∠BDA+∠CDA=180°,因此余弦值相加等于零*)
- Numerator@Together[cs[4,3y,c]+cs[2x-4,3y,b]],
- (*对∠BEC使用余弦定理*)
- Numerator@Together[cs[b,c,2x]-Cos[60deg]],
- (*∠BAE+∠CAE=270°,因此余弦值的平方和相加等于1*)
- Numerator@Together[cs[Sqrt[3]*x,y,c]^2+cs[x,y,b]^2-1]
- }==0,{x,y,b,c}]//FullSimplify//ToRadicals;
- Grid[ans,Alignment->Left](*列表显示*)
- aaa=Select[ans,(And[x>=0,y>=0,b>=0,c>=0]/.#)&](*过滤出非负数解*)
- Grid[aaa,Alignment->Left](*列表显示*)
- Grid[N@aaa,Alignment->Left](*数值列表显示*)
- bbb=(2x-4)/.aaa//Simplify
复制代码
方程组的全部解为
\[\begin{array}{|l|l|l|l|}
\hline
x\to 0 & y\to 0 & b\to 0 & c\to 0 \\
\hline
x\to 2-\frac{2 i}{\sqrt{3}} & y\to 0 & b\to -4 \sqrt{\frac{2}{3}} & c\to 4 (-1)^{5/6} \sqrt{2} \\
\hline
x\to 2-\frac{2 i}{\sqrt{3}} & y\to 0 & b\to 4 \sqrt{\frac{2}{3}} & c\to -4 (-1)^{5/6} \sqrt{2} \\
\hline
x\to 2-\frac{2 i}{\sqrt{3}} & y\to 0 & b\to \sqrt{-\frac{16}{21}-\frac{1}{7} 16 i \sqrt{3}} & c\to -4 \sqrt{\frac{4}{7}-\frac{2 i \sqrt{3}}{7}} \\
\hline
x\to 2-\frac{2 i}{\sqrt{3}} & y\to 0 & b\to -\sqrt{-\frac{16}{21}-\frac{1}{7} 16 i \sqrt{3}} & c\to 4 \sqrt{\frac{4}{7}-\frac{2 i \sqrt{3}}{7}} \\
\hline
x\to 2+\frac{2 i}{\sqrt{3}} & y\to 0 & b\to -4 \sqrt{\frac{2}{3}} & c\to -4 \sqrt[6]{-1} \sqrt{2} \\
\hline
x\to 2+\frac{2 i}{\sqrt{3}} & y\to 0 & b\to 4 \sqrt{\frac{2}{3}} & c\to 4 \sqrt[6]{-1} \sqrt{2} \\
\hline
x\to 2+\frac{2 i}{\sqrt{3}} & y\to 0 & b\to \sqrt{-\frac{16}{21}+\frac{16 i \sqrt{3}}{7}} & c\to -4 \sqrt{\frac{4}{7}+\frac{2 i \sqrt{3}}{7}} \\
\hline
x\to 2+\frac{2 i}{\sqrt{3}} & y\to 0 & b\to -\sqrt{-\frac{16}{21}+\frac{16 i \sqrt{3}}{7}} & c\to 4 \sqrt{\frac{2}{7} \left(2+i \sqrt{3}\right)} \\
\hline
x\to \frac{1}{3} (-2) \left(\sqrt{13}-5\right) & y\to -2 \sqrt{\frac{1}{3} \left(5-\sqrt{13}\right)} & b\to \frac{1}{3} (-4) \left(\sqrt{13}-2\right) & c\to 6-2 \sqrt{13} \\
\hline
x\to \frac{1}{3} (-2) \left(\sqrt{13}-5\right) & y\to \sqrt{\frac{2}{3} \left(10-2 \sqrt{13}\right)} & b\to \frac{1}{3} (-4) \left(\sqrt{13}-2\right) & c\to 6-2 \sqrt{13} \\
\hline
x\to \frac{1}{3} (-2) \left(\sqrt{13}-5\right) & y\to -2 \sqrt{\frac{1}{3} \left(5-\sqrt{13}\right)} & b\to \frac{4}{3} \left(\sqrt{13}-2\right) & c\to 2 \left(\sqrt{13}-3\right) \\
\hline
x\to \frac{1}{3} (-2) \left(\sqrt{13}-5\right) & y\to \sqrt{\frac{2}{3} \left(10-2 \sqrt{13}\right)} & b\to \frac{4}{3} \left(\sqrt{13}-2\right) & c\to 2 \left(\sqrt{13}-3\right) \\
\hline
x\to \frac{2}{3} \left(\sqrt{13}+5\right) & y\to -2 \sqrt{\frac{1}{3} \left(\sqrt{13}+5\right)} & b\to \frac{1}{3} (-4) \left(\sqrt{13}+2\right) & c\to -2 \left(\sqrt{13}+3\right) \\
\hline
x\to \frac{2}{3} \left(\sqrt{13}+5\right) & y\to 2 \sqrt{\frac{1}{3} \left(\sqrt{13}+5\right)} & b\to \frac{1}{3} (-4) \left(\sqrt{13}+2\right) & c\to -2 \left(\sqrt{13}+3\right) \\
\hline
x\to \frac{2}{3} \left(\sqrt{13}+5\right) & y\to -2 \sqrt{\frac{1}{3} \left(\sqrt{13}+5\right)} & b\to \frac{4}{3} \left(\sqrt{13}+2\right) & c\to 2 \left(\sqrt{13}+3\right) \\
\hline
x\to \frac{2}{3} \left(\sqrt{13}+5\right) & y\to 2 \sqrt{\frac{1}{3} \left(\sqrt{13}+5\right)} & b\to \frac{4}{3} \left(\sqrt{13}+2\right) & c\to 2 \left(\sqrt{13}+3\right) \\
\hline
x\to \frac{2}{15} \left(5-i \sqrt{35}\right) & y\to -\frac{2 \sqrt[4]{-1} \sqrt{\sqrt{35}-7 i}}{\sqrt{15}} & b\to -\frac{2 \left(\sqrt{35}-i\right)}{3 \sqrt{5}} & c\to -\frac{4 i}{\sqrt{5}} \\
\hline
x\to \frac{2}{15} \left(5-i \sqrt{35}\right) & y\to 2 \sqrt{\frac{1}{15} \left(7+i \sqrt{35}\right)} & b\to -\frac{2 \left(\sqrt{35}-i\right)}{3 \sqrt{5}} & c\to -\frac{4 i}{\sqrt{5}} \\
\hline
x\to \frac{2}{15} \left(5-i \sqrt{35}\right) & y\to -\frac{2 \sqrt[4]{-1} \sqrt{\sqrt{35}-7 i}}{\sqrt{15}} & b\to \frac{2 \left(\sqrt{35}-i\right)}{3 \sqrt{5}} & c\to \frac{4 i}{\sqrt{5}} \\
\hline
x\to \frac{2}{15} \left(5-i \sqrt{35}\right) & y\to 2 \sqrt{\frac{1}{15} \left(7+i \sqrt{35}\right)} & b\to \frac{2 \left(\sqrt{35}-i\right)}{3 \sqrt{5}} & c\to \frac{4 i}{\sqrt{5}} \\
\hline
x\to \frac{2}{15} \left(5+i \sqrt{35}\right) & y\to 2 (-1)^{3/4} \sqrt{\frac{1}{15} \left(\sqrt{35}+7 i\right)} & b\to \frac{2 \left(\sqrt{35}+i\right)}{3 \sqrt{5}} & c\to -\frac{4 i}{\sqrt{5}} \\
\hline
x\to \frac{2}{15} \left(5+i \sqrt{35}\right) & y\to -2 (-1)^{3/4} \sqrt{\frac{1}{15} \left(\sqrt{35}+7 i\right)} & b\to \frac{2 \left(\sqrt{35}+i\right)}{3 \sqrt{5}} & c\to -\frac{4 i}{\sqrt{5}} \\
\hline
x\to \frac{2}{15} \left(5+i \sqrt{35}\right) & y\to 2 (-1)^{3/4} \sqrt{\frac{1}{15} \left(\sqrt{35}+7 i\right)} & b\to -\frac{2 \left(\sqrt{35}+i\right)}{3 \sqrt{5}} & c\to \frac{4 i}{\sqrt{5}} \\
\hline
x\to \frac{2}{15} \left(5+i \sqrt{35}\right) & y\to -2 (-1)^{3/4} \sqrt{\frac{1}{15} \left(\sqrt{35}+7 i\right)} & b\to -\frac{2 \left(\sqrt{35}+i\right)}{3 \sqrt{5}} & c\to \frac{4 i}{\sqrt{5}} \\
\hline
\end{array}\]
过滤非负数,得到
\[\begin{array}{llll}
x\to 0 & y\to 0 & b\to 0 & c\to 0 \\
x\to \frac{1}{3} (-2) \left(\sqrt{13}-5\right) & y\to \sqrt{\frac{2}{3} \left(10-2 \sqrt{13}\right)} & b\to \frac{4}{3} \left(\sqrt{13}-2\right) & c\to 2 \left(\sqrt{13}-3\right) \\
x\to \frac{2}{3} \left(\sqrt{13}+5\right) & y\to 2 \sqrt{\frac{1}{3} \left(\sqrt{13}+5\right)} & b\to \frac{4}{3} \left(\sqrt{13}+2\right) & c\to 2 \left(\sqrt{13}+3\right) \\
\end{array}\]
数值化得到
\[\begin{array}{llll}
x\to 0. & y\to 0. & b\to 0. & c\to 0. \\
x\to 0.929632 & y\to 1.36355 & b\to 2.14074 & c\to 1.2111 \\
x\to 5.73703 & y\to 3.38734 & b\to 7.47407 & c\to 13.2111 \\
\end{array}\]
CD的长度得到
\[\left\{-4,\frac{1}{3} (-4) \left(\sqrt{13}-2\right),\frac{4}{3} \left(\sqrt{13}+2\right)\right\}\]
由于CD>=0,因此x>=2
|
|