Involut-Funktion

Sprache / Programm: Excel ab Version 97

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

Alpha: Winkel
Degrees: Gibt an, ob der Winkel in Radiant (Excel-Standardeinstellung) oder in Grad (360°) angegeben wurde. Voreinstellung ist Radiant

Rückgabewert

Involut des Winkels