[Stack-cvs] stack-dev/maxima stackmaxima.mac,1.84.2.3,1.84.2.4

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

Update of /cvsroot/stack/stack-dev/maxima
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv29425/maxima

Modified Files:
      Tag: grobner
	stackmaxima.mac 
Log Message:


Index: stackmaxima.mac
===================================================================
RCS file: /cvsroot/stack/stack-dev/maxima/stackmaxima.mac,v
retrieving revision 1.84.2.3
retrieving revision 1.84.2.4
diff -C2 -d -r1.84.2.3 -r1.84.2.4
*** stackmaxima.mac	15 Nov 2010 14:18:25 -0000	1.84.2.3
--- stackmaxima.mac	15 Nov 2010 14:28:52 -0000	1.84.2.4
***************
*** 422,428 ****
  )$    
      
  decimalplaces(x,n) := block([simp:true,fpprintprec],fpprintprec:n,float(round(10^n*float(x))/(10^n)))$
  
- 
  /* Write numbers in significant figures */
  significantfigures(x,n) := block([fpprec:128,fpprintprec,simp:true,ex,ex2],
--- 422,428 ----
  )$    
      
+ /* Write the number x in n decimal places */
  decimalplaces(x,n) := block([simp:true,fpprintprec],fpprintprec:n,float(round(10^n*float(x))/(10^n)))$
  
  /* Write numbers in significant figures */
  significantfigures(x,n) := block([fpprec:128,fpprintprec,simp:true,ex,ex2],