Listing of file='14' on disk='vmedia/glbr_22.wvd.zip'
# Sector 592, program filename = '14' 0001 SELECT R 0005 DIM X(6),M(4),A(3) 0010 PRINT 0015 PRINT "INPUT VECTORS 1/LINE (X,Y,Z,CARRIAGE RETURN)" 0030 INPUT X(1),X(2),X(3) 0040 INPUT X(4),X(5),X(6) 0045 PRINT 0050 FOR I=1 TO 4 STEP 3 0060 M(I)=SQR(X(I)^2+X(I+1)^2+X(I+2)^2) 0070 IF M(I)=0 THEN 180 0080 PRINT "FOR VECTOR ";INT(I/4)+1 0090 PRINT " MAGNITUDE=";M(I) 0100 FOR J=1 TO 3 0110 B=X(I+J-1)/M(I) 0120 A(J)=ATN(SQR(1-B^2)/B)*57.29578 0130 NEXT J 0140 PRINT " ANGLE BETW. VECTOR AND X-AXIS=";A(1) 0150 PRINT " ANGLE BETW. VECTOR AND Y-AXIS=";A(2) 0160 PRINT " ANGLE BETW. VECTOR AND Z-AXIS=";A(3) 0170 PRINT 0180 NEXT I 0185 B=0 0190 IF M(1)=0 THEN 260 0200 IF M(4)=0 THEN 260 0210 B=(X(1)*X(4)+X(2)*X(5)+X(3)*X(6))/M(1)/M(4) 0220 IF B<>0 THEN 250 0230 B=90 0240 GOTO 260 0250 B=ATN(SQR(1-B^2)/B)*57.29578 0260 PRINT "ANGLE BETW. VECTORS= ";B 0280 PRINT 0290 PRINT "MORE INPUT? (1=YES,0=NO)" 0300 INPUT B 0310 IF B=1 THEN 10 0320 SELECT D : END