[Aimmath-commit] AIM/WEB-INF/maple Random.mpl,1.9,1.10

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

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

Modified Files:
	Random.mpl 
Log Message:
modified the "Nice" commands to have the first argument processed by Rand

Index: Random.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/Random.mpl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Random.mpl	20 Sep 2003 19:26:03 -0000	1.9
--- Random.mpl	20 Sep 2003 21:46:08 -0000	1.10
***************
*** 429,434 ****
    `Nice/Monomial`::InertExpr,
    "Produces a monomial of the form @a*x^n@ where @a@ is randomly selected from @arange@ and @n@ is randomly selected from @deg@ if those arguments are present.  If @deg@ or @arange@ are not passed as arguments the default value is @1..3@ for both. The argument @x@ is mandatory and can be any algebraic expression or Inert Expression.",
!   proc(x::{algebraic,InertExpr},deg,arange)
!     local n,a,nr,ar;
  
      # defaults
--- 429,436 ----
    `Nice/Monomial`::InertExpr,
    "Produces a monomial of the form @a*x^n@ where @a@ is randomly selected from @arange@ and @n@ is randomly selected from @deg@ if those arguments are present.  If @deg@ or @arange@ are not passed as arguments the default value is @1..3@ for both. The argument @x@ is mandatory and can be any algebraic expression or Inert Expression.",
!   proc(_x,deg,arange)
!     local n,a,nr,ar,x;
! 
!     x:=Rand(_x);
  
      # defaults
***************
*** 450,455 ****
    `Nice/Binomial`::InertExpr,
    "Produces a \"nice\" binomial from its arguments (which is more complicated than it sounds).  If one looks through the problems assigned in a typical calculus or precalc book, one will notice that there are certain rules that authors tend to follow when designing \"nice\" questions.  This procedure  attempts to produce a \"nice\" random binomial in @x@ that is a sum of a monomial in @x@ and a constant term in a random order. The defaults for the degree of the monomial and the two coefficients can be overriden by supplying the appropriate arguments. The argument @x@ is mandatory and can be any algebraic expression or Inert Expression.",
!   proc(x::{algebraic,InertExpr},deg,arange,brange)
!     local n,a,b,nr,ar,br,i;
  
      # defaults
--- 452,459 ----
    `Nice/Binomial`::InertExpr,
    "Produces a \"nice\" binomial from its arguments (which is more complicated than it sounds).  If one looks through the problems assigned in a typical calculus or precalc book, one will notice that there are certain rules that authors tend to follow when designing \"nice\" questions.  This procedure  attempts to produce a \"nice\" random binomial in @x@ that is a sum of a monomial in @x@ and a constant term in a random order. The defaults for the degree of the monomial and the two coefficients can be overriden by supplying the appropriate arguments. The argument @x@ is mandatory and can be any algebraic expression or Inert Expression.",
!   proc(_x,deg,arange,brange)
!     local n,a,b,nr,ar,br,i,x;
! 
!     x:=Rand(_x);
  
      # defaults
***************
*** 540,545 ****
    `Nice/Trinomial`::InertExpr,
    "Produces a \"nice\" trinomial in @x@. See #Nice/Binomial# for more info.",
!   proc(x::{algebraic,InertExpr},deg,arange,brange,crange)
!     local n,m,a,b,c,nr,ar,br,cr,i,typ;
  
      # defaults
--- 544,551 ----
    `Nice/Trinomial`::InertExpr,
    "Produces a \"nice\" trinomial in @x@. See #Nice/Binomial# for more info.",
!   proc(_x,deg,arange,brange,crange)
!     local n,m,a,b,c,nr,ar,br,cr,i,typ,x;
! 
!     x:=Rand(_x);
  
      # defaults