|
- (*假设BD=1;*)
- a = Sin[z]/Sin[z + x]; d = Sin[x]/Sin[z + x]; b = Sin[w]/
- Sin[y + w]; c = Sin[y]/Sin[y + w];
- A = \[Pi] - (z + x); B = x + y; C1 = \[Pi] - (y + w); D1 = z + w;
- Simplify[{Sin[A], Sin[B], Sin[C1], Sin[D1]}]
- Simplify[{Cot[A], Cot[B], Cot[C1], Cot[D1]}]
- Simplify[{Tan[A], Tan[B], Tan[C1], Tan[D1]}]
- Simplify[{Tan[A/2], Tan[B/2], Tan[C1/2], Tan[D1/2]}]
- S1 = (a + b + c + d)^2/(
- Cot[A/2] + Cot[B/2] + Cot[C1/2] + Cot[D1/2]) - (a - b + c - d)^2/(
- Tan[A/2] + Tan[B/2] + Tan[C1/2] + Tan[D1/2]); S2 =
- 2 (a d b Sin[A] + b c Sin[C1]); S3 = 2 (a b Sin[B] + d c Sin[D1]);
- Simplify[{S1, S2, S3, , S1 - S2}]
- (*Factor[{S1,S2,S1-S2}]*)
复制代码
不知道错在哪里 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|