home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCTORY / GEOGRAPY / M6.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  512 b   |  17 lines
  1. 10  PRINT "OPERATIONS ON TWO VECTORS"
  2. 20  PRINT
  3. 30  PRINT "VECTOR A: X,Y,Z COORDINATES";
  4. 40  INPUT X1, Y1, Z1
  5. 50  PRINT "VECTOR B: X, Y, Z COORDINATES";
  6. 60  INPUT X2, Y2, Z2
  7. 70  PRINT
  8. 80  PRINT "A+B="; X1+X2;", "; Y1+Y2;", "; Z1+Z2
  9. 90  PRINT "A-B="; X1-X2;","; Y1-Y2;","; Z1-Z2
  10. 100  PRINT "A.B="; X1 * X2+Y1 * Y2 + Z1 * Z2
  11. 110  PRINT "A*B="; Y1*Z2-Z1 * Y2;","; Z1 * X2-X1 * Z2;","; X1 * Y2-Y1 * X2
  12. 120  PRINT
  13. 130  PRINT "MORE DATA? (1=YES, 0=NO) ";
  14. 140  INPUT X
  15. 150  IF X = 1   THEN 20
  16. 160  RUN "MATH"
  17.