\START82\
\COMMENT=modif jcm 23/12/04
\NAME=DROITE
\FILE=D:\WINLINK\SAV_JC~2\DROITE.82P
:ClrHome
:Disp "EQUAT DROITE"
:Disp "COORD 1ER POINT"
:Prompt X,Y
:Disp "COORD 2EME POINT"
:Prompt Z,T
:ClrHome
:T-Y\->\A
:X-Z\->\B
:YZ-XT\->\C
:Disp "AX+BY+C=0"
:Disp "A=",A\>Frac\
:Disp "B=",B\>Frac\
:Disp "C=",C\>Frac\
:Pause 
:If abs (B)>0
:Then
:(T-Y)/(Z-X)\->\M
:Y-MX\->\P
:Disp "Y=MX+P"
:Disp "M=",M\>Frac\
:Disp "P=",P\>Frac\
:Else
:Disp "CAS PART D':X=K"
:Disp "K=",X
:End
\STOP82\
