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

原创 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...

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

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

已知三点,求三角形面积

方法一利用两点之间距离公式,求出三角形的三边长a,b,c后,令p = (a+b+c)/2。再套入以下公式就可以求出三角形的面积S :S = sqrt(p*(p-a)*(p-b)*(p-c)) ...

UVA 10347 Medians(已知三角形3中线长求面积)

UVA 10347 Medians(已知三角形3中线长求面积) 题意:        给你一个三角形的3条中线长度,要你输出该三角形面积. 如果输入非法就输出-1.000. 分析:     &...

Codeforces 707C Pythagorean Triples(已知直角三角形一边求另两边)

C. Pythagorean Triples time limit per test 1 second memory limit per test 256 megabytes input sta...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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