home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / IFP05.ZIP / FPMATH.EXE / LINEAR.EXE / U < prev    next >
Encoding:
Text File  |  1987-02-09  |  179 b   |  12 lines
  1. (* U part of LU decomposition of matrix *)
  2.  
  3. DEF U AS
  4.    IF Singleton THEN id
  5.    ELSE
  6.       [
  7.          U1k,
  8.      Aik | [EACH #0 END,U] | ApndlCol
  9.       ] | apndl
  10.    END;
  11.  
  12.