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

Text File | 1987-07-05 | 173 b | 11 lines

(* L part of LU decomposition of matrix *)
DEF L AS
   IF Singleton THEN #<<1.0>>
   ELSE
      [
         Li1,
     Aik | [EACH #0 END,L] | apndl
      ] | ApndlCol
   END;