\START82\
\COMMENT=jcm 07/02
\NAME=VECTPS
\FILE=D:\WINLINK\SAV_JC~1\VECTPS.82P
: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
:\sqrt\((Z-X)\^2\+(T-Y)\^2\)\->\N
:Disp "NORME VECT 1 :",N
:\sqrt\((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
:\sqrt\(N\^2\+M\^2\-2*M*N*cos A)\->\B
:Disp "LONG 3EME COTE :",B
:Float
\STOP82\
