作者：谭宏景 | 来源：互联网 | 2023-05-17 10:36
已知三角形的两边a,b和夹角C
a=36
b=40
C=22度
用"余弦定理"求出了c边
c=15
再用“余弦定理”求出了A的余弦值
0.47709
请问怎样算出角度呀？
9 个解决方案
Function ArcSin(X As Double) As Double
ArcSin = Atn(X / Sqr(-X * X + 1))
End Function
Function ArcCos(X As Double) As Double
ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function
Private Sub Command1_Click()
' replace the 0.5 below with the degree (in radians) that
' you want to calculate its ArcSin or ArcCos value
MsgBox "ArcSin(0.5) = " & ArcSin(0.5)
MsgBox "ArcCos(0.5) = " & ArcCos(0.5)
End Sub
'------------
来我的小店坐坐:
http://shop35544104.taobao.com/
好像结果好像不是度数
求c边公式
c=Sqr(36^2+40^2-2*36*40*cos(22*3.1415926535897932/180))
约=15
cosA=40^2+15^2-36^2)/(2*40*15)
约=0.44
x=0.44
Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
约=1.115
1.115应该不是角度吧
弧度
你应该知道弧度和角度怎么转换吧
'------------------------------------
来我的小店坐坐:
http://shop35544104.taobao.com/
Dim q
q = Format((Atn(Sqr(1 / ((36 ^ 2 + 40 ^ 2 - 15 ^ 2) / (2 * 36 * 40)) ^ 2 - 1))) * 180 / 3.1415926, "0")
q就是你所求的度数
啊错了，你是求角A的度数，把它改下吧！
Dim q
q = Format((Atn(Sqr(1 / ((15 ^ 2 + 40 ^ 2 - 36 ^ 2) / (2 * 15 * 40)) ^ 2 - 1))) * 180 / 3.1415926, "0")
q就是你所求的度数
当然了，你可改成
Private Sub Command1_Click()
Dim q
q = (Atn(Sqr(1 / ((15 ^ 2 + 40 ^ 2 - 36 ^ 2) / (2 * 15 * 40)) ^ 2 - 1))) * 180 / 3.1415926
Text1.Text=q
End Sub
运行看看结果。
京公网安备 11010802041100号