1 SELECT R
5 DIM X(6),M(4),A(3)  
10 PRINT 
15 PRINT "INPUT VECTORS 1/LINE (X,Y,Z,CARRIAGE RETURN)" 
30 INPUT X(1),X(2),X(3)
40 INPUT X(4),X(5),X(6)
45 PRINT 
50 FOR I=1 TO 4 STEP 3 
60 M(I)=SQR(X(I)^2+X(I+1)^2+X(I+2)^2) 
70 IF M(I)=0 THEN 180 
80 PRINT "FOR VECTOR ";INT(I/4)+1 
90 PRINT "  MAGNITUDE=";M(I)  
100 FOR J=1 TO 3 
110 B=X(I+J-1)/M(I)
120 A(J)=ATN(SQR(1-B^2)/B)*57.29578
130 NEXT J  
140 PRINT "  ANGLE BETW. VECTOR AND X-AXIS=";A(1)
150 PRINT "  ANGLE BETW. VECTOR AND Y-AXIS=";A(2)
160 PRINT "  ANGLE BETW. VECTOR AND Z-AXIS=";A(3)
170 PRINT 
180 NEXT I  
185 B=0 
190 IF M(1)=0 THEN 260 
200 IF M(4)=0 THEN 260 
210 B=(X(1)*X(4)+X(2)*X(5)+X(3)*X(6))/M(1)/M(4) 
220 IF B<>0 THEN 250 
230 B=90  
240 GOTO 260  
250 B=ATN(SQR(1-B^2)/B)*57.29578  
260 PRINT "ANGLE BETW. VECTORS= ";B
280 PRINT 
290 PRINT "MORE INPUT? (1=YES,0=NO)"  
300 INPUT B
310 IF B=1 THEN 10 
320 SELECT D :END 

