- 注册时间
- 2021-11-19
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 9831
- 在线时间
- 小时
|
- Clear["Global`*"];(*mathematica11.2,win7(64bit)Clear all variables*)
- (*两角正切值,得到两角相加后的正切值*)
- tan[x_,y_]:=((x+y)/(1-x*y))
- (*联立方程组求解问题*)
- ans=Solve[{
- tan[a/b,d/b]==Tan[60Degree],(*两个角相加等于60°*)
- tan[b/d,c/d]==Tan[60Degree],(*两个角相加等于60°*)
- a*b/2==63,(*三角形面积公式*)
- b*d/2==210,(*三角形面积公式*)
- e==Sqrt[b^2+d^2],(*等边三角形边长*)
- a>0,b>0,c>0,d>0,e>0(*限制变量范围*)
- },{a,b,c,d,e}]//Simplify
- (*求出x与y的面积*)
- x=1/2*e*(b+c)*Sin[ArcTan[a/b]]-63
- y=c*d/2
- angle=d/b(*角的正切值*)
- (*代入方程组求解结果,并且努力化简*)
- out={x,y,angle}/.ans//FullSimplify
复制代码
求解结果
\[\left\{\left\{a\to 3^{3/4} \sqrt{7},b\to 6 \sqrt[4]{3} \sqrt{7},c\to \frac{10 \sqrt[4]{3}}{\sqrt{7}},d\to \frac{10 \sqrt{7}}{\sqrt[4]{3}},e\to \frac{4 \sqrt{91}}{\sqrt[4]{3}}\right\}\right\}\]
x与y与正切d/b的值
\[\left(
\begin{array}{ccc}
41 & 50 & \frac{5}{3 \sqrt{3}} \\
\end{array}
\right)\]
|
|