已知三角形三个边的长度值,求三个角的大小
2006-06-04 07:54
656 查看
没什么技术含量,一个余弦定理搞定:
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
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
相关文章推荐
- 已知三角形三个边的长度值,求三个角的大小
- 【原创】已知三个点坐标求其构成的三角形的内角大小
- 有n根棍子,棍子的长度为ai。想从中选出三个组成周长尽可能唱的三角形。
- 第五周项目二 对象作为数据成员 之 三角形已知三个顶点---两个类问题
- [LintCode 382]给定一个整数数组,在该数组中,寻找三个数,分别代表三角形三条边的长度,问,可以寻找到多少组这样的三个数来组成三角形?
- 给定一个整数数组,在该数组中,寻找三个数,分别代表三角形三条边的长度,问,可以寻找到多少组这样的三个数来组成三角形?
- 已知三角形的两点坐标,和三个边长,求第三点的坐标
- 三角形已知三个点坐标,求外心坐标的公式
- 已知三角形三个顶点求三角形内心
- 已知三角形的三个点坐标,求三角形的面积
- 已知三角形三个顶点的坐标a(x1,y1),b(x2,y2),c(x3,y3)求三角形中心点即内接圆的圆心
- DirectX11 已知三角形三个点,求面法线
- 已知三角形的两点坐标,和三个边长,求第三点的坐标
- 已知三角形的三条中线长度求面积
- 已知空间三角形的三个顶点,计算其归一化的法向量
- Http get方式url参数长度以及大小
- 定义一个函数,判断三个数字的大小,返回最大的数字
- 【HTML5入门】HTML/Jquery中限制textarea大小及输入字符长度
- varchar2设置长度与实际大小