\start83\
\comment=Programme fichier dat du 06/22/06, 20:20
\name=VECTPS
\file=VECTPS.TXT
ClrHome
Disp ""
Disp "    VECTEURS"
Disp "PRODUIT SCALAIRE"
Disp "    7/02 JCM"
Disp "      ***
Pause 
ClrHome
Disp "COORD PT ORIG :"
Prompt X,Y
Disp "COORD 2EME PT :"
Prompt Z,T
Disp "COORD 3EME PT :"
Prompt U,V
ClrHome
Input "NB DECIMALES :",D
ClrHome
Disp "COORD VECT 1 :",Z-X,T-Y
Disp "COORD VECT 2 :",U-X,V-Y
Pause 
ClrHome
Fix D
\root\(((Z-X)\^2\+(T-Y)\^2\)\->\N
Disp "NORME VECT 1 :",N
\root\(((U-X)\^2\+(V-Y)\^2\)\->\M
Disp "NORME VECT 2 :",M
(Z-X)*(U-X)+(T-Y)*(V-Y)\->\S
Disp "P. SCALAIRE :",S
Pause 
ClrHome
N*M\->\P
S/P\->\Q
Degree
cos\^-1\(Q\->\A
Disp "ANGLE (EN DEG)",A
N*M*sin(A*0.5\->\T
Disp "AIRE TRIANGLE :",T
\root\((N\^2\+M\^2\-2*M*N*cos(A)\->\B
Disp "LONG 3EME COTE :",B
Float

\stop83\

