Guide Contents

DigitalDan Home Page

Private Shared Function Degrees_To_Radians(deg As Double) As Double
Return deg * 180 / Math.PI
End Function
'
'
Private Shared Function Radians_To_Degrees(rad As Double) As Double
Return rad * Math.PI / 180
End Function
Imports System.Math
Private Function Sin_Degrees(angle As Double) As Double
Dim radians As Double = angle * 180 / Math.PI
Return Math.Sin(radians)
End Function
Private Shared Function Inv_Sin_Degrees(valu As Double) As Double
Dim radians As Double = Asin(valu)
Return radians * Math.PI / 180
End Function
Private Shared Function Sin_Degrees(angle As Double) As Double
Dim radians As Double = angle * 180 / Math.PI
Return Math.Sin(radians)
End Function
'
Private Shared Function Inv_Sin_Degrees(valu As Double) As Double
Dim radians As Double = Asin(valu)
Return radians * Math.PI / 180
End Function
'
Private Shared Function Cos_Degrees(angle As Double) As Double
Dim radians As Double = angle * 180 / Math.PI
Return Math.Cos(radians)
End Function
'
Private Shared Function Inv_Cos_Degrees(valu As Double) As Double
Dim radians As Double = Acos(valu)
Return radians * Math.PI / 180
End Function
'
Private Shared Function Tan_Degrees(angle As Double) As Double
Dim radians As Double = angle * 180 / Math.PI
Return Math.Tan(radians)
End Function
'
Private Shared Function Inv_Tan_Degrees(valu As Double) As Double
Dim radians As Double = Atan(valu)
Return radians * Math.PI / 180
End Function
'
Private Shared Function Hyp_Sin_Degrees(angle As Double) As Double
Dim radians As Double = angle * 180 / Math.PI
Return Math.Sinh(radians)
End Function
'
Private Shared Function Inv_Hyp_Sin_Degrees(valu As Double) As Double
Dim radians As Double = Asinh(valu)
Return radians * Math.PI / 180
End Function
'
Private Shared Function Hyp_Cos_Degrees(angle As Double) As Double
Dim radians As Double = angle * 180 / Math.PI
Return Math.Cosh(radians)
End Function
'
Private Shared Function Inv_Hyp_Cos_Degrees(valu As Double) As Double
Dim radians As Double = Acosh(valu)
Return radians * Math.PI / 180
End Function
'
Private Shared Function Hyp_Tan_Degrees(angle As Double) As Double
Dim radians As Double = angle * 180 / Math.PI
Return Math.Tanh(radians)
End Function
'
Private Shared Function Inv_Hyp_Tan_Degrees(valu As Double) As Double
Dim radians As Double = Atanh(valu)
Return radians * Math.PI / 180
End Function