Benutzung auf eigene Gefahr ! |
Beschreibung |
Die Funktion berechnet Involut(a) und wird bei der Berechnung von Evolventenverzahnungen benötigt |
VBA-Quelltext |
' Calculation Involute() from an Angle Public Function Involute(Alpha As Double, Optional Degrees _ As Boolean = False) As Double ' Alpha: Given value angle For involute Function ' Degrees: True = Assume Alpha As given In degrees ' Only valid In Excel: Advises Excel To recalculate on changes Application.Volatile True ' Convert Alpha To Radians, If given In degrees If Degrees Then Alpha = WorksheetFunction.Radians(Alpha) ' Calculate And Return value Involute = Tan(Alpha) - Alpha End Function |
Argumente der Funktion/Prozedur |
|
Rückgabewert |
Involut des Winkels |