home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / EDUCATON / GEO_MATH.ZIP / M24.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-04-15  |  896 b   |  47 lines
  1. 10  PRINT "MATRIX ADDITION, SUBTRACTION, SCALAR MULTIPLICATION"
  2. 20  PRINT
  3. 30  DIM A (3,3) , B (3,3)
  4. 40  PRINT " 1 = ADDITION"
  5. 50  PRINT "2 = SUBTRACTION"
  6. 60  PRINT "3 = SCALAR MULTIPLICATION"
  7. 70  PRINT "WHICH OPERATION";
  8. 80  INPUT D
  9. 90  IF D <> 3 THEN 120
  10. 100  PRINT "VALUE OF SCALAR";
  11. 110  INPUT S
  12. 120  PRINT "DIMENSION OF MATRIX (R,C)";
  13. 130  INPUT R,C
  14. 140  FOR K = 1  TO 2
  15. 150  IF K = 2  THEN 180
  16. 160  PRINT "MATRIX 1: "
  17. 170  GOTO  190
  18. 180  PRINT "MATRIX 2:"
  19. 190  FOR J = 1  TO R
  20. 200  PRINT "ROW" ;J
  21. 210  FOR I = 1  TO C
  22. 220  PRINT "VALUE COLUMN" ;I;
  23. 230  IF K=2  THEN 260
  24. 240  INPUT A (J,I)
  25. 250  GOTO  270
  26. 260  INPUT B (J,I)
  27. 270  NEXT I
  28. 280  NEXT J
  29. 290  IF D=3   THEN 310
  30. 300  NEXT K
  31. 310  FOR J=1  TO R
  32. 320  FOR I=1  TO C
  33. 330  IF D<>2  THEN 350
  34. 340  B (J,I) =- B (J,I)
  35. 350  IF D=3  THEN 380
  36. 360  PRINT A (J,I) + B (J,I) ; "  ";
  37. 370  GOTO  390
  38. 380  PRINT A (J,I) *S; "  ";
  39. 390  NEXT I
  40. 400  PRINT
  41. 410  NEXT J
  42. 420  PRINT
  43. 430  PRINT "MORE DATA?  (1=YES, 0=NO) ";
  44. 440  INPUT D
  45. 450  IF D=1  THEN 70
  46. 460  RUN "MATH"
  47.