- 注册时间
- 2021-11-19
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 9343
- 在线时间
- 小时
|
本帖最后由 nyy 于 2025-4-14 09:19 编辑
利用余弦定理与反余弦函数列方程组,解决问题。
- 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))
- (*线段长度赋值*)
- AD=4;
- AC=5;
- (*利用余弦定理与反余弦函数,列方程组解方程组*)
- ans=Solve[{
- BD==Sqrt[2]*CD,(*已知条件*)
- cs[AB,AC,BC]==Cos[45deg],(*△ABC,∠BAC=135-90=45°,用余弦定理*)
- cs[BD,CD,BC]==Cos[135deg],(*△DBC余弦定理*)
- ArcCos@cs[AD,BD,AB]+ArcCos@cs[AD,CD,AC]==(360-135)deg,(*两个角相加等于(360-135)°*)
- AB>=0&&BC>=0&&BD>=0&&CD>=0 (*限制范围变量*)
- },{AB,BC,BD,CD}]//FullSimplify;
- Grid[ans,Alignment->Left](*列表显示*)
- Grid[N@ans,Alignment->Left](*列表显示*)
复制代码
求解结果
\[\begin{array}{llll}
\text{AB}\to \sqrt{30} & \text{BC}\to \sqrt{55-10 \sqrt{15}} & \text{BD}\to \sqrt{22-4 \sqrt{15}} & \text{CD}\to \sqrt{11-2 \sqrt{15}} \\
\end{array}\]
数值化
\[\begin{array}{llll}
\text{AB}\to 5.47723 & \text{BC}\to 4.03363 & \text{BD}\to 2.55109 & \text{CD}\to 1.80389 \\
\end{array}\]
看第13行的代码,就应该知道为什么我不用
https://bbs.emath.ac.cn/forum.ph ... 0062&pid=104943
的第04行代码
- cs[a_,b_,c_,x_]:=(a^2+b^2-c^2-2 a b Cos[x]==0)
复制代码
我用我的办法定义,前面再套一个反余弦函数,就能表达成角了,而这里的定义是不行的。
也可以利用四面体体积等于零来列方程组。
- 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))
- (*子函数,四面体体积公式,a,b,c分别是从一个顶点出发的三条棱,x,y,z分别是对棱*)
- fun[a_,b_,c_,x_,y_,z_]:=Sqrt[Det[{{0,1,1,1,1},{1,0,a^2,b^2,c^2},{1,a^2,0,z^2,y^2},{1,b^2,z^2,0,x^2},{1,c^2,y^2,x^2,0}}]/288]
- (*线段长度赋值*)
- AD=4;
- AC=5;
- (*利用余弦定理与四面体体积等于零,列方程组解方程组*)
- ans=Solve[{
- BD==Sqrt[2]*CD,(*已知条件*)
- cs[AB,AC,BC]==Cos[45deg],(*△ABC,∠BAC=135-90=45°,用余弦定理*)
- cs[BD,CD,BC]==Cos[135deg],(*△DBC余弦定理*)
- fun[AD,BD,CD,BC,AC,AB]==0,(*四面体D-ABC体积等于零*)
- AB>=0&&BC>=0&&BD>=0&&CD>=0 (*限制范围变量*)
- },{AB,BC,BD,CD}]//FullSimplify
- Grid[ans,Alignment->Left](*列表显示*)
- Grid[N@ans,Alignment->Left](*列表显示*)
- aaa=ArcCos@cs[AD,BD,AB]+ArcCos@cs[AD,CD,AC]/.ans//FullSimplify
复制代码
求解结果
\[\begin{array}{llll}
\text{AB}\to 4 \sqrt{5}-5 \sqrt{2} & \text{BC}\to \sqrt{205-60 \sqrt{10}} & \text{BD}\to \sqrt{82-24 \sqrt{10}} & \text{CD}\to \sqrt{41-12 \sqrt{10}} \\
\text{AB}\to \sqrt{30} & \text{BC}\to \sqrt{55-10 \sqrt{15}} & \text{BD}\to \sqrt{22-4 \sqrt{15}} & \text{CD}\to \sqrt{11-2 \sqrt{15}} \\
\end{array}\]
数值化
\[\begin{array}{llll}
\text{AB}\to 1.8732 & \text{BC}\to 3.90683 & \text{BD}\to 2.4709 & \text{CD}\to 1.74719 \\
\text{AB}\to 5.47723 & \text{BC}\to 4.03363 & \text{BD}\to 2.55109 & \text{CD}\to 1.80389 \\
\end{array}\]
两种情况,计算两个角相加的情况,得到
\[\left\{\frac{3 \pi }{4},\frac{5 \pi }{4}\right\}\]
从上面的情况可以知道,第一种情况D在△ABC的外面,第一种情况在里面
因此第二种情况才符合题意 |
|