https://bbs.emath.ac.cn/forum.php?mod=redirect&goto=findpost&ptid=17684&pid=87791&fromuid=865
这里也是一个答案！
Clear["Global`*"];(*mathematica11.2,win7(64bit)Clear all variables*)
m=Sqrt;(*等边三角形的边长*)
fab=a^2+b^2-2*a*b*Cos-m^2
fbc=b^2+c^2-2*b*c*Cos-m^2
fac=a^2+c^2-m^2
aaa=Resultant
bbb=Resultant
Solve
https://bbs.emath.ac.cn/forum.php?mod=redirect&goto=findpost&ptid=17704&pid=87936&fromuid=865
用这儿的多项式方程组做测试，可以得到四个解。
得到关于a的方程
\
求得方程的根是
\[\left\{\{a\to -2\},\{a\to 2\},\left\{a\to -\sqrt{7}\right\},\left\{a\to \sqrt{7}\right\}\right\}\]
页:
1
[2]