a start

Doug Meade — Tue, 15 Nov 2011 19:55:48 Z

I am not going to provide all of the code for MapleTA, but here's some basic Maple code that should be helpful.

TEST := proc( ans::list )
  local ANS, CHECK;
  CHECK := X -> evalb( eval( eq, x=X ) );
  ANS := convert(ans,set);
  if nops(ANS)<>nops(ans) then
    return "incorrect, all of your answers must be different"
  end if;
  if nops(ANS)<>2 then
    return "incorrect, wrong number of solutions in response"
  end if;
  if `and`(map( CHECK, ANS )[]) then
    return "correct, both solutions are correct"
  else
    return "incorrect, at least one of your solutions is not correct"
  end if;
end proc;

Then, to show how this might be used:

eq := a*x^2=c*x;
                              2      
                           a x  = c x
ANS := [1,a,0,c/a];
                          [         c]
                          [1, a, 0, -]
                          [         a]

TEST( ANS );
       "incorrect, wrong number of solutions in response"
TEST( ANS[1] );
Error, invalid input: TEST expects its 1st argument, ans, to be of type list, but received 1
TEST( [ANS[1]] );
       "incorrect, wrong number of solutions in response"
TEST( ANS[1..2] );
   "incorrect, at least one of your solutions is not correct"
TEST( ANS[3..4] );
             "correct, both solutions are correct"
TEST( [0,a-a] );
       "incorrect, all of your answers must be different"

I hope this will be helpful for you.

Doug

---------------------------------------------------------------------
Douglas B. Meade  <><
Math, USC, Columbia, SC 29208  E-mail: mailto:meade@math.sc.edu
Phone:  (803) 777-6183         URL:    http://www.math.sc.edu

MaplePrimes - answers and comments on Question, Multiple answers

a start