Merge pull request #1333 from gajennings/main

OPL problems from PR#1280.  All work and all but one successfully produce hardcopies.  The one that throws hardcopy errors is 
 CollegeOfIdaho/setStatistics_Ch01PicturingDistributionsWithGraphs/01Stats_08_PictDistnsWGraphs/01Stats_08_PictDistnsWGraphs.pg
but I wasn't able to find the cause of the hardcopy error.

Author: gajennings

OpenProblemLibrary/270/setzKim/p6.pg

@@ -11,46 +11,27 @@
 ## Level(2)
 ## KEYWORDS('Average','Averages')
 
-DOCUMENT();        # This should be the first executable line in the problem.
+DOCUMENT();    # This should be the first executable line in the problem.
 
-loadMacros(
-  "PGstandard.pl",
-  "PGchoicemacros.pl",
-  "PGasu.pl",
-  "PGcourse.pl"
-);
+loadMacros('PGstandard.pl', 'PGML.pl', 'PGcourse.pl');
 
-TEXT(beginproblem());
-
-#
 # Now we do the randomization of variables, and other computations
 # as needed for this problem.  Sometimes we compute the answers here.
-#
-
-$a = random(1,9);
-$b = random(-3,2);
-
-$ans1 = ($a+$b)/2;
 
-#
-# Now the problem text itself, with ans_rule's to indicate where the
-# answers go.  You can stop entering text, do more computations, and then
-# start up again if you want.
-#
+$a = random( 1, 9);
+$b = random(-3, 2);
 
-BEGIN_TEXT
-What is the average of $a and $b?
-	$PAR
-	Average = \{ans_rule(40)\}
-END_TEXT
+$avg = ($a + $b) / 2;
 
-#
-# Tell WeBWork how to test if answers are right.  These should come in the
-# same order as the answer blanks above.  You tell WeBWork both the type of
-# "answer evaluator" to use, and the correct answer.
-#
+BEGIN_PGML
+What is the average of [$a] and [$b] ?
 
-ANS(num_cmp($ans1));
+	Average = [_]{Real($avg)}{10}
+END_PGML
 
-ENDDOCUMENT();        # This should be the last executable line in the problem.
+BEGIN_PGML_SOLUTION
+The average of two values is the sum divided by 2.  In this case
+[``` \frac{[$a]+[$b]}{2} = [$avg] ```]
+END_PGML_SOLUTION
 
+ENDDOCUMENT();        # This should be the last executable line in the problem.

OpenProblemLibrary/ASU-topics/setFinance/ch5revp1.pg

@@ -11,50 +11,38 @@
 ## Level(3)
 ## KEYWORDS('percent', 'mathematics for business', 'algebraic expression')
 
-DOCUMENT();        # This should be the first executable line in the problem.
+## Updated 2025.02 by Peter Staab, switch to PGML
 
-loadMacros(
-  "PGstandard.pl",
-  "PGchoicemacros.pl",
-  "PGasu.pl",
-  "PGcourse.pl"
-);
+DOCUMENT();
 
-TEXT(beginproblem());
+loadMacros('PGstandard.pl', 'PGML.pl', 'PGcourse.pl');
 
-$A = random(4,20,1)*100;
-$b = random(2,9,1);
+Context('LimitedNumeric')
+    ->flags->set(tolType => 'digits', tolerance => 2, tolTruncation => 1);
 
-$c = random(4,15,1);
-$r=$c/100;
+$A = random(4, 20) * 100;
+$b = random(2, 9);
 
-$n=12*$b;
-$i=$r/12;
+$c = random(4, 15);
+$r = $c / 100;
 
-TEXT(EV2(<<EOT));
-Find the principal needed to get  $DOLLAR$A in $b years at $c$PERCENT
-compounded monthly.
-$BR
-Principal = $DOLLAR \{ans_rule(20)\}
-$BR
-EOT
+$n = 12 * $b;
+$i = $r / 12;
+$P = Real($A / ((1 + $i)**$n));
 
-HINT(EV2(<<EOT));
-$BBOLD HINT: $EBOLD Use the compound interest formula \(A = P(1+i)^n \)
-to find \(P\).
-$BR
-$BR
-EOT
+BEGIN_PGML
+Find the principal needed to get  $[$A] in [$b] years at [$c]% compounded monthly.
 
-SOLUTION(EV3(<<'EOT'));
-$BBOLD SOLUTION:  $EBOLD 
-Use the compound interest formula \(A = P(1+i)^n \)
-with \( A= $A\), \(i = \frac{$r}{12}\), \(n=$n \)
-to find \(P\).
-EOT
+Principal = $[_]{$P}
+END_PGML
 
-$ans = $A/((1+$i)**$n);
+BEGIN_PGML_HINT
+Use the compound interest formula [`A = P(1+i)^n `] to find [`P`].
+END_PGML_HINT
 
-ANS(num_cmp($ans));
-
-ENDDOCUMENT();        # This should be the last executable line in the problem.
+BEGIN_PGML_SOLUTION
+Use the compound interest formula [`A = P(1+i)^n `]
+with [` A= [$A]`], [`i = \frac{[$r]}{12}`], [`n=[$n] `]
+to find [`P`].  The result is $[@sprintf("%.2f", $P)@].
+END_PGML_SOLUTION
+ENDDOCUMENT();    # This should be the last executable line in the problem.

OpenProblemLibrary/ASU-topics/setFinance/p3st.pg

@@ -12,34 +12,34 @@
 ## Level(3)
 ## KEYWORDS('percent', 'mathematics for business', 'algebraic expression')
 
-DOCUMENT();        # This should be the first executable line in the problem.
+## Updated 2025.02 by Peter Staab, switch to PGML and added a solution.
 
-loadMacros(
-  "PGstandard.pl",
-  "PGchoicemacros.pl",
-  "PGasu.pl",
-  "PGcourse.pl"
-);
+DOCUMENT();
 
-TEXT(beginproblem());
+loadMacros('PGstandard.pl', 'PGML.pl', 'PGcourse.pl');
+Context('LimitedNumeric')
+    ->flags->set(tolType => 'digits', tolerance => 3, tolTruncation => 1);
 
-$P = random(1,10,1)*100;
-$b = random(2,18,1);
-if($b==12) {
-  $b=8;
-}
+$P = random(1, 10) * 100;
+$b = random(2, 18);
+$b = 8 if ($b == 12);
 
-$c = random(3,18,1);
-$r=$c/100;
+$c = random(3, 18);
+$r = $c / 100;
+$A = Real($P * (1 + $r / 12)**$b);
 
-TEXT(EV2(<<EOT));
-Find the amount  if $DOLLAR$P is invested at  $c$PERCENT compounded monthly 
-for $b months.
-$BR
-Amount = $DOLLAR \{ans_rule(20)\}
-EOT
-$ans = $P*(1+$r/12)**$b;
+BEGIN_PGML
+Find the amount  if $[$P] is invested at an annual rate of [$c]% compounded monthly 
+for [$b] months.
 
-ANS(num_cmp($ans));
+Amount = $[_]{$A}
+END_PGML
 
-ENDDOCUMENT();        # This should be the last executable line in the problem.
+BEGIN_PGML_SOLUTION
+For this, we will use the formula:
+[``` A = P (1+i)^n ```]
+where [`P`] is the principal (original amount),  [`i`] is the compound interest rate (in this case [`[$c]/12`] and [`n`] is the number of compounding periods or [`[$b]`] in this case.  The result is 
+
+[``` A = [$P] (1 + [$r]/12)^[$b] = [@sprintf("%.2f", $A) @] ```]
+END_PGML_SOLUTION
+ENDDOCUMENT();

OpenProblemLibrary/ASU-topics/setGraphEquations/sw2_2_18.pg

@@ -11,51 +11,97 @@
 ## Level(2)
 ## KEYWORDS('algebra', 'coordinate', 'graph', 'intercepts')
 
-DOCUMENT();        # This should be the first executable line in the problem.
+## Updated 2025.02 by Peter Staab, switch to PGML and add a solution
+
+DOCUMENT();
 
 loadMacros(
-  "PGstandard.pl",
-  "PGchoicemacros.pl",
-  "PGcourse.pl"
+    'PGstandard.pl',  'PGML.pl', 'contextFraction.pl', 'PGtikz.pl',
+    'parserPopUp.pl', 'PGcourse.pl'
 );
 
-TEXT(beginproblem());
-
-$showPartialCorrectAnswers = 1;
-install_problem_grader(~~&std_problem_grader);
-
-$a = random(2,20,1);
-$b = random(1,9,1);
-
-BEGIN_TEXT
-For the graph of the equation \[y=$a x+$b\] draw a sketch of the graph on
-a piece of paper. Then answer the following questions:
-$BR $BR
-The \(x\)-intercept is : \( x = \) \{ans_rule(10)\}
-$BR 
-The \(y\)-intercept is : \( y = \) \{ans_rule(10)\}
-$BR 
-Is the graph symmetric with respect to the \(x\)-axis? 
-Input $BITALIC yes $EITALIC or $BITALIC no $EITALIC here : \{ans_rule(10)\}
-$BR 
-Is the graph symmetric with respect to the \(y\)-axis? 
-Input $BITALIC yes $EITALIC or $BITALIC no $EITALIC here : \{ans_rule(10)\}
-$BR 
-Is the graph symmetric with respect to the origin? 
-Input $BITALIC yes $EITALIC or $BITALIC no $EITALIC here : \{ans_rule(10)\}
-$BR 
-END_TEXT
-
-$ans1 = "-$b/$a";
-$ans2 = $b;
-$ans3 = "no";
-$ans4 = "no";
-$ans5 = "no";
-
-ANS(num_cmp($ans1));
-ANS(num_cmp($ans2));
-ANS(str_cmp($ans3));
-ANS(str_cmp($ans4));
-ANS(str_cmp($ans5));
-
-ENDDOCUMENT();        # This should be the last executable line in the problem.
+Context('Fraction');
+
+$a = random(2, 20);
+$b = random(1, 9);
+
+$x = Fraction(-$b, $a);
+
+$dd1 = DropDown([ 'Yes', 'No' ], 1);
+$dd2 = DropDown([ 'Yes', 'No' ], 1);
+$dd3 = DropDown([ 'Yes', 'No' ], 1);
+
+BEGIN_PGML
+For the graph of the equation [```y=[$a] x+[$b]```] draw a sketch of the graph on a piece of paper. Then answer the following questions:
+
+
+a) The [`x`]-intercept is : [` x = `] [_]{$x}
+
+b) The [`y`]-intercept is : [` y = `] [_]{Real($b)}
+
+c) Is the graph symmetric with respect to the [`x`]-axis? [_]{$dd1}
+
+d) Is the graph symmetric with respect to the [`y`]-axis?  [_]{$dd2}
+
+e) Is the graph symmetric with respect to the origin?  [_]{$dd3}
+
+END_PGML
+
+# determine the bounds of the lines for nicer plotting
+
+$xmax =
+    $m * 10.5 + $b > 10.5    ? (10.5 - $b) / $m
+    : $m * 10.5 + $b < -10.5 ? (-10.5 - $b) / $m
+    :                          10.5;
+
+$xmin =
+    $m * -10.5 + $b > 10.5    ? (10.5 - $b) / $m
+    : $m * -10.5 + $b < -10.5 ? (-10.5 - $b) / $m
+    :                           -10.5;
+
+$graph = createTikZImage();
+$graph->tikzLibraries('arrows.meta');
+$graph->BEGIN_TIKZ
+\tikzset{>={Stealth[scale=1.5]}}
+\filldraw[
+    draw=LightBlue,
+    fill=white,
+    rounded corners=10pt,
+    thick,use as bounding box
+] (-11,-11) rectangle (11,11);
+\draw[gray] (-10,-10) grid (10,10);
+\draw[->,thick] (-10.5,0) -- (10.5,0) node[above left,outer sep=3pt] {\(x\)};
+\foreach \x in {-10,-8,...,-2,2,4,...,10}
+    \draw(\x,5pt) -- (\x,-5pt) node [below] {\(\x\)};
+\draw[->,thick] (0,-10.5) -- (0,10.5) node[below right,outer sep=3pt] {\(y\)};
+\foreach \y in {-10,-8,...,-2,2,4,...,10}
+    \draw (5pt,\y) -- (-5pt,\y) node[left] {\(\y\)};
+\draw[blue,ultra thick,<->] plot[domain=$xmin:$xmax] (\x,{$a*\x+$b});
+END_TIKZ
+
+$alt_text = "Graph of the line y=$a x + $b.";
+
+BEGIN_PGML_SOLUTION
+A graph of the line is 
+
+>> [![$alt_text]!]{$graph}{400} <<
+
+a) The [`x`]-intercept is found by solving 
+    [```
+    \begin{aligned}
+    0 & = [$a] x + [$b] \\
+    -[$b] & = [$a] x \\
+    -\frac{[$b]}{[$a]} & = x
+    \end{aligned}
+    ```]
+
+b) The [`y`]-intercept is the constant term or [$b].
+
+c) The graph is not symmetric with respect to the [`x`]-axis. 
+
+d) The graph is not symmetric with respect to the [`y`]-axis. 
+
+e) The graph is not symmetric with respect to the origin.
+END_PGML_SOLUTION
+
+ENDDOCUMENT();        # This should be the last executable line in the problem.