** Using WeBWorK **

Any ideas?

Andy

<| Post or View Comments |>

You can certainly do this, and we already have several macros that do this kind of thing. I don't know if they are exactly what you have in mind.

http://webhost.math.rochester.edu/webworkdocs/docs/pglanguage/pod/PGchoicemacros describes the "front end" macros for multiple choice questions, matching questions, etc. and some examples of their use are at:

http://webhost.math.rochester.edu/webworkdocs/docs/pglanguage/tutorial/ (examples 3 through 7 )

Problem 3 of the MAAtutorial set at http://webwork.math.rochester.edu/maa100 (use practice1 as login, and password) is also similar.

There is also @slice = NchooseK(10,3) which gives a random ordered list of 3 integers between 0 and 9

@permutation=NchooseK(3,3) gives a permutation of the numbers 0,1,2

inverse(@permutation) gives the inverse of that permutation.

More detailed descriptions of the existing macros are in: http://webhost.math.rochester.edu/webworkdocs/docs/pglanguage/pod/List

http://webhost.math.rochester.edu/webworkdocs/docs/pglanguage/pod/Multiple

http://webhost.math.rochester.edu/webworkdocs/docs/pglanguage/pod/Select

http://webhost.math.rochester.edu/webworkdocs/docs/pglanguage/pod/Match

I hope this helps. Feel free to write back with a more detailed description of what is needed, if these references don't seem appropriate.

Take care,

Mike

<| Post or View Comments |>

Andy

**

DOCUMENT();

loadMacros('PG.pl', 'PGbasicmacros.pl', 'PGchoicemacros.pl', 'PGanswermacros.pl', );

TEXT(beginproblem());

$showPartialCorrectAnswers = 0;

$mca = new_multiple_choice;

$mca->qa('what is the negation of the following: If I form a study group then I raise my grades.', 'I form a study group and I lower my grades.' );

$mca->extra( 'I form a study group and I raise my grades.', 'If I work alone then I lower my grades.', 'I work alone or I raise my grades.' );

BEGIN_TEXT $PAR { $mca->print_q() } $PAR { $mcb->print_a() } END_TEXT ANS(radio_cmp($mca->correct_ans));

$mcb = new_multiple_choice;

$mcb->qa('what is the negation of the following: If P is a square then P is a rectangle.', 'P is a square and P is not a rectangle.' );

$mcb->extra( 'P is a square and P is a rectangle.', 'P is a square or P is a rectangle.', 'P is a square.' );

BEGIN_TEXT $PAR { $mcb->print_q() } $PAR { $mcb->print_a() } END_TEXT ANS(radio_cmp($mcb->correct_ans));

ENDDOCUMENT();

<| Post or View Comments |>

If you have a perl subroutine to generate these questions, you can store it in a file called "myMacros.pl" (or whatever name you like) which you place in the directory templates/macros. Add "myMacros.pl" to the list in loadMacros(). You will also need to uncomment the definition of $macroDirectory in webworkCourse.ph.

Hope this helps.

Take care,

Mike

DOCUMENT();
loadMacros('PG.pl',
	'PGbasicmacros.pl',
	'PGchoicemacros.pl',
	'PGanswermacros.pl',
);
TEXT(beginproblem()); 
$showPartialCorrectAnswers = 0;
$ra_question_and_answer[0] =
	['what is the negation of the following: If I form a study group then I raise my grades.', 
	'I form a study group and I lower my grades.'
	];
$ra_extra_answers[0] =[
	'I form a study group and I raise my grades.',
	'If I work alone then I lower my grades.',
	'I work alone or I raise my grades.'
	];

$ra_question_and_answer[1] = ['what is the negation of the following: If P is a square then P is a rectangle.',
'P is a square and P is not a rectangle.'
];
$ra_extra_answers[1] =[
'P is a square and P is a rectangle.',
'P is a square or P is a rectangle.',
'P is a square.'
];
$mca = new_multiple_choice;
$i = random(0,1,1); # choose one of the two sets of questions
$mca->qa(@{ $ra_question_and_answer[$i] } ); # The @{ ...} takes the reference
$mca->extras(@{$ra_extra_answers[$i] } );
BEGIN_TEXT
$PAR
{ $mca->print_q() }
$PAR
{ $mcb->print_a() }
END_TEXT
ANS(radio_cmp($mca->correct_ans));
ENDDOCUMENT();

<| Post or View Comments |>

$mc[0] = new_multiple_choice;

# mc[0] stuff

$mc[1] = new_multiple_choice;

# mc[1] stuff

$i = RANDOM(0, 1, 1);

BEGIN_TEXT
$PAR
{ $mc[$i]->print_q() }
$PAR
( $mc[$i]->print_a() }
END_TEXT
ANS(radio_cmp($mc[$i]->correct_ans));

<| Post or View Comments |>

Take care,

Mike

<| Post or View Comments |>

That does raise a newbie question: this file is going to be executed once for every student, right? The original questions are more like 3000 lines total with 20 versions of 10 questions instead of 2 versions of the same question. So it would seem like this could seriously slow down the problem generation sequence, if nothing else from the lag in reading in the generated questions off of the disk.

Andy

<| Post or View Comments |>