et voila mon programme pour tracer des derivées sur ti 81, 82, 83, et ptet aussi sur 80 (si vous avez pas peur de la griller ; -)
pour l instant le programme a un peu de mal avec les fonctions racine, et ln, mais ca va s arranger bientot...
PROGRAM:DERIVE
: Clrhome
: Disp"DERIVE"
: Input"F(X)",Y1
: Clrdraw
: Fnoff
: Xmin -> X
: Xmin -> D
: (abs Xmin)/10 -> E
: While (Y1(X)<Ymin) or (Y1(X)>Ymax)
: X -> D
: X+E -> X
: End
: (abs Xmin+abs Xmax)/50 -> F
: D -> X
: (Y1(X+F)-Y1(X-F))/2F -> B
: X -> A
: While X<=Xmax
: (Y1(X+F)-Y1(X-F))/2F -> C
: Line(A,B,X,C)
: C -> B
: X -> A
: X+F -> X
: End