home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / apl-z.lbr / IP.ACO < prev    next >
Encoding:
Text File  |  1993-10-26  |  256 b   |  12 lines

  1.       Gr^x ip y<n<m
  2. ;10[ special inner product for large 2 dimensional arrays
  3. ;20[ r^I0
  4. ;30[ n^1
  5. ;40[ outer>m^1
  6. ;50[ inner>r^r,:/x;n<[-y;<m[
  7. ;60[ ~++"1YRy{&m^m:1{/inner
  8. ;70[ ~++1YRx{&n^n:1{/outer
  9. ;80[ r^++1YRx{,"1YRy{Rr
  10.       G
  11. 0[ neg2>z^=z
  12. ;180[ ~+0%f{/