\start83\
\comment=Programme fichier dat du 06/22/06, 20:20
\name=DTEPERP
\file=DTEPERP.TXT
ClrHome
Disp "EQUATION DE D'"
Disp "PERPENDIC.A D"
Disp ""
Disp "  M SUR D'"
Disp "(EQ DE D DS Y1)"
Disp ""
0\->\X
Y\1\\->\B
1\->\X
Y\1\-B\->\A
Input "ABS X DE M=",X
Input "ORD Y DE M=",Y
Disp ""
If abs(A)>0
Then
\(-)\1/A\->\M
Y-M*X\->\P
Disp "D': Y=MX+P"
Disp "M=",M\>\Frac
Disp "P=",P\>\Frac
Else
Disp "CAS PART D':X=K"
Disp "K=",X
End

\stop83\

