home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / j32.sit / tut / TUT25.JS < prev    next >
Encoding:
Text File  |  1991-06-13  |  365 b   |  24 lines
  1.     CONNECTIONS: conn. matrix Ib
  2.    
  3.    '01234567' {~ |: arcs
  4. 3725571555261237747274
  5. 5602627607332170423003
  6.    b=. '(i.,~x.)e.'
  7.    cmFarcs=. '':(b,'y.+/ . *x.,1')
  8.    
  9.    cm=. 8 cmFarcs arcs
  10.    cm
  11. 0 0 0 0 0 0 0 0
  12. 0 0 1 0 0 0 0 1
  13. 1 1 0 1 0 0 0 0
  14. 0 0 0 0 0 1 0 1
  15. 0 0 1 1 0 0 0 0
  16. 1 0 1 0 0 0 1 1
  17. 0 0 0 1 0 0 0 0
  18. 1 0 1 1 1 0 1 0
  19.    
  20.    +/cm
  21. 3 1 4 4 1 1 2 3
  22.    +/+/cm
  23. 19
  24.