|
老办法(给出还没有化简的算式)。5楼的图。∠PDE=u, ∠PFD=v, ∠PEF=w,
BC=sin(a)=DB+DC, CA=sin(b)=EC+EA, AB=sin(c)=FA+FB, a,b,c 可以是任意数。
- Table[NSolve[{(Sin[u Pi/180] Sin[v Pi/180] Sin[w Pi/180])/
- (Sin[(75 - u) Pi/180] Sin[(60 - v) Pi/180] Sin[(45 - w) Pi/180]) == 1,
- Sin[a Pi/180] == (k Sin[45 Pi/180] Sin[(90 - v)Pi/180])/Sin[b Pi/180]
- +(k Sin[60 Pi/180]Sin[(w+45) Pi/180])/Sin[c Pi/180],
- (k Sin[45 Pi/180])/Sin[b Pi/180]==DB/Cos[v Pi/180]==FB/Sin[(u+15)Pi/180],
- (k Sin[60 Pi/180])/Sin[c Pi/180]==EC/Cos[u Pi/180]==DC/Sin[(w+45)Pi/180],
- (k Sin[75 Pi/180])/Sin[a Pi/180]==FA/Cos[w Pi/180]==EA/Sin[(v+30)Pi/180],
- c + w - u == 45, a + v - w == 60, b + u - v == 75, 90 > u > 0, v > 0},
- {DB, DC, EC, EA, FA, FB, k, u, v, w}],{a,41,41},{b,83,83},{c,180-a-b,180-a-b}]
复制代码
{{{{{DB -> 0.24298, DC -> 0.413079, EC -> 0.392593, EA -> 0.599953, FA -> 0.605951,
FB -> 0.223087, k -> 0.437253, u -> 30.7378, v -> 38.7378, w -> 19.7378}}}}}
有趣的是: 只要 a,b,c 是整数, u,v,w 的小数部分就相同。 |
|