Artifact fb5350dfcbdea2871395b3635453d8e4360ab4229b35ce46452dbe123d51027c:

• Executable file r37/packages/alg/alg.red — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 783) [annotate] [blame] [check-ins using] [more...]

• Executable file r38/packages/alg/alg.red — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 783) [annotate] [blame] [check-ins using]

module alg;  % Header module for alg package.

% Author: Anthony C. Hearn.

create!-package('(alg alg!-form intro general farith numsup genmod
                  random smallmod zfactor sort reval algbool simp
		  exptchk simplog logsort sub order forall eqn rmsubs
		  algdcl opmtch prep extout depend str coeff weight
		  linop elem showrule nestrad maxmin nssimp part map),
                nil);

flag('(alg),'core_package);

put('alglist!*,'initvalue!*,'(cons nil nil));

% Some renamings so that no user operations in algebraic mode need an
% asterisk.

deflist('((eval_mode !*mode)
	  (cardno!* card_no)
	  (fortwidth!* fort_width)
	  (high_pow hipow!*)
	  (low_pow lowpow!*)
	  (root_multiplicities multiplicities!*)),
	'newnam);

endmodule;

end;