\START82\
\COMMENT=JCM 1/04
\NAME=DTEPERP
\FILE=D:\WINLINK\SAV_JC~1\DTEPERP.82P
:ClrHome
:Disp "EQUATION DE D'"
:Disp "PERPENDIC.A D"
:Disp ""
:Disp "  M SUR D'"
:Disp "(EQ DE D DS Y1)"
:Disp ""
:0\->\X
:\Y1\\->\B
:1\->\X
:\Y1\-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
\STOP82\
