- 注册时间
- 2021-11-19
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 9612
- 在线时间
- 小时
|
楼主 |
发表于 2025-5-2 11:29:30
|
显示全部楼层
本帖最后由 nyy 于 2025-5-2 11:30 编辑
用六楼的办法
- Clear["Global`*"];(*mathematica11.2,win7(64bit)Clear all variables*)
- (*子函数,利用三边计算角的余弦值,角是c边所对的角*)
- cs[a_,b_,c_]:=((a^2+b^2-c^2)/(2*a*b))
- (*假设MQ=MD=x,PM=y,则BP=2x*)
- PQ=4
- BD=4*Sqrt[2]
- MQ=DM=x
- BP=2x
- MP=y
- BM=BP+MP
- ans=Solve[{
- PQ^2==MQ^2+MP^2,(*△PMQ勾股定理*)
- BM^2+DM^2==BD^2 (*△BMD勾股定理*)
- },{x,y}]//Simplify
- Grid[ans,Alignment->Left](*列表显示*)
- Grid[N@ans,Alignment->Left](*列表显示*)
- {AB,AP}={4,2*Sqrt[2]};(*线段长度赋值*)
- aaa=Tan[ArcCos@cs[AB,BP,AP]]/.ans//Simplify
复制代码
求解结果
\[\begin{array}{ll}
x\to -\sqrt{6-2 \sqrt{7}} & y\to -\sqrt{2 \left(\sqrt{7}+5\right)} \\
x\to \sqrt{6-2 \sqrt{7}} & y\to \sqrt{2 \left(\sqrt{7}+5\right)} \\
x\to -\sqrt{2 \left(\sqrt{7}+3\right)} & y\to \sqrt{10-2 \sqrt{7}} \\
x\to \sqrt{2 \left(\sqrt{7}+3\right)} & y\to -\sqrt{10-2 \sqrt{7}} \\
\end{array}
\]
数值化
\[\begin{array}{ll}
x\to -0.841723 & y\to -3.91044 \\
x\to 0.841723 & y\to 3.91044 \\
x\to -3.36028 & y\to 2.16991 \\
x\to 3.36028 & y\to -2.16991 \\
\end{array}\]
对应的正切值结果
\[\left\{\frac{1}{\sqrt{7}-4},\frac{1}{9} \left(\sqrt{7}+4\right),-\frac{1}{\sqrt{7}+4},\frac{1}{\sqrt{7}+4}\right\}\]
第一组与第三组的结果,有没有几何图形,不知道,也许有,估计是PQ调换的结果
|
|