J'essaye de faire le programme pour verifié une derivée d'une expression mais quoi que je fasse il me met toujours que la derivée est "OK" même si elle est fausse.
Merci d'avance.
Code
:ClrHome
:Lbl M
:Menu("VERIF DERIV","VERIFIER",V,"AIDE",A,"QUITTER",Q)
:Lbl A
:Output(1,1,"AIDE :")
:Output(3,1,"ENTRER F DANS Y1")
:Output(5,2,"ET SA DERIVEE")
:Output(7,5,"DANS Y2")
:Pause
:Goto M
:Lbl V
:nDeriv(Y1,X,145) -> A (* "X" se trouve sur la touche "X,T,[THETA]"; la valeur 145 peut etre remplacée ! *)
:Y2(145) -> B (* "145" ce nombre doit etre egal au précédent ! *)
:abs(B-A) -> C
:If c<0.1 (* "0.1" est le seuil de tolérence, peut etre diminué pour augnenter la précision du calcul ! *)
:Then
:Output(4,4,"DERIVEE OK")
:Else
:Output(4,1,"ERREUR DE DERIV.")
:End
:Pause
:Lbl Q
:ClrHome