Programme "Involute"

[Papillon_Helico]

Bonsoir !
Je m'en remet à vos connaissances de programmeurs TIBasic, j'aurai besoin durant mon stage de fin d'étude d'utiliser la fonction Involute.
Pour ceux qui ne la connaissent pas encore, elle consiste en inv(angle)=tan(angle)-angle
Le tout en radians

Ce que je recherche, pourrait être une réciproque de cette fonction, connaissant l'involute d'un angle inconnu, j'aurai besoin de connaître ce fameux angle.
J'utilise depuis plusieurs années ma TI82stat, elle me suffit pour le peu que je l'utilise.

Pour résoudre à ce problème j'ai trouvé un programme sur internet, est ce que à votre avis c'est un bon équivalent BASIC ?

Code: Select all

: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

Si oui, est ce que quelqu'un pourrait m'aider à l'adapter en TIBasic ?

Merciii !

[Papillon_Helico]

J'ai trouvé un autre autre, peut être plus ergonomique que le premier, est ce que quelqu'un pourrait m'aider, rapidement ?

Code: Select all

INV_Angle(Inv as Double) As Double
Dim InvCal As Double
Dim PI as Double
Dim Angle_0 As Double
Dim Angle_1 As Double
Dim InvDif As Double
Dim AngleCal As Double
PI = 3.14
Angle_0 = 0
Angle1 = PI / 2
InvDif = Inv
AngleCal = 0
Do while Abs(InvDif) >0.00000001
AngleCal = (Angle_0 + Angle1) / 2
InvDif = Tan(AngleCal) - AngleCal - Inv
If InvDif > 0.0 Then
Angle_1 = AngleCal
Else
Angle_0 = AngleCal
End If
Loop
INV_Angle = AngleCal
End Function

[le solutionneur]

Salut, voilà le traduit tel quel.
Il prend en entrée dans la variable A et retourne dans la variable R

Code: Select all

    0->R
    0->B
    π / 2->C
    A->H
    0->Z
    while Abs(A) >0.00000001
    (B + C) / 2 ->Z
    Tan(Z) - Z - A -> H
    If H > 0.0
    Then
    Z->C
    Else
    Z->B
    End
    End   

    Z->R


[Papillon_Helico]

Merci beaucoup le_solutionneur !
Pour que tout le monde puisse avancer avec les constations que j'ai reportée sur le tchat,
le programme met beaucoup de temps à s’exécuter, il ne semble pas que la calculatrice soit suffisamment puissante.
Dans le principe lorsque j'entre

A= 0.0148956622

Le programme devrait me donner la valeur de 20° en radians à 3 chiffres après la virgule, soit 0.349 (rad).
Je vous écris cela si certains souhaitent essayer de faire avancer ^__^

[le solutionneur]

J'ai traduit la première fonction du coup.
Vois si ça marche mieux !

Code: Select all

    Disp "Involute"
    input A

    0->D
    0->T

    1.5->H
    H-D->H
    Tan(H)->D
    (T - H - A) / (T * T) ->D
    While D > 0.0000000001
    H-D->H
    Tan(H)->D
    (T - H - A) / (T * T) ->D
     end
     Disp "Angle="
     Disp H
     Disp "Tg="
     Disp T


Voilà, comme je savais pas lequel fallait retourner, j'affiche Angle et Tg

(D'ailleurs, si tu trouves une réponse utile, tu peux la noter juste au-dessus du message en cliquant sur les étoiles)