[Stack-cvs] stack-1-0/scripts/maxima stackmaxima.mac,1.24,1.25

[LastRenshai <las...@us...>]

Update of /cvsroot/stack/stack-1-0/scripts/maxima
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv465/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.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** stackmaxima.mac	5 Aug 2005 09:13:44 -0000	1.24
--- stackmaxima.mac	16 Aug 2005 12:34:14 -0000	1.25
***************
*** 654,657 ****
--- 654,737 ----
      )$
  
+ 
+ /* ************************ATSingFracTest****************************** */
+ /* requires:    Student Answer                                          */
+ /*      List:   [Teachers Answer, variable with which partial           */
+ /*              fraction occurs, whether Formative Feedback is required */
+ /* returns:     StackReturnOb                                           */
+ /*     Cases:                                                           */
+ /*              Returns True iff algerbraic equivalence with TList[1]   */
+ /*     and Division is the Top Operator.                                */
+ /*              False if Division not the top operator                  */
+ /*              False if different Variables are used                   */
+ /*              True(0) otherwise                                       */
+ /* ******************************************************************** */
+ ATSingFrac(sExpr, TList):= BLOCK(
+     [NEGDISTRIB, val, rawmk, fb, ansnote, tExpr, quiet, facdum],
+     NEGDISTRIB: FALSE, val:"", rawmk:"1", 
+     fb: StackAddFeedback("","AT_NOTIMPLEMENTED"),
+     ansnote:"",
+     if listp(TList) then 
+     BLOCK
+     ( tExpr: TList[1], wrt: TList[2], quiet: TList[3] )
+     else
+         RETURN(StackReturnOb("false","0","ATFacForm_error_list",StackAddFeedback("","ATSingFrac_error_list"))),
+     BLOCK
+     (
+         [val, rawmk,ansnote,fb],
+         rawmk: 0, fb: "", ansnote: "", ret: 
+         StackReturnOb(val,rawmk,ansnote,fb),
+         if factor( expand ( sExpr ) ) = factor( expand( tExpr ) ) then
+         BLOCK
+ 	(
+             topOp: op(sExpr),
+             if topOp = "//" then 
+ 	    BLOCK
+ 	    (
+                 val:"true",
+                 rawmk:"1",
+ 	        ansnote: "ATSingFrac_true",
+ 	        fb: StackAddFeedback("",ansnote)
+ 	    )
+ 	    else 
+ 	    BLOCK
+             (
+                 val:"false",
+                 rawmk:"0",
+                 ansnote:"ATSingFrac_part",
+                 fb: StackAddFeedback("",ansnote)
+             ),
+ 	ret: StackReturnOb(val,rawmk,ansnote,fb)
+         )
+         else if (sameVars(sExpr, tExpr) # true) then
+         BLOCK
+ 	(
+             val:"false",
+             rawmk:"0",
+             ansnote:"ATSingFrac_var",
+             fb: StackAddFeedback("",ansnote)
+         )
+         else if (partFrac(sExpr,wrt) # sExpr) then
+         BLOCK
+         (
+             val: "true",
+             rawmk:"0",
+             ansnote:"ATSingFrac_ret_Q",
+             fb: StackAddFeedback("",ansnote, StackDISP(partFrac(sExpr, wrt), "\$"))
+         )
+         else
+         BLOCK
+ 	(
+             val:"true",
+             rawmk:"0",
+             ansnote:"ATSingFrac_ret_exp",
+             fb: StackAddFeedback("",ansnote, StackDISP(factor(sExpr),"\$"))
+         ),
+         ret: StackReturnOb(val,rawmk,ansnote,fb),
+ 	if quiet # TRUE then fb:"",
+ 	RETURN(ret)
+     )
+ )$
+ 
  /*********************/
  /* Calculus question */