- 注册时间
- 2021-11-19
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 8641
- 在线时间
- 小时
|
发表于 2023-4-10 13:34:59
|
显示全部楼层
我画了一个△ABC三边等于5、6、7的情况的图
- Clear["Global`*"];(*清除所有变量*)
- (*子函数,四面体体积公式,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]
- {a,b,c}={5,6,7}(*△ABC三边赋值*)
- ans=Solve[{
- (y+z)/a==(z+x)/b==(x+y)/c,(*离心率相等,所以三者相等*)
- fun[x,y,z,a,b,c]==0,(*四面体体积等于零*)
- x>0&&y>0&&z>0(*限制变量范围*)
- },{x,y,z}]
- Grid[ans,Alignment->Left](*列表显示*)
- Grid[N[ans,20],Alignment->Left](*数值化列表显示*)
复制代码
求解结果
\[\begin{array}{lll}
x\to 4 \sqrt{\frac{1}{105} \left(537-64 \sqrt{39}\right)} & y\to \sqrt{\frac{3}{35} \left(537-64 \sqrt{39}\right)} & z\to 2 \sqrt{\frac{1}{105} \left(537-64 \sqrt{39}\right)} \\
x\to 4 \sqrt{\frac{1}{105} \left(64 \sqrt{39}+537\right)} & y\to \sqrt{\frac{3}{35} \left(64 \sqrt{39}+537\right)} & z\to 2 \sqrt{\frac{1}{105} \left(64 \sqrt{39}+537\right)} \\
\end{array}\]
数值化
\[\begin{array}{lll}
x\to 4.574382133286824 & y\to 3.430786599965118 & z\to 2.287191066643412 \\
x\to 11.94705699977233 & y\to 8.960292749829251 & z\to 5.973528499886167 \\
\end{array}\]
x->4.574382133286824 y->3.430786599965118 z->2.287191066643412
x->11.94705699977233 y->8.960292749829251 z->5.973528499886167
|
-
|