Ce programme sert à calculer différents relations entre les points d'un graphique. DISTANCE calcule la distance entre deux points. PT MILIEU calcule le points entre deux points. PT PARTAGE calcule le point de partage entre deux points. PENTE calcule la pente entre deux points. DROITES génère une droite passant par les deux points.DIST PTDROITE calcule la distance d'un point à une droite; (X,Y) sont les coordonnées du point.
PROGRAM: POINTS
:CLRHOME
:DISP "1:DISTANCE","2:PT MILIEU","3:PT PARTAGE","4:PENTE","5:DROITES","6:DIST
PTDROITE","
:INPUT "VOTRE CHOIX:",U
:CLRHOME
:INPUT "X1
=
",T
:INPUT "Y1
=
",Z
:INPUT "X2
=
",Y
:INPUT "Y2
=
",X
:IF U=
1
:DISP Ö((Y-T)2+(X-Z)2)
UFRAC
:IF U=
2
:DISP {(T+Y)/2,(Z+X)/2}UFRAC
:IF U=
3
:THEN
:INPUT "A
=
",W
:INPUT "B=
",V
:DISP
{T+W(Y-T)/(W+V),Z+W(X-Z)/(W+V)}UFRAC
:END
:IF U=
4
:DISP (X-Z)/(Y-T)UFRAC
:IF U=
5
:THEN
:{T,Y}®
L5
:{Z,X}®
L6
:LINREG L5,L6
:DISP "a",aUFRAC
,"b",bUFRAC
:END
:IF U=
6
:THEN
:DISP "AX+BY+C","
:INPUT "A:",A
:INPUT "B:",B
:INPUT "C:",C
:DISP "
:INPUT "X:",X
:INPUT "Y:",Y
:DISP ABS (AX+BY+C)/Ö(A2+B2)UFRAC
:END