- 注册时间
- 2010-4-21
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 7300
- 在线时间
- 小时
|
发表于 2015-12-17 13:26:38
|
显示全部楼层
@数学星空, @creasson 20#的结果应该是对的
- area=Function[{a,b,c,k1,k2,k3,α,β,γ},With[{s=(Sqrt[a+b-c] Sqrt[a-b+c] Sqrt[-a+b+c] Sqrt[a+b+c])/4},(s (-4 s Cos[α] (4 s Cos[β] (4 s Cos[γ]-(a^2+b^2-c^2-2 b^2 k3) Sin[γ])+Sin[β] (4 (b^2-c^2+a^2 (-1+2 k2)) s Cos[γ]-(a^4 (-1+2 k2)-2 a^2 (c^2 k2+b^2 (k2-k3))-(b^2-c^2) (c^2+b^2 (-1+2 k3))) Sin[γ]))+Sin[α] (Sin[β] (-4 (-b^4+c^4 (1-2 k1)+2 b^2 c^2 k1+a^4 (-1+2 k2)-2 a^2 (b^2 (-1+k2)+c^2 (-k1+k2))) s Cos[γ]+(a^4+(b^2-c^2)^2-2 a^2 (b^2+c^2)) (c^2 (-1+2 k1)+a^2 (-1+2 k2)+b^2 (-1+2 k3)) Sin[γ])+4 s Cos[β] (-4 (a^2-b^2+c^2 (-1+2 k1)) s Cos[γ]+(a^4+2 a^2 (c^2 (-1+k1)-b^2 k3)+(b^2-c^2) (c^2 (-1+2 k1)+b^2 (-1+2 k3))) Sin[γ])))^2)/((4 s Cos[α] (4 s Cos[β]-(a^2-b^2+c^2) Sin[β])-Sin[α] (-4 (a^2-b^2+c^2) s Cos[β]+(a^4+(b^2-c^2)^2-2 a^2 (b^2+c^2)) Sin[β])) (4 s Cos[α] (4 s Cos[γ]+(-a^2+b^2+c^2) Sin[γ])-Sin[α] (-4 (a^2-b^2-c^2) s Cos[γ]+(a^4+(b^2-c^2)^2-2 a^2 (b^2+c^2)) Sin[γ])) (4 s Cos[β] (4 s Cos[γ]-(a^2+b^2-c^2) Sin[γ])-Sin[β] (-4 (a^2+b^2-c^2) s Cos[γ]+(a^4+(b^2-c^2)^2-2 a^2 (b^2+c^2)) Sin[γ])))]];
- (*Test*)
- area[a,Sqrt[3]a,2a,1/2,1/2,1/2,Pi/6,Pi/3,Pi/2]//Simplify
- area[2, 2, 2, 1/2, 1/2, 1/2,θ,θ,θ] // Simplify
- area[9,10,8,3/8,4/9,5/10,Pi/2,Pi/6,Pi/3]//Simplify//N
复制代码 |
评分
-
查看全部评分
|