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 */
|
