## DESCRIPTION
## Precalculus: domain and range using inequalities
## ENDDESCRIPTION

## KEYWORDS('precalculus', 'domain and range using inequalities')

## 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 1

Context("Numeric");

$f = Compute("sqrt(x-4)");

Context("Inequalities-Only")->variables->are(x=>"Real");
Context()->flags->set(formatStudentAnswer=>'parsed');

$domain = Compute("x >= 4");


##########################
#  Main Text 1

Context()->texStrings;
BEGIN_TEXT
Suppose \( f(x) = $f \).  Enter inequalities for the 
domain and range of \( f \).
$BR
$BR
Domain: 
\{ ans_rule(20) \}
\{ AnswerFormatHelp("inequalities") \}
$BR
END_TEXT
Context()->normalStrings;


########################
#  Answer Evaluation 1

$showPartialCorrectAnswers = 1;

ANS( $domain->cmp() );



########################
#  Setup 2

Context("Inequalities-Only")->variables->are(y=>"Real");
Context()->flags->set(formatStudentAnswer=>'parsed');

$range  = Compute("y >= 0");

########################
#  Main text 2

Context()->texStrings;
BEGIN_TEXT
Range:$SPACE$SPACE
\{ ans_rule(20) \}
\{ AnswerFormatHelp("inequalities") \}
END_TEXT
Context()->normalStrings;


########################
#  Answer evaluation 2

ANS( $range ->cmp() );

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

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

COMMENT('MathObject version.');

ENDDOCUMENT();