home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / j32.sit / tut / TUT23.JS < prev    next >
Text File  |  1991-06-13  |  298b  |  25 lines
  1.             GEOMETRY: 3-space Hb
  2.    tri,1
  3. 3 4 7
  4. 0 0 4
  5. 1 1 1
  6.    2%~ det tri,1
  7. 2
  8.    2%~ det 1 0 2 {"1 tri,1
  9. _2
  10.    [ tetrahedron=. 0,"1 =/~ i. 3
  11. 0 1 0 0
  12. 0 0 1 0
  13. 0 0 0 1
  14.    
  15.    volume=. det&(,&1) % !&#
  16.    volume tetrahedron
  17. _0.166667
  18.    
  19.    [ tet=. ? 3 4 $ 9
  20. 6 0 3 0
  21. 3 6 5 8
  22. 7 4 0 5
  23.    volume tet
  24. 11.5
  25.