1-AUG-2019 SolveSys - Equation Library and Nonlinear Systems Solver

[Han]

Utility to convert old library data to newer format:

Code:

EXPORT UpdateLibDat()
BEGIN
  local lib:=AFiles("Equation Library.lib");
  local n:=size(lib);
  local j,sys;
  if n then
    for j from 1 to n do
      sys:=lib(j);
      if size(sys)==7 then
        sys(0):="New Category";
      end;
      lib(j):=sys;
    end;
    AFiles("Equation Library.lib"):=lib;
  end;
END;