Involute - angle

Commenter

Contenu du snippet

Pour trouver une involute à partir d'un angle et vice versa.

Source / Exemple : 


Function Involute(Angle As Double)

    Involute = Tan(Angle) - Angle

End Function

Function Angle(Involute As Double) As Double
    
    Dim Delta As Single
    Dim Tg    As Double

    Angle = 1.5
    Do
        Angle = Angle - Delta
        Tg = Tan(Angle)
        Delta = (Tg - Angle - Involute) / (Tg * Tg)
    Loop While Delta > 0.0000000001

End Function

Conclusion :


Ca sert surtout aux gens qui bossent sur les roues dentées et choses comme ça...

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Alain Proviste)