View of /trunk/NationalProblemLibrary/ASU-topics/setAbsoluteValue/zhu10.pg

    1 ## DESCRIPTION
    2 ## Algebra
    3 ## ENDDESCRIPTION
    4 
    5 ## KEYWORDS('algebra','absolute value')
    6 ## Tagged by cmd6a 8/6/06
    7 
    8 ## DBsubject('Algebra')
    9 ## DBchapter('Equations and Inequalities')
   10 ## DBsection('Absolute Value')
   11 ## Date('')
   12 ## Author('')
   13 ## Institution('ASU')
   14 ## TitleText1('')
   15 ## EditionText1('')
   16 ## AuthorText1('')
   17 ## Section1('')
   18 ## Problem1('')
   19 
   20 DOCUMENT();        # This should be the first executable line in the problem.
   21 
   22 loadMacros(
   23 "PG.pl",
   24 "PGbasicmacros.pl",
   25 "PGchoicemacros.pl",
   26 "PGanswermacros.pl",
   27 "PGauxiliaryFunctions.pl",
   28 "PGasu.pl",
   29 "extraAnswerEvaluators.pl"
   30 );
   31 
   32 TEXT(beginproblem());
   33 $showPartialCorrectAnswers = 0;
   34 
   35 $a = random(1,8,1);
   36 $b = random(1,8,1);
   37 do {$b=random(1,8,1);} until ($b != $a);
   38 
   39 $c=random(1,8,1);
   40 $d=random(15,20,1);
   41 $e1=($d-$c-$b)/$a;
   42 $e2=(-$d+$c-$b)/$a;
   43 
   44 if($e1<$e2){$min=$e1 and $max=$e2} else {$min=$e2 and $max=$e1};
   45 
   46 
   47 TEXT(EV2(<<EOT));
   48 Solve the following inequality. Write the answer in interval notation.
   49 If the answer includes more than one interval write the intervals separated by
   50 the "union" symbol, U. If needed enter \(\infty\) as "infinity".
   51 $BR
   52 \[ $d -|$a x+ $b| \ge $c \]
   53 $BR
   54 Answer: \{ans_rule(35) \}
   55 $BR
   56 EOT
   57 
   58 ANS(interval_cmp("[$e2,$e1]"));
   59 
   60 ENDDOCUMENT();        # This should be the last executable line in the problem.;
   61 
   62