Difference between revisions of "CustomAnswerCheckers"

From WeBWorK_wiki
Jump to navigation Jump to search
(8 intermediate revisions by 3 users not shown)
Line 2: Line 2:
   
 
<p style="background-color:#eeeeee;border:black solid 1px;padding:3px;">
 
<p style="background-color:#eeeeee;border:black solid 1px;padding:3px;">
<em>This code snippet shows the essential PG code to write problems that check "arbitrary" conditions on the student's answer. Note that these are <b>insertions</b>, not a complete PG file. This code will have to be incorporated into the problem file on which you are working.
+
<em>This is the essential PG code to write problems that check "arbitrary" conditions on the student's answer.
+
<br />
  +
<br />
 
You may also be interested in [http://webwork.maa.org/wiki/PeriodicAnswers PeriodicAnswers]
 
You may also be interested in [http://webwork.maa.org/wiki/PeriodicAnswers PeriodicAnswers]
 
</em>
 
</em>
Line 9: Line 9:
   
 
<p style="text-align:center;">
 
<p style="text-align:center;">
[[IndexOfProblemTechniques|Problem Techniques Index]]
+
[[Problem_Techniques|Problem Techniques Index]]
</p>
 
 
<p>
 
Note that it is possible to do this with old-style answer checkers as well. However, it's more straightforward to do it with MathObjects based answer checkers, so that's the method that we use here.
 
 
</p>
 
</p>
   
Line 30: Line 30:
 
<td style="background-color:#ccffcc;padding:7px;">
 
<td style="background-color:#ccffcc;padding:7px;">
 
<p>
 
<p>
<b>Initialization:</b> Standard.
 
  +
<b>Initialization:</b> Standard. You might want to use [http://webwork.maa.org/pod/pg/macros/answerCustom.html answerCustom.pl], although it is not necessary.
 
</p>
 
</p>
 
</td>
 
</td>
Line 37: Line 37:
 
<td style="background-color:#ffffdd;border:black 1px dashed;">
 
<td style="background-color:#ffffdd;border:black 1px dashed;">
 
<pre>
 
<pre>
  +
Context("Numeric");
  +
 
$ans = pi/3;
 
$ans = pi/3;
 
$val = cos($ans);
 
$val = cos($ans);
Line 57: Line 59:
 
<td style="background-color:#ffdddd;border:black 1px dashed;">
 
<td style="background-color:#ffdddd;border:black 1px dashed;">
 
<pre>
 
<pre>
  +
Context()->texStrings;
 
BEGIN_TEXT
 
BEGIN_TEXT
 
Enter a value of \(x\) for which \(\cos(x) = $val\):
 
Enter a value of \(x\) for which \(\cos(x) = $val\):
 
\(x = \) \{ ans_rule(25) \}
 
\(x = \) \{ ans_rule(25) \}
 
END_TEXT
 
END_TEXT
  +
Context()->normalStrings;
 
</pre>
 
</pre>
 
<td style="background-color:#ffcccc;padding:7px;">
 
<td style="background-color:#ffcccc;padding:7px;">
Line 72: Line 76:
 
<td style="background-color:#eeddff;border:black 1px dashed;">
 
<td style="background-color:#eeddff;border:black 1px dashed;">
 
<pre>
 
<pre>
  +
$showPartialCorrectAnswers = 1;
  +
 
ANS( $ans-&gt;cmp( checker=&gt;sub {
 
ANS( $ans-&gt;cmp( checker=&gt;sub {
 
my ( $correct, $student, $ansHash ) = @_;
 
my ( $correct, $student, $ansHash ) = @_;
 
return cos($correct) == cos($student);
 
return cos($correct) == cos($student);
 
} ) );
 
} ) );
  +
  +
ENDDOCUMENT();
 
</pre>
 
</pre>
 
<td style="background-color:#eeccff;padding:7px;">
 
<td style="background-color:#eeccff;padding:7px;">
 
<p>
 
<p>
 
<b>Answer Evaluation:</b>
 
<b>Answer Evaluation:</b>
Then when setting up the answer and solution section, we overwride the default answer checker in the answer. The replacement is a Perl subroutine that takes as its arguments the correct answer, student answer, and answer hash that is being processed in the answer comparison. Its return value should be 1 if the student's answer is correct, and 0 (false) otherwise.
+
Then when setting up the answer and solution section, we override the default answer checker in the answer. The replacement is a Perl subroutine that takes as its arguments the correct answer, student answer, and answer hash that is being processed in the answer comparison. Its return value should be 1 if the student's answer is correct, and 0 (false) otherwise. When doing the relational check, you should always put the correct answer on the left and the student answer on the right, e.g., <code>cos($correct) == cos($student)</code> should be used, but <code>cos($student) == cos($correct)</code> should not since the relational operator works from left to right which would mean that the student's answer would be determining the settings (such as domain of function evaluation) instead of the correct answer.
 
</p>
 
</p>
 
<p>
 
<p>
Line 87: Line 95:
 
sub mycheck {
 
sub mycheck {
 
my ($correct, $student, $ansHash) = @_;
 
my ($correct, $student, $ansHash) = @_;
return cos($student) == cos($correct);
+
return cos($correct) == cos($student);
 
}
 
}
   
Line 95: Line 103:
 
</p>
 
</p>
 
<p>
 
<p>
One final point: we can set an error message in the answer checker by using <code>Value-&gt;Error("message")</code>. This will set the message that is displayed to the student and exit the checker with an incorrect return value. For example:
+
We can set an error message in the answer checker by using <code>Value-&gt;Error("message")</code>. This will set the message that is displayed to the student and exit the checker with an incorrect return value. For example:
 
<pre>
 
<pre>
 
sub mycheck {
 
sub mycheck {
 
my ($correct, $student, $ansHash) = @_;
 
my ($correct, $student, $ansHash) = @_;
 
Value->Error("Try again") if cos($student)==sqrt(3)/2;
 
Value->Error("Try again") if cos($student)==sqrt(3)/2;
return cos($student) == cos($correct);
+
return cos($correct) == cos($student);
 
}
 
}
   
 
ANS( $ans-&gt;cmp( checker=&gt;~~&mycheck ) );
 
ANS( $ans-&gt;cmp( checker=&gt;~~&mycheck ) );
 
ENDDOCUMENT();
 
 
</pre>
 
</pre>
 
  +
To see all of the keys and values in the <code>$ansHash</code> when the submit answers button is pressed, include this in your custom answer checker:
  +
<pre>
  +
foreach my $key ( keys %{$ansHash} ) {
  +
warn "key: $key, value: $ansHash->{$key}";
  +
}
  +
</pre>
 
</p>
 
</p>
 
</td>
 
</td>
Line 114: Line 125:
   
 
<p style="text-align:center;">
 
<p style="text-align:center;">
[[IndexOfProblemTechniques|Problem Techniques Index]]
+
[[Problem_Techniques|Problem Techniques Index]]
 
</p>
 
</p>
   
Line 122: Line 133:
   
 
<ul>
 
<ul>
<li>POD documentation: [http://webwork.maa.org/pod/pg_TRUNK/macros/answerCustom.pl.html answerCustom.pl.html]</li>
+
<li>POD documentation: [http://webwork.maa.org/pod/pg/macros/answerCustom.html answerCustom.pl]</li>
 
<li>PG macro: [http://webwork.maa.org/viewvc/system/trunk/pg/macros/answerCustom.pl?view=log answerCustom.pl]</li>
 
<li>PG macro: [http://webwork.maa.org/viewvc/system/trunk/pg/macros/answerCustom.pl?view=log answerCustom.pl]</li>
 
</ul>
 
</ul>

Revision as of 17:40, 7 April 2021

Custom Answer Checkers: PG Code Snippet

This is the essential PG code to write problems that check "arbitrary" conditions on the student's answer.

You may also be interested in PeriodicAnswers

Problem Techniques Index

PG problem file Explanation
DOCUMENT();
loadMacros(
"PGstandard.pl",
"MathObjects.pl",
);
TEXT(beginproblem());

Initialization: Standard. You might want to use answerCustom.pl, although it is not necessary.

Context("Numeric");

$ans = pi/3;
$val = cos($ans);

Setup: To set up the custom answer checker we will override the answer checker routine for the MathObject that we're using to check the answer. Thus our answer object should be of the same type (e.g., Real, Formula, etc.) as what we want the student to be entering. For example, here we're going to ask for a value of x such that cos(x)=cos($ans). Thus we set up the answer to be a real number.

In this sample, we've taken advantage of a bunch of overloading that MathObjects do: the line $ans = pi/3 is doing the same thing as $ans = Real("pi/3") or $ans = Compute("pi/3"), because pi is already defined as a Real, and the division / is overloaded for MathObjects.

Similarly, $val = cos($ans) takes advantage of the cos() function being overloaded to produce a MathObject when the argument is a MathObject. Thus this is the same as $val = Compute("cos(x)")->eval(x=>$ans) (which would be necessary if $ans wasn't already a MathObject).

Context()->texStrings;
BEGIN_TEXT
Enter a value of \(x\) for which \(\cos(x) = $val\):
\(x = \) \{ ans_rule(25) \}
END_TEXT
Context()->normalStrings;

Main Text: We don't have to make any changes or additions to the text section of the file.

$showPartialCorrectAnswers = 1;

ANS( $ans->cmp( checker=>sub {
my ( $correct, $student, $ansHash ) = @_;
return cos($correct) == cos($student);
} ) );

ENDDOCUMENT();

Answer Evaluation: Then when setting up the answer and solution section, we override the default answer checker in the answer. The replacement is a Perl subroutine that takes as its arguments the correct answer, student answer, and answer hash that is being processed in the answer comparison. Its return value should be 1 if the student's answer is correct, and 0 (false) otherwise. When doing the relational check, you should always put the correct answer on the left and the student answer on the right, e.g., cos($correct) == cos($student) should be used, but cos($student) == cos($correct) should not since the relational operator works from left to right which would mean that the student's answer would be determining the settings (such as domain of function evaluation) instead of the correct answer.

We could also specify the answer checker as a separate subroutine by writing

sub mycheck {
  my ($correct, $student, $ansHash) = @_;
  return cos($correct) == cos($student);
}

ANS( $ans->cmp( checker=>~~&mycheck ) );

(The ~~ in the above is remapped to a backslash in the course of the PG translation of the problem.)

We can set an error message in the answer checker by using Value->Error("message"). This will set the message that is displayed to the student and exit the checker with an incorrect return value. For example:

sub mycheck {
  my ($correct, $student, $ansHash) = @_;
  Value->Error("Try again") if cos($student)==sqrt(3)/2;
  return cos($correct) == cos($student);
}

ANS( $ans->cmp( checker=>~~&mycheck ) );

To see all of the keys and values in the $ansHash when the submit answers button is pressed, include this in your custom answer checker:

foreach my $key ( keys %{$ansHash} ) {
  warn "key: $key, value: $ansHash->{$key}";
}

Problem Techniques Index