Hi Mary,
You will need to change all occurrences of "True" to "Yes" and "False" to "No". You likely had changed them in the $tf->ra_pop_up_list() but not in the $tf -> qa() part.
Also, since you used $tf->choose(5); instead of $tf->choose(6); as was originally written, you will want to change the custom grader at the bottom of the problem:
$ENV{'grader_numright'} = [2,4,5]; # changed [2,4,6] to [2,4,5] since there are 5 problems total
$ENV{'grader_scores'} = [0.3,0.6,1];
$ENV{'grader_message'} = "You can earn " .
"30% partial credit for 2 - 3 correct answers, and " .
"60% partial credit for 4 correct answers."; # changed '4 - 5' to '4'
This custom grader will give 0% for 0-1 correct answers, 30% for 2-3 correct answers, and 60% for 4 correct answers, and 100% for 5 correct answers. If you forget to change [2,4,6] to [2,4,5], then the maximum possible score is 60%.
I also caught a mismatched parentheses error: { ) needed to be changed to { }.
If you want to be able to see which lines in your code are different from my code, I would recommend using a utility such as WinMerge, which is free and easily found using google. WinMerge will allow you to open two files at the same time and view them side-by-side. Also, scrolling will be in sync for both files and lines that are different will be highlighted.
I've provided a working example below.
Have a good evening!
Paul Pearson
#####################################
DOCUMENT();
loadMacros(
"PGstandard.pl",
"MathObjects.pl",
"PGchoicemacros.pl",
"PGgraders.pl",
);
TEXT(beginproblem());
###########################
# Setup
Context("Numeric");
$den = random(2,9,1);
$c = Compute("4*$den");
# Create and use pop up lists
$tf = new_select_list();
$tf->rf_print_q(~~&pop_up_list_print_q);
# Choices presented to students
$tf->ra_pop_up_list( [
"No answer" => "?",
"Yes" => "Yes",
"No" => "No",
]);
# Questions and answers
Context()->texStrings;
$tf -> qa (
"You need to divide \($c\) cookies among \($den\) people.",
"No",
"You need to find \(\frac{1}{$den}\) of \($c\) ounces.",
"No",
"You need to find how many \(\frac{1}{$den}\) doses there are in \($c\) ounces.",
"Yes",
"A sale advertises \(\frac{1}{$den}\) off a \($c\) dollar purchase.",
"No",
"You purchased \( $c\) yards of material. Each kit requires \(\frac{1}{$den}\) yard of material. You need to determine how many kits you can make.",
"Yes",
"You have \($c\) flowers and you need to determine how many bouquets of \($den\) flowers you can make.",
"No",
"If you do not pay your bill in by the due date you will be charged a fee of \(\frac{1}{$den}\) of the bill which totals \($c\) dollars.",
"No",
);
Context()->normalStrings;
# How many questions to use
$tf->choose(5);
###########################
# Main text
Context()->texStrings;
BEGIN_TEXT
Which of the following describes a situation where division by \(\frac{1}{$den}\) would be needed?
$BR
\{ $tf -> print_q() \}
END_TEXT
Context()->normalStrings;
############################
# Answer evaluation
$showPartialCorrectAnswers = 0;
#
# Incremental grader
#
install_problem_grader(~~&custom_problem_grader_fluid);
$ENV{'grader_numright'} = [2,4,5];
$ENV{'grader_scores'} = [0.3,0.6,1];
$ENV{'grader_message'} = "You can earn " .
"30% partial credit for 2 - 3 correct answers, and " .
"60% partial credit for 4 correct answers.";
#
# All or nothing grader
#
# install_problem_grader(~~&std_problem_grader);
ANS( str_cmp( $tf->ra_correct_ans() ) );
############################
# Solution
Context()->texStrings;
BEGIN_SOLUTION
${PAR}SOLUTION:${PAR}
You could put an explanation here.
END_SOLUTION
Context()->normalStrings;
COMMENT("MathObject version.");
ENDDOCUMENT();
PREP 2013 Question Authoring - Archived
changing true/false to yes/no
The cut-off date for posting to this forum is reached so you can no longer post to it.