Merge pull request #1060 from gajennings/main

Fix bug 4772, update with Math Objects, PGML

Author: gajennings

OpenProblemLibrary/ASU-topics/setIntroduction_to_WeBWorK/mat106prob2.pg

@@ -1,4 +1,3 @@
-
 ## DESCRIPTION
 ## Introduction to WeBWorK
 ## ENDDESCRIPTION
@@ -17,173 +16,115 @@
 ## AuthorText1('')
 ## Section1('')
 ## Problem1('')
+## MO(1)
 
 
 DOCUMENT();        # This should be the first executable line in the problem.
 
 loadMacros(
   "PGstandard.pl",
-  "PGchoicemacros.pl",
+  "MathObjects.pl",
+  "PGML.pl",
   "PGcourse.pl"
 );
 
 TEXT(beginproblem());
 $showPartialCorrectAnswers = 1;
 
-BEGIN_TEXT
-This part demonstrates WeBWorK problems where you enter letters
-or words.  We start with a True/False question.
-
-$PAR
-
-Enter a $BITALIC T $EITALIC or an $BITALIC F $EITALIC in
-each answer space below to indicate whether the corresponding statement is true or
-false.
-
-$PAR
+## First we set up our variables.
 
-END_TEXT
+Context("Numeric");
+Context()->strings->add(T=>{},F=>{},"undefined"=>{});
 
-## First we set up our variables.
 $a = random(1,5,1);
 $b = random(6,10,1);
 $c = random(-10,-1,1);
 $d = random(-10,-1,1);
 $e = random(1,10,1);
 $f = random(5,10,1);
 
-$questStr1 = EV2(" \(  -$a   \lt    -$b              \) ");
-$ansStr1 = "F";
-$questStr2 = EV2(" \(   $c   \leq    $c              \) ");
-$ansStr2 = "T";
-$questStr3 = EV2(" \(   $d   \lt     $d              \) ");
-$ansStr3 = "F";
-$questStr4 = EV2(" \(   \pi  \geq    \frac{22}{7}    \) ") ;
-$ansStr4 = "F";
-$questStr5 = EV2(" \(  \sqrt {$e+3}  \geq    \sqrt $e + \sqrt 3    \) ");
-$ansStr5 = "F";
-$questStr6 = EV2(" \(  \sqrt {$f-3}  \geq    \sqrt $f - \sqrt 3    \) ");
-$ansStr6 = "T";
-$questStr7 = EV2(" \(  \sqrt {$f*$e}  \geq    \sqrt $e \sqrt $f    \) ");
-$ansStr7 = "T";
+# The first five question and answer pairs are randomly selected
+# from this list
+
+@quesAns = (
+  ["$a   \lt    -$b", String("F")],
+  ["$c   \leq    $c", String("T")],
+  ["$d   \lt     $d", String("F")],
+  ["\pi  \geq    \frac{22}{7}", String("F")],
+  ["\sqrt {$e+3}  \geq    \sqrt $e + \sqrt 3", String("F")],
+  ["\sqrt {$f-3}  \geq    \sqrt $f - \sqrt 3", String("T")],
+  ["\sqrt {$f*$e}  \geq    \sqrt $e \sqrt $f", String("T")]
+);
+
+# randomly select five from the seven above 
 
-@questions =( $questStr1,$questStr2,$questStr3,$questStr4,$questStr5,$questStr6,$questStr7);
-@answers =( $ansStr1,$ansStr2,$ansStr3,$ansStr4,$ansStr5,$ansStr6,$ansStr7);
+@choices = (0..6);
+for ($i=0; $i<5; $i++){
+  $j=random($i,6,1);
+  ($choices[$i],$choices[$j])=($choices[$j],$choices[$i]); 
+}
+@quesAns = @quesAns[@choices[0..4]];
 
-## Now choose randomly 5  questions out of the 7 question strings above.
+## Begin the text of the question
+## Insert the first five question/answer pairs into the text and generate the 
+## others within the text. 
 
-@slice = NchooseK(scalar(@questions),5);
+BEGIN_PGML
+This part demonstrates WeBWorK problems where you enter letters
+or words.  We start with a True/False question.
+
+Enter a _T_ or an _F_ in
+each answer space below to indicate whether the corresponding statement is true or false.
 
-## Next we output the 5 chosen questions. #
-TEXT( &match_questions_list(@questions[@slice]) );
+[___]{$quesAns[0][1]}  *1.* [`[$quesAns[0][0]]`]  
 
-ANS(str_cmp([ @answers[@slice] ] ));
+[___]{$quesAns[1][1]}  *2.* [`[$quesAns[1][0]]`] 
 
-TEXT(<<EOT);
+[___]{$quesAns[2][1]}  *3.* [`[$quesAns[2][0]]`] 
 
-$PAR
+[___]{$quesAns[3][1]}  *4.* [`[$quesAns[3][0]]`] 
 
+[___]{$quesAns[4][1]} *5.* [`[$quesAns[4][0]]`]
+ 
 Notice that if one of your answers is wrong then, in this problem,
 WeBWorK will tell you which parts are wrong and which parts are right.
 This is the behavior for most problems, but for true/false or multiple
 choice questions WeBWorK will usually only tell you whether or not all
 the answers are correct.  It won't tell you which ones are wrong.  The
 idea is to encourage you to think rather than to just try guessing.
 
-$PAR Typically all of the answers must be correct before you get
+Typically all of the answers must be correct before you get
 credit for a problem like this.
-EOT
 
-BEGIN_TEXT
-
-$PAR
-$HR
-$PAR
+-----
 
 Now we have a question where the answer involves a word.  When a word is
 a possible answer, we will usually emphasize your options by using
-$BITALIC italics $EITALIC. Where would this happen? 
-
-$PAR
+_italics_. Where would this happen? 
 
-Well, we might have a situation where we have division by zero. Of course, we all know that this is $BITALIC undefined $EITALIC.
+Well, we might have a situation where we have division by zero. Of course, we all know that this is _undefined_.
 
-$PAR
+We might also try to take the square root (or even root) of a negative number. This is also _undefined_ if we expect to get a real number as an answer. 
 
-We might also try to take the square root (or even root) of a negative number. This is also $BITALIC undefined $EITALIC if we expect to get a real number as an answer. 
+-----
 
-$PAR
-$HR
-$PAR
-
-Evaluate the following expressions.  Exact real number answers are required for each problem. When one of them does not evaluate to a real number, type $BITALIC undefined $EITALIC  in its answer box. Also, if you try to enter the calculation into WeBWorK for an $BITALIC undefined $EITALIC process, WeBWorK will NOT give you credit. 
-
-$PAR
+Evaluate the following expressions.  Exact real number answers are required for each problem. When one of them does not evaluate to a real number, type _undefined_ in its answer box. Also, if you try to enter the calculation into WeBWorK for an _undefined_ process, WeBWorK will NOT give you credit. 
 
 Pay attention to how placing parentheses, shifting the location of a negative sign, or changing an operation can change the result of the calculations.
 
-END_TEXT
-
-BEGIN_TEXT
-$PAR
-
-$BBOLD 6. $EBOLD $SPACE (2/3-3) = \{ ans_rule(20) \}
-
-END_TEXT
-
-ANS(str_cmp("-7/3"));
-
-BEGIN_TEXT
-$PAR
-
-$BBOLD 7. $EBOLD $SPACE 2/(3-3) = \{ ans_rule(20) \}
-
-END_TEXT
-
-ANS(str_cmp("undefined"));
-
-BEGIN_TEXT
-$PAR
-
-$BBOLD 8. $EBOLD $SPACE (4-4)/(3*3) = \{ ans_rule(20) \}
-
-END_TEXT
-
-ANS(str_cmp("0"));
-
-BEGIN_TEXT
-$PAR
-
-$BBOLD 9. $EBOLD $SPACE (4-4)/(3-3) = \{ ans_rule(20) \}
-
-END_TEXT
-
-ANS(str_cmp("undefined"));
-
-BEGIN_TEXT
-
-$PAR
-
-$BBOLD 10. $EBOLD $SPACE \( -\sqrt{25}\) = \{ ans_rule(20) \}
-
-$PAR
-
-END_TEXT
-
-$ans = "-sqrt(25)" ;
-ANS(num_cmp($ans));
+    *6.* [`(2/3-3)`] =  [__________]{Compute("-7/3")}
 
-BEGIN_TEXT
+    *7.* [`2/(3-3) `] = [__________]{String("undefined")}
 
-$PAR
+    *8.* [`(4-4)/(3*3) `] =  [__________]{Compute(0)}
 
-$BBOLD 11. $EBOLD $SPACE \( \sqrt{-25}\) = \{ ans_rule(20) \}
+    *9.* [`(4-4)/(3-3) `] = [__________]{String("undefined")}
 
-$PAR
+    *10.* [` -\sqrt{25} `] = [__________]{Compute(-5)}
 
-END_TEXT
+    *11.* [`\sqrt{-25} `] = [__________]{String("undefined")}
+END_PGML
 
-ANS(str_cmp("undefined"));
 
 
 ENDDOCUMENT();        # This should be the last executable line in the problem.