\START82\
\COMMENT=modif jcm 12/03
\NAME=TANGENTE
\FILE=D:\WINLINK\SAV_JC~1\TANGENTE.82P
:ClrHome
:Disp "EQUAT TAN A C(F)"
:Disp "(EQUAT F DS Y1)"
:Prompt X
:nDeriv(\Y1\,X,X)\->\A
:\Y1\-AX\->\B
:Disp "Y=AX+B"
:Fix 2
:Disp "A",A,"B",B
:Float
\STOP82\
