代码如下
b1 = -827177/10000/180*Pi;
b2 = 152279/10000/180*Pi;
t1 = Cos[b1];
t2 = Cos[b2];
ph1 = 2224/100/180*Pi;
ph2 = 8756/100/180*Pi;
Reduce[{-Tan[theta] Cos[ph - b1] - Tan[Ph1] ==
0, -Tan[theta] Cos[ph - b2] - Tan[Ph2] == 0, -Pi < ph < Pi, -Pi <
theta < Pi}, {ph, theta}]

刚装了两天感觉遇到了无数问题嘤嘤嘤

有木有大佬啊

b1 = -827177/10000/180*Pi;
b2 = 152279/10000/180*Pi;
ph1 = 2224/100/180*Pi;
ph2 = 8756/100/180*Pi;
FindRoot[{-Tan[theta] Cos[ph - b1] - Tan[ph1] == 0,
-Tan[theta] Cos[ph - b2] - Tan[ph2] == 0}, {{theta, 0.1}, {ph,
0.1}}]