home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / j32.sit / tut / TUT22.JS < prev    next >
Text File  |  1991-06-13  |  307b  |  24 lines
  1.             GEOMETRY: 2-space Ha
  2.    length=. '%:+/y.^2':''
  3.    length 12 5
  4. 13
  5.    [ tri=. ? 2 3 $ 9
  6. 3 4 7
  7. 0 0 4
  8.    1 |."1 tri
  9. 4 7 3
  10. 0 4 0
  11.    [ lsides=.length tri-1|."1 tri
  12. 1 5 5.65685
  13.    [ semiper=. 2 %~ +/lsides
  14. 5.82843
  15.    area=. %:*/semiper-0,lsides
  16.    area
  17. 2
  18.    tri,1
  19. 3 4 7
  20. 0 0 4
  21. 1 1 1
  22.    2 %~ det tri,1
  23. 2
  24.