Involute - angle

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 696 fois - Téléchargée 36 fois

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

Ajouter un commentaire Commentaires
Messages postés
908
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
2
Alain Volute ?
Messages postés
908
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
2
l'involute d'un angle c'est la reciproque de tan(x) - x , et cette grandeur est utilisée en physique et en particulier en mécanique lors des calculs qui interviennent dans l'élaboration d'engrenage. C'est important en fait pour qu'à chaque instant lorsque l'engrenage tourne dans un autre engrenage, les surfaces de contact soient le plus possible collées les unes aux autres, il faut donc des bords sur les dents des engrenages qui ne sont pas "anguleux" mais plus ou moins arrondis pour qu'à chaque instant de la rotation le contact soit maximal ( afin que le rendement de l'énergie fournit soit maximal )

voilà en gros ce qu'expliquait le lien que j'avais donné.

j'ai posté ceci en 2003, je venais donc d'avoir le bac, et je ne m'interessais pas du tout aux engrenages ( ni plus ni moins que maintenant d'ailleurs ) j'avais simplement publié cette source pour répondre à la question de qq sur le chat, qui devait trouver une reciproque à tan(x) - x à l'aide d'une itération de newton, et c'est ce que je fais.

voilà j'espere que ça répond à tes questions scsami
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
24
En plus, je viens de voir que "involute" n'existe pas dans le dico! "Volute", oui, mais pas "involute" !!!
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
24
Wai ben n'empêche qu'un screen shoot ayant un rapport permettrait peut-être de mieux comprendre non !?
Parce qu'en effet, c'est une très bonne question que celle de Houzefa !!!
Pi ça manque un peu de commentaires et d'explications!!!
Dit Alain, n'oubli pas que si toi t'es en prépa de maths, la majorité des gens (dont moi) sont de vrai billes en maths (pas qu'on ne veuille pas... c'est plutôt qu'on ne nous a pas permi de le devenir!).
Messages postés
908
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
2
ce truc là a était utile à quelqu'un un jour ?
:o
Afficher les 15 commentaires

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.