[Aimmath-commit] AIM/WEB-INF/maple RandArgs.mpl,NONE,1.1 PackageList,1.7,1.8

[<mo...@us...>]

Update of /cvsroot/aimmath/AIM/WEB-INF/maple
In directory sc8-pr-cvs1:/tmp/cvs-serv31316/WEB-INF/maple

Modified Files:
	PackageList 
Added Files:
	RandArgs.mpl 
Log Message:
Added a new Package RandArgs and associated documention and hooks.
This provides a library of predefined arguments for Rand and a html look-up catalog so that a question author can simply look up the kind of random expression he wants to use in his question in the catalog and then use it directly with no further programming needed.

--- NEW FILE: RandArgs.mpl ---

# Copyright (C) 2003 Ken Monks
# Distributed without warranty under the GPL - see README for details

read("Package.mpl"):

Package("RandArgs",
  "This package contains a large collection of premade arguments to Rand(). See the catalog for details. 
  "
):

# Parameters
`Package/Assign`(`Rand/SmallIntMax`,"",9):
`Package/Assign`(`Rand/SmallDenominators`,"",[2..6,8]):
`Package/Assign`(`Rand/Def`,"",[-9..-1,1..9]):
# Numbers
`Package/Assign`(`Rand/Posint`,"",[1..`Rand/SmallIntMax`]):
`Package/Assign`(`Rand/Negint`,"",[-`Rand/SmallIntMax`..-1]):
`Package/Assign`(`Rand/Integer`,"",[-`Rand/SmallIntMax`..`Rand/SmallIntMax`]):
[...1543 lines suppressed...]

# The following lines are used to create the "catalog" documentation for RandArgs.
# This takes a very long time, however so they are commented out except when making
# changes to RandArgs. DO NOT DELETE!  Note that if you use them yourself you should
# make the obvious system-specific modifications.  A better mechanism for turning this
# on and off should be devised some day.

# _cdir_:=currentdir():
# currentdir("D:\\AIM\\tomcat\\webapps\\ROOT\\doc"):
# writeto("RandArgCatalog.tex"):
#`RandArgs/MakeCatalog`(`RandArgs/StructuredDefinedNames`,5);
# system("latex -q RandArgCatalog");
# system("echo .");
# system("tth RandArgCatalog");
# system("echo .");
# writeto(terminal):
# currentdir(_cdir_):
# unassign('_cdir_');
  
EndPackage():

Index: PackageList
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/PackageList,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** PackageList	10 Oct 2003 15:44:14 -0000	1.7
--- PackageList	12 Jan 2004 05:58:12 -0000	1.8
***************
*** 65,67 ****
--- 65,68 ----
  aim/try/Question
  aim/try/Quiz
+ RandArgs
  Site