[Stack-cvs] stack-1-0/scripts/maxima stackmaxima.mac,1.20,1.21

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

Update of /cvsroot/stack/stack-1-0/scripts/maxima
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15020/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.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** stackmaxima.mac	14 Jul 2005 16:18:19 -0000	1.20
--- stackmaxima.mac	18 Jul 2005 11:58:22 -0000	1.21
***************
*** 1,669 ****
! /* ********************************** */
! /* Set options                        */
! /* ********************************** */
! 
! /* save("initial-world.lisp",all); */
! /* KILL(ALL); */
! /* load("initial-world.lisp"); */
! 
! SIMPSUM:TRUE;
! DISPLAY2D:FALSE;
[...1629 lines suppressed...]
!                 )
!         else if (isDenomSame(s1,t1) = false and isDenomSame(s1,t2) = false and isDenomSame(s1, t3) = false)
!         OR (isDenomSame(s2,t1) = false and isDenomSame(s2,t2) = false and isDenomSame(s2, t3) = false)
!         OR (isDenomSame(s3,t1) = false and isDenomSame(s3,t2) = false and isDenomSame(s3, t3) = false) then
!             BLOCK(
!                 val: "true",
!                 rawmk: String(0),
!                 ansnote: "ATPartFrac_denom_ret",
!                 fb: Sconcat("AtPartFrac_denom_ret ", denom(factor(sExpr)), " " , denom(factor(tExpr)))
!                 )
!         else    
!             BLOCK(
!                 val: "true",
!                 rawmk:  String(0),
!                 ansnote: "ATPartFrac_ret_expression",
!                 fb: Sconcat("AtPartFrac_ret_expression ", factor(sExpr))
!                 ),
!         ret: StackReturnOb(val, rawmk, ansnote, fb),
!         RETURN(ret)
!     );