Programmer 7500/MAX_PROGRAMMERS.iso/INFO/MISC/IFP05.ZIP/FPMATH.EXE/LINEAR.EXE/L

Text File | 1987-02-09 | 184 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;