[Stack-cvs] stack-1-0/scripts/maxima stackmaxima.mac,1.18,1.19

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

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

Modified Files:
	stackmaxima.mac 
Log Message:
PartFrac test added.

Index: stackmaxima.mac
===================================================================
RCS file: /cvsroot/stack/stack-1-0/scripts/maxima/stackmaxima.mac,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** stackmaxima.mac	14 Jul 2005 11:28:14 -0000	1.18
--- stackmaxima.mac	14 Jul 2005 12:53:41 -0000	1.19
***************
*** 577,580 ****
--- 577,597 ----
      )$
  
+ 
+ /* This is a partial Fractions answer test. */
+ ATPartFrac(SA,SBL) := BLOCK([NEGDISTRIB,Valid,RawMark,FeedBack,AnswerNote,SB,v,quiet,facdum],
+     NEGDISTRIB:FALSE,
+     Valid:"", RawMark:1, FeedBack:StackAddFeedback("","AT_NOTIMPLEMENTED"), AnswerNote:"",
+     /* SBL is a list: the teacher's answer, the variable, and whether formative feedback is to be provided. */
+     if listp(SBL) then (SB:SBL[1], v:SBL[2], quiet:SBL[3])  else
+         RETURN(StackReturnOb("false","0","ATFacForm_error_list",StackAddFeedback("","ATFacForm_error_list"))),
+     /* If we don't have an atom as the teacher's variable, then we need to make a substitution */
+     if atom(v)#TRUE then (SA:subst(facdum,v,SA),SB:subst(facdum,v,SB),v:facdum),
+     /*                                 */
+     /* Harry - your code could go here */
+     /*                                 */
+     if (quiet) then FeedBack:"",
+     RETURN(StackReturnOb("false",STRING(RawMark),AnswerNote,FeedBack))
+     )$
+ 
  /*********************/
  /* Calculus question */