Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/unix/volume10/ifp/part01/fproot/math/linear/U

Text File | 1987-07-05 | 167 b | 12 lines

(* U part of LU decomposition of matrix *)

DEF U AS
   IF Singleton THEN id
   ELSE
      [
         U1k,
     Aik | [EACH #0 END,U] | ApndlCol
      ] | apndl
   END;