visodont
03-06-2004, 10:39
1-Che tipo di unità di misura da, la formula sotto riportata ? Radianti ?
2- Potrei sapere come trasformare le misure degli angoli in gradi ??
Mi servono per calcolare angoli su un' immagine grafica in VB6.
Grazie,
VisodonT
***********************************
Function Angoli(a, b, c, Alpha, Beta, Gamma)
' Alpha = lati bc
' beta = Lati ca
' Gamma = lati cb
pi = 2 * ArcCos(0) 'mi calcolo pi greco
Alpha = ArcCos((b ^ 2 + c ^ 2 - a ^ 2) / (2 * b * c))
Beta = ArcCos((a ^ 2 + c ^ 2 - b ^ 2) / (2 * a * c))
Gamma = pi - Alpha - Beta
MsgBox "Alpha = " & Alpha & " Beta = " & Beta & " Gamma = " & Gamma
End Function
2- Potrei sapere come trasformare le misure degli angoli in gradi ??
Mi servono per calcolare angoli su un' immagine grafica in VB6.
Grazie,
VisodonT
***********************************
Function Angoli(a, b, c, Alpha, Beta, Gamma)
' Alpha = lati bc
' beta = Lati ca
' Gamma = lati cb
pi = 2 * ArcCos(0) 'mi calcolo pi greco
Alpha = ArcCos((b ^ 2 + c ^ 2 - a ^ 2) / (2 * b * c))
Beta = ArcCos((a ^ 2 + c ^ 2 - b ^ 2) / (2 * a * c))
Gamma = pi - Alpha - Beta
MsgBox "Alpha = " & Alpha & " Beta = " & Beta & " Gamma = " & Gamma
End Function