home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_10 / DEVPAC56.ZIP / MATMULT1.BAS < prev    next >
BASIC Source File  |  1993-12-20  |  617b  |  48 lines

  1. '  Tutorial program MATMULT1.BAS supplied with DevpacDSP
  2. '  (c) Copyright HiSoft 1993
  3. '  All rights reserved
  4.  
  5. DEFINT i-n
  6. CONST n=4
  7.  
  8.  
  9. SUB Mult(a(2),b(2),c(2))
  10. FOR i=0 TO N-1
  11.     FOR j=0 TO N-1
  12.         FOR k=0 TO N-1
  13.             c(i,j)=c(i,j)+a(k,j)*b(i,k)
  14.         NEXT k
  15.     NEXT j
  16. NEXT i
  17. END SUB
  18.  
  19. DIM a(N-1,N-1),b(N-1,N-1),c(N-1,N-1)
  20.  
  21. FOR i=0 TO N-1
  22.     FOR j=0 TO N-1
  23.         a(i,j)=RND
  24.         b(i,j)=RND
  25.     NEXT j
  26. NEXT i
  27.  
  28. showmat a()
  29. showmat b()
  30.  
  31. t=TIMER
  32. Mult a(),b(),c()
  33.  
  34. showmat c()
  35. PRINT TIMER-t
  36. STOP -1
  37.  
  38. SUB showmat(c(2))
  39. FOR j= 0 TO N-1
  40.     FOR i=0 TO N-1
  41.         PRINT c(i,j),
  42.     NEXT i
  43.     PRINT
  44. NEXT j
  45. PRINT
  46.  
  47. END SUB
  48.