<html dir="ltr">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css" id="owaParaStyle"></style>
</head>
<body fpstyle="1" ocsi="0">
<div style="direction: ltr;font-family: Tahoma;color: #000000;font-size: 10pt;">Sorry but I'm not sure how to test out the custom response, to be able to pin point why something isn't working. I created a question and it works for most of the few test cases
I went through, but it isn't working on one particular test case, which I put in the code. Does anyone know why it isn't working?
<div><br>
</div>
<div>The question randomly generates a binomial and divides it by a monomial.</div>
<div><br>
</div>
<div>I'm super stuck on this one and I don't know why. I used similar custom response in other questions that seemed to be working.</div>
<div><br>
</div>
<div>Thanks.</div>
<div><br>
</div>
<div>From Seema.</div>
<div><br>
</div>
<div><br>
</div>
<div><br>
</div>
<div>
<div><problem></div>
<div><script type="loncapa/perl"></div>
<div>sub numbervariable</div>
<div>{</div>
<div> $expression = shift;</div>
<div> $variable = shift;</div>
<div> $temp = length($expression);</div>
<div> $expression =~ s/($variable)/~~/g;</div>
<div> return length($expression) - $temp;</div>
<div>}</div>
<div><br>
</div>
<div>$factor1 = &random(-1,1,2) * &random(2,12,1);</div>
<div>$factor2 = &random(-1,1,2) * &random(2,12,1);</div>
<div>$factor3 = &random(-1,1,2) * &random(2,12,1);</div>
<div><br>
</div>
<div>$product1 = $factor1 * $factor2;</div>
<div>$product2 = $factor1 * $factor3;</div>
<div><br>
</div>
<div>#numerator exponents</div>
<div>$e11 = &random(5,9,1);</div>
<div>$e12 = &random(5,9,1);</div>
<div>$e21 = &random(5,9,1);</div>
<div>$e22 = &random(5,9,1);</div>
<div><br>
</div>
<div>#denominator exponents</div>
<div>$e31 = &random(0,5,1);</div>
<div>$e32 = &random(0,5,1);</div>
<div><br>
</div>
<div>#testcase 1 not working</div>
<div>$product1 = 24;</div>
<div>$e11 = 5;</div>
<div>$e12 = 8;</div>
<div>$product2 = -72;</div>
<div>$e21 = 7;</div>
<div>$e22 = 5;</div>
<div>$factor1 = -6;</div>
<div>$e31=4;</div>
<div>$e32=0;</div>
<div>#answer should be: 12*x^3*y^5-4*x*y^8, it worked once</div>
<div><br>
</div>
<div>$numerator = &cas('maxima', "$product1 * x^$e11 * y^$e12 + $product2 * x^$e21 * y^$e22");</div>
<div>$denominator = &cas('maxima', "$factor1 * x^$e31 * y^$e32");</div>
<div>$answer = &cas('maxima', "trigsimp(($numerator)/($denominator))");</div>
<div><br>
</div>
<div>$numerator =~ s/\*//g;</div>
<div>$denominator =~ s/\*//g;</script><startouttext />Simpify.</div>
<div><m eval='on'></div>
<div>\[</div>
<div> \frac{$numerator}{$denominator}</div>
<div>\]</div>
<div></m><br /></div>
<div><br>
</div>
<div>Answer:<endouttext /></div>
<div><customresponse answerdisplay="$answer"></div>
<div> <answer type="loncapa/perl">$userinput = $submission;</div>
<div>$correct = $answer;</div>
<div><br>
</div>
<div>$num_x = numbervariable($userinput,'x');</div>
<div>$num_y = numbervariable($userinput,'y');</div>
<div><br>
</div>
<div>$ans_x = numbervariable($correct,'x');</div>
<div>$ans_y = numbervariable($correct,'y');</div>
<div><br>
</div>
<div>#$equivalent = &cas('maxima',"is(trigsimp(trigreduce($submission-$answer)=0))");</div>
<div>$equivalent = &cas('maxima',"is(trigsimp($submission=$answer))");</div>
<div><br>
</div>
<div>if(($num_x==$ans_x) && ($num_y==$ans_y) && ($equivalent eq "true")){ return 'EXACT_ANS'; }</div>
<div>else{return 'INCORRECT';}</answer></div>
<div> <textline readonly="no" /></div>
<div> <hintgroup showoncorrect="no"></div>
<div> <startouttext /><endouttext /></div>
<div> </hintgroup></div>
<div></customresponse></div>
<div></problem></div>
</div>
<div><br>
</div>
</div>
</body>
</html>