** Using WeBWorK **

Here's the problem code. It's adapted from some PCC problems and another by Robin Cruz from about 2014.

Again, the issue is that when an answer is entered for the set-builder notation answer in text mode (Tt), the answer is processed correctly, and maintained in the Entered and Preview columns, but not displayed in the student's answer blank after each submission. And it is not there at all, even when I click into it.

##DESCRIPTION
## Compound Inequalities - OR
##
## Adapted from a problem by RA Cruz by Paul Seeburger
##
##ENDDESCRIPTION
## DBsubject(Algebra)
## DBchapter(Algebra of real numbers and simplifying expressions)
## DBsection(Inequalities and intervals)
## Institution('Monroe Community College')
## Author('Paul Seeburger, RA Cruz')
## MLT(Compound_inequality)
## KEYWORDS('inequalities','compound','and')
## Date('9/24/2014')

DOCUMENT(); # This should be the first executable line in the problem.

loadMacros(
"PGstandard.pl",
"PGchoicemacros.pl",
"MathObjects.pl",
"contextInequalitySetBuilder.pl",
"PGML.pl",
"PGcourse.pl",
);

TEXT(beginproblem());

######################################
# Setup
#This is an (-infinity,a) or (b,infinity) problem:

$a = non_zero_random(-3,2,1);
$c = random(2,3,1);
$ac = $a*$c;
do {$b = random(-4,4,1);} while ($a==$b);
$d = random(-3,-2,1);
$bd = $b*$d;

@inequal = ("$c x < $ac","$d x > $bd" );
@slice = NchooseK(2,2);

InequalitySetBuilder::UseVerticalSuchThat();
Context("InequalitySetBuilder-Only");
Context()->flags->set("formatStudentAnswer"=>'parsed');
Context()->strings->add("null set"=>{},
"empty set"=>{alias=>'null set'},
"{}"=>{alias=>'null set'},
"all real numbers"=>{},
);

#Context()->operators->undefine(">");
#Context()->{error}{msg}{"Can't use ' > ' in this context"} =
# "Simplest form for a chain inequality will never involve the > symbol. Rewrite it using <.";

$ans = Compute("x<$a");
if ($a<$b) {$ans = Compute("x<$b");}
$setans = Compute("{ x | $ans}");

Context("Interval");
Context()->strings->add("none"=>{}, "null set"=>{alias=>'none'});
if ($a<$b) {
$intans = Compute("(-inf,$b)");
}
else {
$intans = Compute("(-inf,$a)");
}
######################################
# Main text

BEGIN_TEXT
Solve the compound inequality.
\[ \Large {$inequal[$slice[0]] \quad\mbox{ or }\quad $inequal[$slice[1]] }\]
END_TEXT

$rn = "\{x \mid x \in \mathbb{R}\}";
BEGIN_PGML

Please type: *inf* for [`\infty`], *[$GTS]=* for [`\geq`], and *[$LTS]=* for [`\leq`]

In set-builder notation, the solution set is [______________].

If the answer is [`\varnothing`], type *null set*. If the answer is [`[$rn]`], type *all real numbers*.

An example of set-builder notation is [`\{x\mid x < 10\}`].

In interval notation, the solution set is [______________].
An example of interval notation is [`[1,\infty)`]. If the answer is [`\varnothing`], type *none* or *null set*.


END_PGML

$showPartialCorrectAnswers = 1;

ANS($setans->cmp(mathQuillOpts => "spaceBehavesLikeTab: false"));
ANS($intans->cmp(mathQuillOpts => "spaceBehavesLikeTab: false"));

######################################

COMMENT('MathObject version');
ENDDOCUMENT();