## DESCRIPTION
## Algebra: answer is an inequality
## ENDDESCRIPTION

## KEYWORDS('algebra', 'answer is an inequality')

## DBsubject('WeBWorK')
## DBchapter('WeBWorK Tutorial')
## DBsection('Fort Lewis Tutorial 2011')
## Date('01/30/2011')
## Author('Paul Pearson')
## Institution('Fort Lewis College')
## TitleText1('')
## EditionText1('')
## AuthorText1('')
## Section1('')
## Problem1('')


##################################
#  Initialization

DOCUMENT();

loadMacros(
"PGstandard.pl",
"MathObjects.pl",
"contextInequalities.pl",
"AnswerFormatHelp.pl",
);

TEXT(beginproblem());


###################################
# Setup

Context("Inequalities-Only");
Context()->flags->set(formatStudentAnswer=>'parsed');

$a = random(3,9,1);

$ineq = "-$a x \leq 10";  # TeX

$answer = Compute("x >= -10 / $a");


###################################
# Main text

Context()->texStrings;
BEGIN_TEXT
Solve the inequality \( \displaystyle $ineq \).
Enter your answer using inequality notation.
$BR
$BR
\{ ans_rule(20) \}
\{ AnswerFormatHelp("inequalities") \}
END_TEXT
Context()->normalStrings;


###################################
# Answers

$showPartialCorrectAnswers = 1;

ANS( $answer->cmp() );


#####################################
#  Solution

Context()->texStrings;
BEGIN_SOLUTION
${PAR}SOLUTION:${PAR}
Solution explanation goes here.
END_SOLUTION
Context()->normalStrings;

COMMENT("MathObject version.");

ENDDOCUMENT();