Fix bug 4694, improve wording

Author: gajennings

OpenProblemLibrary/AlfredUniv/anton8e/chapter10/review/prob7.pg

@@ -32,7 +32,8 @@ DOCUMENT();
 loadMacros(
   "PGstandard.pl",
   "MathObjects.pl",
-  "PGgraphmacros.pl",
+#  "PGgraphmacros.pl",
+  "parserRadioButtons.pl",
   "PGchoicemacros.pl",
   "PGcourse.pl"
 );
@@ -46,69 +47,96 @@ my @all,@correct,%difference;
 ##
 ## The list of series tests
 ##
-Context()->strings->are("Converges"=>{},"Converges Absolutely"=>{},"Converges Conditionally"=>{},"Diverges"=>{},"Divergence Test"=>{},"Geometric Series"=>{},"Integral Test"=>{},"P-Series"=>{},"Comparison Test"=>{},"Limit Comparison Test"=>{},"Ratio Test"=>{},"Alternating Series Test"=>{});
+Context("Numeric");
+Context()->variables->are(n=>"Real");
 
-$blank = String("");
-$converges = String("Converges");
-$convergesabs = String("Converges Absolutely");
-$convergescond = String("Converges Conditionally");
-$diverges = String("Diverges");
-
-$divergence = String("Divergence Test");
-$geometric = String("Geometric Series");
-$integral = String("Integral Test");
-$pseries = String("P-Series");
-$comparison = String("Comparison Test");
-$limitcomparison = String("Limit Comparison Test");
-$ratio = String("Ratio Test");
-$alternating = String("Alternating Series Test");
+#Context()->strings->are("Converges"=>{},"Converges Absolutely"=>{},"Converges Conditionally"=>{},"Diverges"=>{},"Divergence Test"=>{},"Geometric Series"=>{},"Integral Test"=>{},"P-Series"=>{},"Comparison Test"=>{},"Limit Comparison Test"=>{},"Ratio Test"=>{},"Alternating Series Test"=>{});
 
+#$blank = String("");
+#$converges = String("Converges");
+#$convergesabs = String("Converges Absolutely");
+#$convergescond = String("Converges Conditionally");
+#$diverges = String("Diverges");
+#
+#$divergence = String("Divergence Test");
+#$geometric = String("Geometric Series");
+#$integral = String("Integral Test");
+#$pseries = String("P-Series");
+#$comparison = String("Comparison Test");
+#$limitcomparison = String("Limit Comparison Test");
+#$ratio = String("Ratio Test");
+#$alternating = String("Alternating Series Test");
 
 ##############################################################################
 ##############################################################################
 ##
 ##  Set up the infinite series
 ##    
 ##  To change the problem change $n the start value for the series, $an the 
-## terms of the series, $correct which is the list of test that can be used 
-## for the series, $ans which is whether the series converges or not.
-
-Context()->variables->are(n=>"Real",k=>"Real");
+## terms of the series, @correct which is the list of tests that could be used 
+## for the series, @wrong which a list of tests that wouldn't work, 
+## and $ans which indicates whether the series converges or not.
 
 $n = 1; # starting value for the series
-$an = Formula("(-1)^nn/(2n)!")->TeX;
-$ans = $convergesabs;
-
-my @all = ($divergence->string,$geometric->string,$integral->string,$pseries->string,$comparison->string,$limitcomparison->string,$ratio->string,$alternating->string);
-
-my @correct = ($limitcomparison->string); 
+$an = Compute("(-1)^n* n/(2n)!");
 
-my %all=map{$_ =>1} @all;
-my %correct=map{$_=>1} @correct;
-my @difference=grep(!defined $correct{$_}, @all);
+@correct = ("Comparison Test", "Limit comparison test", "Ratio test");
+@wrong = ("Divergence test","Geometric series test","Integral test", 
+  "P-Series test", "Alternating series test");
 
-## The multiple choice question.
-$mc =  new_checkbox_multiple_choice();
+## "Which convergence test" question 
+$convTest =  new_checkbox_multiple_choice();
 ## the correct answers.
-$mc->qa("", @correct);
+$convTest->qa("", @correct);
 ## the list of other answers.
-$mc->extra(@difference);
+$convTest->extra(@wrong);
+
+## "Test result" question
+$ans = "Converges absolutely";
+$testResult = RadioButtons(
+    ["Converges", "Converges absolutely", "Converges conditionally", "Diverges"], 
+    $ans);
+
+#
+#
+#
+#$converges = String("Converges");
+#$convergesabs = String("Converges Absolutely");
+#$convergescond = String("Converges Conditionally");
+#$diverges = String("Diverges");
+#
+#
+#
+##Context()->variables->are(n=>"Real",k=>"Real");
+#
+#
+#$ans = $convergesabs;
+#
+#my @all = ($divergence->string,$geometric->string,$integral->string,$pseries->string,$comparison->string,$limitcomparison->string,$ratio->string,$alternating->string);
+#
+#my @correct = ($limitcomparison->string); 
+#
+#my %all=map{$_ =>1} @all;
+#my %correct=map{$_=>1} @correct;
+#my @difference=grep(!defined $correct{$_}, @all);
 
 Context()->texStrings;
 BEGIN_TEXT
-Testing for absolute convergence, which of the following series convergence tests could be applied to the infinite series  \(\sum\limits_{n=$n}^\infty $an\)? Check all that apply.
-\{ $mc->print_q() \}
-\{ $mc->print_a() \}
+Which of the following series convergence tests could be applied to test the infinite series \(\displaystyle \sum\limits_{n=$n}^\infty $an\) for $BBOLD absolute convergence${EBOLD}? Check all that apply.
+\{ $convTest->print_q() \}
+\{ $convTest->print_a() \}
 $BR
-The series \{ pop_up_list([$blank->string,$converges->string,$convergesabs->string,$convergescond->string,$diverges->string]) \}
+What is the result? The series  $BR
+\{ $testResult->buttons() \} $BR
+Choose the $BBOLD best $EBOLD answer from the list.
 END_TEXT
 Context()->normalStrings;
 
 install_problem_grader(~~&std_problem_grader);
 
 $showPartialCorrectAnswers = 0;
-ANS( checkbox_cmp( $mc->correct_ans() ) );
-ANS($ans->cmp);
+ANS( checkbox_cmp( $convTest->correct_ans() ) );
+ANS($testResult->cmp);
 
 
 ENDDOCUMENT();