[Stack-cvs] stack-1-0/scripts/maxima stackmaxima.mac,1.52,1.53

[Chris S. <san...@us...>]

Update of /cvsroot/stack/stack-1-0/scripts/maxima
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5826/scripts/maxima

Modified Files:
	stackmaxima.mac 
Log Message:


Index: stackmaxima.mac
===================================================================
RCS file: /cvsroot/stack/stack-1-0/scripts/maxima/stackmaxima.mac,v
retrieving revision 1.52
retrieving revision 1.53
diff -C2 -d -r1.52 -r1.53
*** stackmaxima.mac	27 Nov 2005 11:30:52 -0000	1.52
--- stackmaxima.mac	30 Jan 2006 09:25:41 -0000	1.53
***************
*** 142,148 ****
    
  /* Test code */
! /* for I:1 thru 10 do b[I]:0;
!    for I:1 thru 10000 do (j:(1+rand(10)),b[j]:b[j]+1)$
!    for I:1 thru 10 do print(b[I]); */
  
  
--- 142,153 ----
    
  /* Test code */
! /* 
! randtest(tn):= block([b],
!  b:makelist(0,x,0,(tn-1)),
!  for I:1 thru 1000 do (j:(ev(1+rand(tn),simp)),b[j]:b[j]+1),
!  return(b)); 
! 
!  for I:2 thru 10 do (print("New test: ",I),rt:randtest(I),print(rt));
! */
  
  
***************
*** 1228,1231 ****
  
  /* Stack expects some output */
! simp:false;
  print("[ Stack-Maxima started ]");
--- 1233,1236 ----
  
  /* Stack expects some output */
! 
  print("[ Stack-Maxima started ]");