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],
|
