[Aimmath-commit] AIM/WEB-INF/maple Random.mpl,1.13,1.14

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

Update of /cvsroot/aimmath/AIM/WEB-INF/maple
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20121

Modified Files:
	Random.mpl 
Log Message:
bug fix in Nice/Trinomial

Index: Random.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/Random.mpl,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Random.mpl	20 Dec 2003 21:42:57 -0000	1.13
--- Random.mpl	21 Feb 2004 03:51:36 -0000	1.14
***************
*** 569,578 ****
      # defaults
      # x:=x;
!     m:=Rand(1..3);
      ar:=[-3..-1,1..3];
      br:=[-3..-1,1..3];
      cr:=[-3..-1,1..3];
      y:=x;
!     n:=Rand(1..3);
      z:=1;
      p:=1;
--- 569,579 ----
      # defaults
      # x:=x;
!     # choose them together so we don't get a duplicate power
!     m,n:=Rand(Seq(1..3,2));
      ar:=[-3..-1,1..3];
      br:=[-3..-1,1..3];
      cr:=[-3..-1,1..3];
      y:=x;
!     #n:=Rand(1..3);
      z:=1;
      p:=1;