|
|
用 Solve 可以解三角方程呀!!!
NSolve[{2 a + b == 12, a/Sin[A*Pi/180] == b/Sin[2 A*Pi/180] == 5, 2*S == a*b*Sin[A*Pi/180], 90 > A > 0}, {A, a, b, S}, WorkingPrecision -> 20]
{{A -> 44.434811183067040068, a -> 3.5004865167233746392, b -> 4.9990269665532507217, S -> 6.1255106295078419024},
{A -> 76.444608285012232467, a -> 4.8607188928149604128, b -> 2.2785622143700791744, S -> 5.3834651024394440713}} |
|