已知三角形三个边的长度值,求三个角的大小

原创 2006年06月04日 07:54:00

没什么技术含量,一个余弦定理搞定:

Function angle(ByVal a As Double, ByVal b As Double, ByVal c As Double)
angle = (b * b + c * c - a * a) / (2 * b * c)
angle = Atn(-angle / Sqr(1 - angle * angle)) + 2 * Atn(1)
angle = Format(angle * 45 / Atn(1), "0.00") & "°"
End Function
Sub getangles(ByVal a As Double, ByVal b As Double, ByVal c As Double)
Dim x(6) As String
x(0) = "IF a=" & a
x(1) = "   b=" & b
x(2) = "   c=" & c
x(3) = "Then"
x(4) = "∠ABC=" & angle(b, c, a)
x(5) = "∠BAC=" & angle(a, b, c)
x(6) = "∠ACB=" & angle(c, a, b)
MsgBox Join(x, vbCrLf), vbInformation, "Result"
End Sub
Private Sub Command1_Click()
getangles 1, 2, 1.732
End Sub

DirectX11 已知三角形三个点,求面法线

龙书中讲到背面消隐部分,提到计算面法线公式,引入实际数值测试数学公式转编程结果。 思路:1)e0和e1两个向量叉乘得到垂直于该平面的法线           2)对法线向量单位化 测试结果:     ...

已知省市县三个list(json或者实体对象),求综合后的json数据

1.需求已经知道省市县三个list(json或者对象尸体),将三个list的内容整合到一个json数据中;2.解决方法: 分别建立三个实体对象,对应省市县,方便映射解析; 利用fastjson来处理和...

已知圆上的三个点求此圆的周长

The Circumference of the Circle 本题在ZOJ上题号是1090,在POJ上是2242。题目描述如下: Description To calculate the ci...

求内切圆的圆心和半径(已知三个点的坐标)

/****** m0 n0 m1 n1 m2 n2 为三角形的三个点的坐标值 m为横坐标 n为纵坐标 px 内切圆的圆心的横坐标 py 内切圆的圆心的纵坐标 pr 内切圆的半径***/int NeiQ...

求内切圆的圆心和半径(已知三个点的坐标)

转自:http://blog.csdn.net/baidu_31872269/article/details/54923589 /****** m0 n0 m1 n1 m2 n2 为三角形的...

(海伦公式)已知三角形三条边长,求面积

(海伦公式)已知三角形三条边长,求面积 海伦公式:  S=(△)=√[p(p-a)(p-b)(p-c)]  其中p是三角形的周长的一半p=(a+b+c)/2. ~~~~以下转自...

(海伦公式)已知三角形三条边长,求面积

(海伦公式)已知三角形三条边长,求面积   海伦公式:  S=(△)=√[p(p-a)(p-b)(p-c)]  其中p是三角形的周长的一半p=(a+b+c)/2. ~~~~以下转自百度百科~...

Python实现“已知三角形两个直角边,求斜边”

用Python实现“已知三角形两个直角边,求斜边” 要求:用户输入两个直角边(数值为浮点类型),若非浮点类型,则提示用户,继续输入。 思路:伪代码描述下步骤 1、-input a val...

POJ 2208 已知空间四面体六条边长度,求体积

Pyramids Time Limit: 1000MS   Memory Limit: 65536K Total Submissions: 2718   Accep...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:已知三角形三个边的长度值,求三个角的大小
举报原因:
原因补充:

(最多只允许输入30个字)