[Aimmath-commit] AIM/WEB-INF/maple AliceServer.mpl,1.4,1.5 Random.mpl,1.7,1.8

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

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

Modified Files:
	AliceServer.mpl Random.mpl 
Log Message:
Changes to LaTeX routines to accomodate pdf output, Also minor typos and bug fixes. 

Index: AliceServer.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/AliceServer.mpl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** AliceServer.mpl	1 Sep 2003 05:53:28 -0000	1.4
--- AliceServer.mpl	12 Sep 2003 03:16:46 -0000	1.5
***************
*** 30,37 ****
  readlib(latex):
  # KM
! # DIST unassign('`latex/exp`'):
  # END KM
- unassign('`latex/ln`'):
- unassign('`latex/log`'):
  readlib(randomize)():
  with(linalg):
--- 30,37 ----
  readlib(latex):
  # KM
! # WAS: unassign('`latex/exp`'):
! # WAS: unassign('`latex/ln`'):
! # WAS: unassign('`latex/log`'):
  # END KM
  readlib(randomize)():
  with(linalg):

Index: Random.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/Random.mpl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Random.mpl	8 Sep 2003 03:43:31 -0000	1.7
--- Random.mpl	12 Sep 2003 03:16:46 -0000	1.8
***************
*** 72,77 ****
  <LI>if the argument is a range of the form @a..b@ where @a@ and @b@ are single character strings, then a random character between @a@ and @b@ is returned (using @convert(-,bytes)@ for the values of the characters).
  <LI>if the argument is a range of the form @a..b@ where @a@ and @b@ are floating point numbers, then a random float between @a@ and @b@ is returned (with  precision similar to the precision specified by @a@ and @b@).
! <LI>if the argument is an AiM #SET# @S@, then @Rand(S['elements'])@ is returned
!     (see documentation for SET). Note that in general you should not use ordinary Maple sets in your AiM questions, since Maple sets do not have a guaranteed order for their elements (which can produce different results in different instances of the same question).
  <LI>if the argument is of the form @Fn(f,x[1],...,x[k])@ where @f@ is a argument to @Rand@ which returns a function of @k@ variables and each @x[i]@ is an argument to @Rand@, then for each @i@, @a[i]:=Rand(x[i])@ is computed. The value @Rand(f)(a1,...,a[k])@ is then returned.
  <LI>if the argument is of the form @Set(A,B)@, @AIMSET(A,B)@, @List(A,B)@, @DupList(A,B)@, @Seq(A,B)@, @DupSeq(A,B)@, @SUM(A,B)@, or @Prod(A,B)@ then a natural number @n=Rand(B)@ is computed and a set, #SET#, list, sequence, sum,
--- 72,77 ----
  <LI>if the argument is a range of the form @a..b@ where @a@ and @b@ are single character strings, then a random character between @a@ and @b@ is returned (using @convert(-,bytes)@ for the values of the characters).
  <LI>if the argument is a range of the form @a..b@ where @a@ and @b@ are floating point numbers, then a random float between @a@ and @b@ is returned (with  precision similar to the precision specified by @a@ and @b@).
! <LI>if the argument is an #`aim/SET`# @S@, then @Rand(S['elements'])@ is returned
!     (see documentation for #`aim/SET`#). Note that in general you should not use ordinary Maple sets in your AiM questions, since Maple sets do not have a guaranteed order for their elements (which can produce different results in different instances of the same question).
  <LI>if the argument is of the form @Fn(f,x[1],...,x[k])@ where @f@ is a argument to @Rand@ which returns a function of @k@ variables and each @x[i]@ is an argument to @Rand@, then for each @i@, @a[i]:=Rand(x[i])@ is computed. The value @Rand(f)(a1,...,a[k])@ is then returned.
  <LI>if the argument is of the form @Set(A,B)@, @AIMSET(A,B)@, @List(A,B)@, @DupList(A,B)@, @Seq(A,B)@, @DupSeq(A,B)@, @SUM(A,B)@, or @Prod(A,B)@ then a natural number @n=Rand(B)@ is computed and a set, #SET#, list, sequence, sum,
***************
*** 267,270 ****
--- 267,271 ----
          fi;
          if type(r,specfunc(list,Permute)) then a:=op(r) else a:=[op(r)] fi:
+         a:=map(Rand,a);
          n:=nops(a);
          t:=combinat[randperm](n);