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)
! );
|
